Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw


by mt2k (Hermit)
on Apr 26, 2000 at 01:35 UTC ( #9113=perlquestion: print w/replies, xml ) Need Help??

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

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://9113]
Approved by root
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (3)
As of 2022-06-26 14:00 GMT
Find Nodes?
    Voting Booth?
    My most frequent journeys are powered by:

    Results (85 votes). Check out past polls.