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

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

Replies are listed 'Best First'.
Re: Uploading
by ergowolf (Monk) on Apr 26, 2000 at 03:29 UTC
    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);

    Does code make a sound if no one is there to type it?
RE: Uploading
by merlyn (Sage) on Apr 26, 2000 at 02:43 UTC