FTP file upload using perl from local system

Question

Requirement:

I want to create a script that will upload files from local system to FTP server in using perl.

Sample Code:

use Net::FTP;
    $ftp = Net::FTP->new("some.host.name", Debug => 0)
      or die "Cannot connect to some.host.name: $@";
    $ftp->login("anonymous",'-anonymous@')
      or die "Cannot login ", $ftp->message;
    $ftp->cwd("/pub")
      or die "Cannot change working directory ", $ftp->message;
    $ftp->get("that.file")
      or die "get failed ", $ftp->message;
    $ftp->quit;

P.S: Newbie in Perl.

Solution

You can try this code this is working fine for me

use strict;
use warnings;
use Net::FTP;

my ($ftp, $host, $user, $pass, $dir, $fpath);

$host = "";
$user = "";
$pass = "";
$dir = "";

$fpath = "";

$ftp = Net::FTP->new($host, Debug => 0);
$ftp->login($user, $pass) || die $ftp->message;
$ftp->cwd($dir);
$ftp->put($fpath) || die $ftp->message;
$ftp->quit;

print $ftp->message;

Comments

[Quentin]

Define "not working". What does it do? What error messages are reported?

[Admin]

it is not posting the any files

[Quentin]

What is it doing? What error messages are reported? What makes you think it should "post" files (whatever you mean by that)?

[Developer]

what is the problem in my code will u explain why u have downvoted it

[Admin]

file path i have to pass is relative or absolute

[Developer]

pass the complete path from both locations

[arka.b]

this serves only uploading to FTP server. How about downloading the same file now? Another requirement is now I want to repeat this upload/download process inside a loop. How to achieve it?

[arka.b]

where do the downloaded files gets saved?

[Developer]

set your location where you want

[arka.b]

I added $sock->recv("/home/rancore/arka/10mega.test") or die $ftp->message; and installed the module IO:Socket:Socks:Wrapper. It did not work.

[arka.b]

Gaurav - Can you look into this one? stackoverflow.com/questions/32822411/…