Michael, Escape the dot: "\." That should do't.
Joseph Michael Kramer wrote: > I've been having some problems with this little code two major issues. > What I'm tring to do is get Photos off an FTP site: > I have a text file with about 4000 lines and on each line is an eight digit > number "30635325". I take all of the is an put it into an array. Then I > have to change the info to 30635325_0.jpg because on the FTP site that's how > each one of the Photos are saved. I'm getting weird output here the "." is > not working example of the output "_0.jp 78". Next assuming it works. I > connect to the FTP site and get a list of what they have. The fun thing is > that the FTP site has most of the photos I need but they are separated in to > different folders, so the file I need is "30635325_0.jpg" is located in > first folder "30" second folder "635" then the file is "325_0.jpg". I have > written the code to do this but it take a long time and I wanted to know if > this is the best way to do it. If any one could please help me it would be > greatly appreciated. > > Thanks > > #!/usr/local/bin/perl -w > use strict; > > print "Step 1: Find the $file in $dir.\n"; > chdir($dir) or die "Can't open $dir: $!"; > > print "Step 2: Open the $file.\n"; > open(FILE, $file) or die "Can't open $file: $!"; > @word = <FILE>; > chomp @word; > close(FILE); > > print "Step 3: Clean up our listings.\n"; > #I need to fix the listings from the text file to what they are on the FTP > sit > @correctedwords = (); > foreach $item (@word) { > if (substr($item,length($item) - 6, length($item)) ne >"_0.jpg"){ > $looking_for_listings{$item . "_0.jpg"} = 1; > } else { > $looking_for_listings{$item} = 1; > } > } > ################################ > #once I do this I have been getting some funkey out put. "_0.jp 67" > ################################ > > #I need to see if they exist on the ftp site. > print "Step 4: Start FTP.\n"; > use Net::FTP; > #... connect to the FTP site. > > $ftp->cwd("$pin_folder") > or $ftp->cwd("$pin_folder") > or die "Couldn't change to dir $pin_folder. \n$!\n"; > > print "Step 5: Get the list they have.\n"; > @first_folder = $ftp->ls() > or die "Couldn't get a list of files. $!\n"; > > foreach $myfolder (@first_folder) { > $ftp->cwd("$myfolder") > or die "Did not work $myfolder\n"; > @second_folder = $ftp->ls() > or die "can't get list in $second_folder. \n"; > foreach $folder2 (@second_folder) { > $ftp->cwd("$folder2") > or die "did not work $folder2\n"; > @files = $ftp->ls() > or die "can't get the list in $folder2"; > $ftp->cwd("../") > or die "can't get the list in ../"; > foreach $file (@files) { > if ($looking_for_listings{$myfolder . >$folder2 . $file}) { > $seen{$myfolder . $folder2 . $file} >= 1; > } > } > } > $ftp->cwd("../") > or die "can't get the list in ../"; > } > > print "Step 6: print the list they have and we want.\n"; > #I should get about 300 listings but I get nothing!!!! > for $a ( keys %seen) { > print "$a=$seen{$a}\n"; > } > > $ftp->quit(); > > Michael Kramer > [EMAIL PROTECTED] > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]