Thread Net::FTPSSL und list()
(53 answers)
Opened by bianca at 2015-03-03 08:49
Hab jetzt von einem Linux das Verzeichnis /usr/lib/perl5/Net auf den anderen Linux in mein eigenes Moduleverzeichnis /permodule
Mein Testscript wirft jetzt: Quote Das Testscript: Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 #!/usr/bin/perl use strict; use warnings; use lib '/pfad/perlmodule'; use lib '/pfad/perlmodule/lib/perl/5.10.0'; print "INC:\n".join("\n",@INC); print "\n\n\n\n"; print "Version Net::FTP: ".$Net::FTP::VERSION."\n"; print "Version Exporter: ".$Exporter::VERSION."\n"; print "Version Net::Cmd: ".$Net::Cmd."\n"; print "Version IO::Socket::SSL: ".$IO::Socket::SSL::VERSION."\n"; print "Version IO::Socket::IP: ".$IO::Socket::IP::VERSION."\n"; print "Version IO::Handle: ".$IO::Handle::VERSION."\n"; print "Version Net::SSLeay: ".$Net::SSLeay::VERSION."\n"; use Net::SSLeay 1.58; use IO::Socket::SSL 2.012; use Net::FTP 3.05; #use Net::FTP::File; my $ftp = Net::FTP->new( ***, Debug => 1, Timeout => 60, Passive => 1, SSL_verify_mode => 0, ) or die 'Fehler in '.__LINE__; $ftp->starttls() or die "Fehler in ".__LINE__." wegen '$@'"; $ftp->login(***,***) or die 'Fehler in '.__LINE__; my $hash_ref = $ftp->dir('/tmpdevelop'); for my $key (0..$#{$hash_ref}) { my @feld = split /[ ]+/,$hash_ref->[$key]; print "Zeile: '".join('*',@feld)."'\n"; } Der Fehlermeldung nach zu urteilen stimmt was mit den Versionen bei Net::SSLeay nicht. Wieso ist das so? Was kann ich noch versuchen? 10 print "Hallo"
20 goto 10 |