From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Perl Perl Sent: 04 June 2009 17:22 To: perl-win32-users@listserv.activestate.com Subject: inserting the file paths in between the two arrays ( text widget ) : Perl/TK
> Dear All, > I have written a script, which has to enter the file path (Paths ), in between the text. For this I > have used below approach. > 1) I divide the file in two parts, in which file path(s) has to be inserted. > -> Here @File_Part1 stores the first prart of file. > -> @File_Part2 stores the second part of file. > 2) Then script will capture the file path entry into @File_Parth array. > 3) Now I will insert the @File_Path array in between @File_Part1 and @File_Part2, to achive our goal. > But the problem is, The widget is diplaying(inserting) only last file pathselected with Tk::Pathenty. But > my aim is to insert the number of file path as selected with Tk::PathEntry tk module. > Plese help me to overcome this. Please find the code below for your kind reference. ... > ## This function will the capture the file path entrires and store into an array, @File_Part. > > sub Capture { > @File_Path =$path; You have just told Perl to replace the contents of @File_Path with $path. That is, the array will only ever contain the last value that is assigned to it. I would guess that you would prefer to append the $path to the array. In which case see 'perldoc -f push'. > #open (FILE,">>f1.txt") or die "Can't open $!"; > #foreach (@File_Path) { > # print FILE $_; > # $t -> insert ("end", $_); > > #} > } HTH -- Brian Raven This e-mail may contain confidential and/or privileged information. If you are not the intended recipient or have received this e-mail in error, please advise the sender immediately by reply e-mail and delete this message and any attachments without retaining a copy. Any unauthorised copying, disclosure or distribution of the material in this e-mail is strictly forbidden. _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs