UBB.Developers Forums Community Development Programming PHP and Server-side Scripting Net::FTP Puzzler

use Net::FTP;

$ftp = Net::FTP->new("myhost.edu", Port => 21);
$ftp->login("login",'pass');

my @list = $ftp->ls();
chomp( @list );

foreach $i( @list ) {
my $mod_time = $ftp->mdtm( $i );

print $i . " - ${mod_time}n";
}


$ftp->quit;
##-------- Script ends here --------##

the mdtm call doesnt return anything for me... i checked the internet and other peeps were recieving a number(number of secs from jan 1970...)

why am i not getting anything?!?!?!

the list gives me this output:

dead.letter -
junk -
hello -
project -
www -
intra-www -


any help will be highly appreciated.
Thanks!

Hmmm ... I can't see anything wrong with your code.

You might try switching to binary mode with $ftp->binary(). On one FTP server I use, the size command only works in binary mode, not ASCII. (I know you're not using the size command here, but it's worth a try.)

Is it possible that that server doesn't support the mdtm command? I don't know if mdtm is a distinct FTP command, or if Net::FTP implements it some other way.

That last line could be written more simply as print "$i - $mod_timen";, although that shouldn't make any difference.

[ April 19, 2001 09:19 PM: Message edited by: Dave_L ]

my doupt was correct, i tried:

if ( $ftp->support( 'mdtm' ) ) {
print "Hooray!!! NO HAZZLE OF PARSING";
} else {
print "Pitty you, i'll have to write LIST parse code";
}

not neccesarily saying the output was:
Pitty you, i'll have to write LIST parse code.$

ah!, that is so bad, any one have already written code for parsing LIST output of the FTP command directory listing. ??

I have already started writing the parsing code, and it wouldnt be that difficult, but the only thing that bugs me is:
some FTP server uses the unix long listing format, and some use DOS long listing format!!!, thats bad for the programmers, as they will have to detect which listing format it is and than parse it correctly(hopefully) based on that.

Thanks any way