Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Uploading

by ergowolf (Monk)
on Apr 26, 2000 at 03:29 UTC ( #9131=note: print w/replies, xml ) Need Help??


in reply to Uploading

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?

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://9131]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2022-08-17 04:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?