FTP attempt

[george77]

I cant get my ftp to work. I keep getting error message such as:
[tt]
C:\Perl\bin>ftpr.pl
Can't call method "login" on an undefined value at C:\Perl\bin\ftpr.pl line 5.[/tt]

The script:
[tt]
use Net::FTP;

$ftp = Net::FTP->new("myserver@here.com", Debug => 0);
$ftp->login("myname","mypassword&quot || die "nope:$!\n"; $ftp->cwd("/usr/home/myname"
$ftp->get("test.txt"
$ftp->quit;[/tt]


The server I am trying to get the file from is behind a firewall.
I am on a NT workstation trying to get a file off a Solaris 7 server.

 

[jamisar]

mask @ in your address ------------ jamisar
Einfachheit ist das Resultat der Reife. (Friedrich Schiller)
Simplicity is the fruit of maturity.

 

[justice41]

jamisar is correct. Perl will even tell you so. Using warnings and strict would have produced the following message

Possible unintended interpolation of @here in string at ./netftp.pl line 6.
Global symbol "@here" requires explicit package name at ./netftp.pl line 6.
Execution of ./netftp.pl aborted due to compilation errors.

Also, it's a good idea to check the success of connections for sockets, db's, etc
[/code]
my $ftp = Net::FTP->new("myserver@here.com", Debug => 0);
die "Error connecting: $!" unless $ftp;
[/code]
which gives the following error message

Error connecting: Invalid argument at ./netftp.pl line 7.

jaa

 

[badco]

Try this below:

[tt]
use Net::FTP;
use strict;
use warnings;

my $ftp = Net::FTP->new("servername.here.com", Debug => 0) or die "cant connect: $@\n";
$ftp->login("myname", "mypassword"
$ftp->cwd("/yourdirectorypathhere/directory"
$ftp->get("file.txt"
$ftp->quit;[/tt] =================
Bad Company Music
=================