Opened by wastl at 2009-01-05 13:02
User since
2005-02-13
40 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-02-13
40 Artikel
BenutzerIn
Ich habe jetzt ein FTP-Beispiel gefunden und es auf meinem lokalen System getestet, leider mit einer Fehlermeldung, die sicher nur von Superexperten verstanden wird.
Aber vielleicht erkennt ihr ja am Perl-Code schon einen Fehler.
Und hier die Meldung:
Software error:
No errno EINPROGRESS at C:/xampp/perl/site/lib//Errno.pm line 82
Errno::FETCH('Errno=ARRAY(0x2bffb50)', 'EINPROGRESS') called at C:/xampp/perl/lib/IO/Socket.pm line 115
IO::Socket::connect('Net::FTP=GLOB(0x2bcdfa4)', '\x{2}\x{0}\x{0}\x{15}\x{7f}\x{0}\x{0}\x{2}\x{0}\x{0}\x{0}\x{0}\x{0}\x{0}\x{0}\x{0}') called at C:/xampp/perl/lib/IO/Socket/INET.pm line 257
IO::Socket::INET::connect('Net::FTP=GLOB(0x2bcdfa4)', '\x{2}\x{0}\x{0}\x{15}\x{7f}\x{0}\x{0}\x{2}\x{0}\x{0}\x{0}\x{0}\x{0}\x{0}\x{0}\x{0}') called at C:/xampp/perl/lib/IO/Socket/INET.pm line 232
IO::Socket::INET::configure('Net::FTP=GLOB(0x2bcdfa4)', 'HASH(0x2bd8a10)') called at C:/xampp/perl/lib/IO/Socket.pm line 48
IO::Socket::new('Net::FTP', 'PeerAddr', 'www.dom2.test', 'PeerPort', 'ftp(21)', 'LocalAddr', 'undef', 'Proto', 'tcp', ...) called at C:/xampp/perl/lib/IO/Socket/INET.pm line 37
IO::Socket::INET::new('Net::FTP', 'PeerAddr', 'www.dom2.test', 'PeerPort', 'ftp(21)', 'LocalAddr', 'undef', 'Proto', 'tcp', ...) called at C:/xampp/perl/site/lib//Net/FTP.pm line 84
Net::FTP::new('Net::FTP', 'www.dom2.test', 'Debug', 0) called at C:/dom1/cgi-bin/Dir_Lesen.pl line 10
ModPerl::ROOT::ModPerl::PerlRun::C_3a_dom1_cgi_2dbin_Dir_Lesen_2epl::handler('Apache2::RequestRec=SCALAR(0x2ba923c)') called at C:/xampp/perl/site/lib/ModPerl/RegistryCooker.pm line 204
eval {...} called at C:/xampp/perl/site/lib/ModPerl/RegistryCooker.pm line 204
ModPerl::RegistryCooker::run('ModPerl::PerlRun=HASH(0x2c41614)') called at C:/xampp/perl/site/lib/ModPerl/RegistryCooker.pm line 170
ModPerl::RegistryCooker::default_handler('ModPerl::PerlRun=HASH(0x2c41614)') called at C:/xampp/perl/site/lib//ModPerl/PerlRun.pm line 31
ModPerl::PerlRun::handler('ModPerl::PerlRun', 'Apache2::RequestRec=SCALAR(0x2ba923c)') called at -e line 0
eval {...} called at -e line 0
Aber vielleicht erkennt ihr ja am Perl-Code schon einen Fehler.
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl -w use strict; use CGI::Carp qw(fatalsToBrowser); use LWP::UserAgent; use Net::FTP; my $url = "www.dom2.test"; my $ftp = Net::FTP->new($url, Debug => 0) or die "Cannot connect to $url: $@"; $ftp->ls("/index"); $ftp->quit;
Und hier die Meldung:
Software error:
No errno EINPROGRESS at C:/xampp/perl/site/lib//Errno.pm line 82
Errno::FETCH('Errno=ARRAY(0x2bffb50)', 'EINPROGRESS') called at C:/xampp/perl/lib/IO/Socket.pm line 115
IO::Socket::connect('Net::FTP=GLOB(0x2bcdfa4)', '\x{2}\x{0}\x{0}\x{15}\x{7f}\x{0}\x{0}\x{2}\x{0}\x{0}\x{0}\x{0}\x{0}\x{0}\x{0}\x{0}') called at C:/xampp/perl/lib/IO/Socket/INET.pm line 257
IO::Socket::INET::connect('Net::FTP=GLOB(0x2bcdfa4)', '\x{2}\x{0}\x{0}\x{15}\x{7f}\x{0}\x{0}\x{2}\x{0}\x{0}\x{0}\x{0}\x{0}\x{0}\x{0}\x{0}') called at C:/xampp/perl/lib/IO/Socket/INET.pm line 232
IO::Socket::INET::configure('Net::FTP=GLOB(0x2bcdfa4)', 'HASH(0x2bd8a10)') called at C:/xampp/perl/lib/IO/Socket.pm line 48
IO::Socket::new('Net::FTP', 'PeerAddr', 'www.dom2.test', 'PeerPort', 'ftp(21)', 'LocalAddr', 'undef', 'Proto', 'tcp', ...) called at C:/xampp/perl/lib/IO/Socket/INET.pm line 37
IO::Socket::INET::new('Net::FTP', 'PeerAddr', 'www.dom2.test', 'PeerPort', 'ftp(21)', 'LocalAddr', 'undef', 'Proto', 'tcp', ...) called at C:/xampp/perl/site/lib//Net/FTP.pm line 84
Net::FTP::new('Net::FTP', 'www.dom2.test', 'Debug', 0) called at C:/dom1/cgi-bin/Dir_Lesen.pl line 10
ModPerl::ROOT::ModPerl::PerlRun::C_3a_dom1_cgi_2dbin_Dir_Lesen_2epl::handler('Apache2::RequestRec=SCALAR(0x2ba923c)') called at C:/xampp/perl/site/lib/ModPerl/RegistryCooker.pm line 204
eval {...} called at C:/xampp/perl/site/lib/ModPerl/RegistryCooker.pm line 204
ModPerl::RegistryCooker::run('ModPerl::PerlRun=HASH(0x2c41614)') called at C:/xampp/perl/site/lib/ModPerl/RegistryCooker.pm line 170
ModPerl::RegistryCooker::default_handler('ModPerl::PerlRun=HASH(0x2c41614)') called at C:/xampp/perl/site/lib//ModPerl/PerlRun.pm line 31
ModPerl::PerlRun::handler('ModPerl::PerlRun', 'Apache2::RequestRec=SCALAR(0x2ba923c)') called at -e line 0
eval {...} called at -e line 0