Help for this page

Select Code to Download


  1. or download this
    $ftpobj = Net::FTP -> new ("server.com",Debug =>1,Timeout=>60);
    $ftpobj -> login("user","pass");
    ...
    $ftpobj -> put ("/Users/a/code/perl/testfile.txt","/Users/a/code/perl/
    +ftptest/testfile.txt");
    $ftpobj -> quit;
    print "file size ",-s "testfile.txt"," bytes\n";
    
  2. or download this
    Net::FTP>>> Net::FTP(2.75)
    Net::FTP>>>   Exporter(5.567)
    ...
    Net::FTP=GLOB(0x889f84): Timeout at ftp.pl line 10
    Net::FTP=GLOB(0x889f84)>>> QUIT
    Net::FTP=GLOB(0x889f84)<<< 425 Can't build data connection: Operation 
    +timed out. file size 23 bytes