Re(4): Net::FTP server errors?

The fact that in this particular case $! contains something that might look like the right error message doesn't mean the other procedures will be able to use it as well.

The list of errors that can be found in $! is fixed (and OS dependant). You can find out what it is by

$lastmsg='noNSensE';
$i = 0;
$! = $i;
while ($lastmsg ne $!) {
   $lastmsg = ''.$!;
   print "$i: $!\n";
   $i++;
   $! = $i;
}
[download]

Try also:

$! = "Hello world";
print "$!\n";
[download]

So as you see it is possible to change the $!, but you can't give a very specific error message.

What GhodMode wants is

$ftp->message()
[download]

Of course that doesn't work for the "new Net::FTP", but that was not requested.

Jenda

Comment on Re(4): Net::FTP server errors? Select or Download Code

Replies are listed 'Best First'.
Re: Re(4): Net::FTP server errors? by Mr. Muskrat (Canon) on Oct 31, 2002 at 21:15 UTC
Once again, I am reminded to read the docs on Net::Cmd... So then something like this would work nicely, huh? `#!/usr/bin/perl use strict; use warnings; use Net::FTP; my $ftp = Net::FTP->new("some.host.name") or die "Server not found!\n" +; $ftp->login("anonymous",'me@here.there') or die $ftp->message(); $ftp->cwd("/pub") or die $ftp->message(); $ftp->get("that.file") or die $ftp->message(); $ftp->quit;` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re(4): Net::FTP server errors?
by Mr. Muskrat (Canon) on Oct 31, 2002 at 21:15 UTC

Once again, I am reminded to read the docs on Net::Cmd...

So then something like this would work nicely, huh?

#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP;
my $ftp = Net::FTP->new("some.host.name") or die "Server not found!\n"
+;
$ftp->login("anonymous",'me@here.there') or die $ftp->message();
$ftp->cwd("/pub") or die $ftp->message();
$ftp->get("that.file") or die $ftp->message();
$ftp->quit;
[download]

[reply]
[d/l]