hi all,


How to connect FTP Server using Perl?

#!/usr/bin/perl

use Net::FTP;

my host = ftp.yourftpserver.com
my $username = "yourusername";
my $password = "yourpassword";
my $ftpdir = "/your/ftp/path";
my $file = "yourfile";

#-- connect to ftp server
my $ftp = Net::FTP->new($host) or die "Error connecting to $host: $!";

#-- login
$ftp->login($username,$password) or die "Login failed: $!";

#-- chdir to $ftpdir
$ftp->cwd($ftpdir) or die "Can't go to $ftpdir: $!";

#-- download file
$ftp->get($file) or die "Can't get $file: $!";

#-- close ftp connection
$ftp->quit or die "Error closing ftp connection: $!";