Menggunakan modul Net::FTP

Modul Net::FTP merupakan modul yang dibuat untuk keperluan upload maupun download berbasis web. Modul ini selain mudah digunakan juga relatif handal, modul ini biasa di pakai oleh para pengguna perl-cgi. Adapun penggunaan modul tersebut adalah sebagai berikut :

use Net::FTP;
my $user =”johan”;
my $password =”johan”;
my $connection =”192.168.1.11″;
my $data =”wol.tar”;

$ftp = Net::FTP->new(“$conection”, Debug => 0)
or die “Cannot connect to some.host.name: $@”;

$ftp->login(“$user”,”$password”)
or die “Cannot login “, $ftp->message;

$ftp->cwd(“/”)
or die “Cannot change working directory “, $ftp->message;

——————————————————–
Ini kalo mau upload

$ftp->put(“$data”)
or die “get failed “, $ftp->message;
——————————————————–
Ini kalo mau download
$ftp->put(“$data”)
or die “get failed “, $ftp->message;
——————————————————–

$ftp->quit;

Nah gampang banget kan…, nanti kita tinggal ganti nilai dari variabel masukan diatas dengan nilai hasil inputan dari form.

.."..Blogging : Programing.."..


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s