Re: Perl perl recursive list ftp files

2010-11-09 Thread Chandrashekar Bhat
Or you can add 26.my $dir = $_[0]; > die qq{ Please pass the directory name...} if (! -d "$dir");# Test whether you are getting actual directory >27.if ($dir =~ m/^d/){ >28. $ftp->cwd("$dir") or die "Error" >29.. (This loca

Re: Perl perl recursive list ftp files

2010-11-08 Thread Thomas Brightbill
On 11/4/2010 1:36 AM, sync wrote: 26.my $dir = $_[0]; 27.if ($dir =~ m/^d/){ 28. $ftp->cwd("$dir") or die "Error" 29.. (This location is my problem ) 30. } I suspect that $dir contains a string that starts with the directory attrib