Question on Net::Ftp..

kprasanna_79 has asked for the wisdom of the Perl Monks concerning the following question:

Revered Monks,

I am trying to use Net::Ftp module to connect to another UNIX machine. But i dont see any thing actually happening when i use this module and also i do get the below error...

require 5.6.1;
use Net::FTP;
my $ftp = Net::FTP->new('ostrich',Debug=>1,Passive=>1) or die "not con
+nected $!";
print "connected successfully\n";
[download]

The error is 
not connected Invalid argument at - line 3.
[download]

Please throw some light on this
Update:-
The normal ftp (/usr/bin/ftp)in UNIX session works fine.

Update1:-

Recently i notice that it doesnt recognise the hostname. Is it any where i need to mention this hostname to be identified by the Net::Ftp modue?????Like Netrc file or somewhere???

-Prasanna.K

Comment on Question on Net::Ftp.. Select or Download Code

Replies are listed 'Best First'.
Re: Question on Net::Ftp.. by runrig (Abbot) on Jan 26, 2009 at 21:11 UTC
`Net::FTP->new(...)` error messages are in $@, not $!. After that, messages can be retrieved with the message() method.	[reply] [d/l]
Re: Question on Net::Ftp.. by Illuminatus (Curate) on Jan 26, 2009 at 19:49 UTC
Have you tried Host => 'ostrich'? I'm not sure you can pass an implicit hostname with other named parameters can you 'ftp ostrich' from the command line?	[reply]
Re: Question on Net::Ftp.. by hbm (Hermit) on Jan 26, 2009 at 20:08 UTC
Can you connect with `/usr/bin/ftp` (or whichever)? You might want to extend the timeout and retry a few times, like this: `use Net::FTP; my $ftphost = 'ftp.ostrich.com'; my $timeout = 600; # seconds, default is 120 my $retries = 5; for (1 .. $retries) { last if $ftp = Net::FTP->new("$ftphost", BlockSize => 20480, T +imeout => $timeout); } die("Couldn't connect to $ftphost in $retries attempts: $@") unle +ss($ftp); ...` [download] Update: Upon closer inspection, I think you just need to wrap ostrich with double-quotes in `Net::FTP->new("ostrich",...)`. I get an error, albeit somewhat different, if I change my doubles to singles as you have.	[reply] [d/l]


The stupid question is the question not asked
	PerlMonks