Uploading

[mt2k]

This node falls below the community's threshold of quality. You may see it by logging in.

[ergowolf]

Maleteen,
Here is some sample code for you.

WARNING: This is not working code. I thought it would be better to give you a start to a program and and end and some options for what you can do in the middle of the program.

HINT: I would put your username and password in another file during the debug process or use command line arguments to keep the password and username secret.



use strict;
use Net::FTP; 

my $server = ARGV[0];
my $user = ARGV[1];
my $pass = ARGV[2];

# connect
my $ftp = Net::FTP -> new($server);
print $ftp -> message(), "\n";

# login
$ftp -> login("$user","$pass");
print $ftp -> message(), "\n";

# set binary mode
$ftp -> binary();
print $ftp -> message(), "\n";

# move through directories
# $dir = "ftp";
# $ftp -> cwd($dir);
# print $ftp -> message(), "\n";

# list files
my @list = $ftp -> ls();
print $ftp -> message(), "\n";

# put files on the server
$ftp -> put(local file, remote file);
print $ftp -> message(), "\n";

$ftp -> quit();
exit(0);


Ergowolf
Does code make a sound if no one is there to type it?

[merlyn]

See my column on that. -- Randal L. Schwartz, Perl Hacker