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? |