torte
01.04.2004, 20:16
HI,
Ich will ein Perl-Script schreiben das sich auf nem FTP einloggt,
und dann dort den ordnerinhalt ausgibt!!
Das klappt mit meinem Script auch bei einem WebSpaceAcc
alles reibungslos :
Net::FTP=GLOB(0x83488d4)<<< 150 Opening BINARY mode data connection for file list.
Net::FTP=GLOB(0x83488d4)<<< 226 Transfer complete.
aber wenn ich das bei nem FTP-Server von nem Kollegen (auf seinem PC mit ProFTP)
mache belibt der bei der Übertragung hängen:
Net::FTP=GLOB(0x834858c)<<< 150 Opening ASCII mode data connection for /bin/ls.
und geht net mehr weiter.
Ich vermute das das was damit zu tun das erstmal BINARY und ASCII ist allerdings habe ich für beide genau das gleiche script genommen!!!
#!/usr/bin/perl -w
use Net::FTP;
print "IP:";
my $host = <STDIN>;
chop($host);
print "Port:";
my $port = <STDIN>;
chop($port);
print "User:";
my $user = <STDIN>;
chop($user);
print "PW:";
my $password = <STDIN>;
chop($password);
my $ftp = Net::FTP->new($host,
Timeout => 360,
Debug => 1,
Port => $port,
Passive,
);
unless (defined $ftp) {
print "$@\n";
die "Can't create Net::FTP-Object\n";
}
$ftp->login($user,$password) || die "Can't login $!";
@files = $ftp->ls();
foreach $file (@files) {
print "$file\n";
}
Ich will ein Perl-Script schreiben das sich auf nem FTP einloggt,
und dann dort den ordnerinhalt ausgibt!!
Das klappt mit meinem Script auch bei einem WebSpaceAcc
alles reibungslos :
Net::FTP=GLOB(0x83488d4)<<< 150 Opening BINARY mode data connection for file list.
Net::FTP=GLOB(0x83488d4)<<< 226 Transfer complete.
aber wenn ich das bei nem FTP-Server von nem Kollegen (auf seinem PC mit ProFTP)
mache belibt der bei der Übertragung hängen:
Net::FTP=GLOB(0x834858c)<<< 150 Opening ASCII mode data connection for /bin/ls.
und geht net mehr weiter.
Ich vermute das das was damit zu tun das erstmal BINARY und ASCII ist allerdings habe ich für beide genau das gleiche script genommen!!!
#!/usr/bin/perl -w
use Net::FTP;
print "IP:";
my $host = <STDIN>;
chop($host);
print "Port:";
my $port = <STDIN>;
chop($port);
print "User:";
my $user = <STDIN>;
chop($user);
print "PW:";
my $password = <STDIN>;
chop($password);
my $ftp = Net::FTP->new($host,
Timeout => 360,
Debug => 1,
Port => $port,
Passive,
);
unless (defined $ftp) {
print "$@\n";
die "Can't create Net::FTP-Object\n";
}
$ftp->login($user,$password) || die "Can't login $!";
@files = $ftp->ls();
foreach $file (@files) {
print "$file\n";
}