Perl Upload via FTP

#!/usr/bin/perl

 use Net::FTP;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$mon = $mon + 1;

$mday = $mday - 1;

$year = $year + 1900;

$logfile = "log.".$year."-".$mon."-".$mday.".txt";

#print $logfile;

    $ftp = Net::FTP->new("192.168.50.132", Debug => 0)

              or die "Cannot connect to some.host.name: $@";

    $ftp->login('user','password')

              or die "Cannot login ", $ftp->message;

#       $ftp->cwd("/log/")

#             or die "Cannot change working directory ", $ftp->message;

    $ftp->put("/log/$logfile")

              or die "get failed ", $ftp->message;

        $ftp->quit;

ประกาศเรียกใช้ Module นี้ก่อน use Net::FTP;

เอาวันเวลามา ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); เราต้องการอัพโหลด log file ย้อนหลังไปหนึ่งวัน โดยชื่อไฟล์จะเป็นฟอแมตดังนี้ log.2011-08-15.txt

เริ่มสร้าง Connection

$ftp = Net::FTP->new("192.168.50.132", Debug => 0)

              or die "Cannot connect to some.host.name: $@";

$ftp->login('user','password')

              or die "Cannot login ", $ftp->message;

แล้วก็สั่ง อัพโหลด

 $ftp->put("/log/$logfile")

              or die "get failed ", $ftp->message;

        $ftp->quit;

จบ >> แบบง่ายๆพอ