Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

Perl - Net::FTP issue

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Perl - Net::FTP issue
# 1  
Old 04-22-2010
Perl - Net::FTP issue
Wondering if anyone can help or advise on following issue.
The below script should simply connect to a different server and retrieve certain files for me.

PHP Code:

use lib "/xxxxx/xxxxx/xxxxx/xxxx";

use Net::FTP;

my $directory = "xxxxxxxx";
my $destinationDir =  "xxxxxxxxx";
my $filePrefix = getYesterdaysDateStamp();
my $fileName = $filePrefix . ".tfl";
my $host = "xx.x.xxxx.xx";
my $user = "xxxxxx";
my $pwd = "xxxxxx";

my $mk_ftp;
    
    chdir($directory) 
    or die "Cannot change directory", $mk_ftp->message;

    $mk_ftp = Net::FTP->new($host, Debug => 0)
      or die "Cannot connect to host: $@";

    print("Logging in FTP session\n");
    $mk_ftp->login($user, $pwd)
      or die "Cannot login ", $mk_ftp->message;
      
      print("Change destination directory\n");
    $mk_ftp->cwd($destinationDir)
      or die "Dir change failed ", $mk_ftp->message;

      
      print("Getting file to put on Fang: $fileName\n");
    $mk_ftp->get($fileName)
      or die "put failed ", $mk_ftp->message;
      
    print("Closing FTP session\n");
    $mk_ftp->quit;

    
sub getYesterdaysDateStamp {
    my $timeSeconds = time();
    $timeSeconds = $timeSeconds - (60 * 60 * 24); # seconds in a day
    my @time = gmtime($timeSeconds);
    my $year = @time[5] + 1900;
    my $month = @time[4];
    $month++;
    my $day = @time[3];
    if ($month < 10) { $month = "0$month"; }
    if ($day < 10)  { $day = "0$day"; }
    return "$year-$month-$day";
} 

However im getting the following result

Can't locate object method "new" via package "Net::FTP::A" at /usr/perl5/5.00503/sun4-solaris/IO/Socket.pm line 253.

Does anyone know why this error is appearing or even better how to get rid of it??

any advice or info would be much appreciated.
# 2  
Old 04-22-2010
Maybe this helps:
Code:
use Net::FTP::A;

Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Odd looping issue with NET::FTP and Proftpd

Hello, I'm a UNIX SysAdmin at a large webhosting company and we have a vendor that provides a service which involves the ftp'ing of files from their servers to ours. They initiate FTP using a perl script with NET::FTP. When they try to transfer files (and delete files over ftp), there is... (3 Replies)
Discussion started by: tmmgeekette
3 Replies

2. Shell Programming and Scripting

Unable to get the size of remote file using Net::FTP Perl Script

Hi, I am using below piece of code to get the size of the remote file. $ftp->cwd($destination) or $error=$ftp->message; if(!$error) { $ftp->put($file) or $error=$ftp->message; print "FTP size = \n"; ... (3 Replies)
Discussion started by: FarooqOnline
3 Replies

3. HP-UX

[Solved] Unable to rename file in ftp server .Net:FTP perl

Hello All, I am trying to connect to ftp server and get the files. Also i need to rename the file in other ftp dir. rename method is not allowing me to rename the file in other dir. When i tried copy command by using net::FTP:FILE then perl says it is not installed. Can some body help me to... (2 Replies)
Discussion started by: krsnadasa
2 Replies

4. Shell Programming and Scripting

NET::FTP Problem

I am facing some problem in the NET::FTP Library in perl script in the HPUX. I am using NET::FTP to ftp files from 23 remote servers. Except 1 server everything is working fine. I am getting this error from one server . but normal FTP is working fine for that server. everytime few files are ftped... (1 Reply)
Discussion started by: mohanm
1 Replies

5. UNIX for Dummies Questions & Answers

ISSUE and ISSUE.NET files

In LINUX(CentOS, RedHat) is there a way to have the banner statement appear before the logon instead of after the logon? In UNIX and Windows the banner appears before a person actually logs on, what I'm seeing in LINUX is that it appears after the login(ftp, telnet, SSH). Thanks (0 Replies)
Discussion started by: ejjones
0 Replies

6. Infrastructure Monitoring

net-snmp issue

When I run a script that polls a router I get the following error from net-snmp. I can not seem to find a straight answer. Could my mib files be corrupt? xxx-xxx:/etc/sma/snmp/mibs# perl /export/home/user/perl/test.pl Unlinked OID in SNMPv2-MIB: snmp ::= { mib-2 11 } Undefined identifier:... (2 Replies)
Discussion started by: mrlayance
2 Replies

7. Shell Programming and Scripting

Net::Ftp in perl

I am trying to execute a script in another server, i used Net::Ftp module How to execute unix command in another server by using Net::Ftp module.. #!/usr/bin.perl ### Perl script to $ftp->login($user_name,'password') or die "Cannot login ", $ftp->message;... (2 Replies)
Discussion started by: pritish.sas
2 Replies

8. Shell Programming and Scripting

Corrupted Download with Net::FTP (perl)

Hello, I am trying to download several files from a remote FTP server using Net::FTP from within a perl script. The files download alright, except they appear to be corrupted. I know this because once after downloading, I use bzcat to pipe the files to a split command, and bzcat complains saying... (3 Replies)
Discussion started by: amcrisan
3 Replies

9. Shell Programming and Scripting

PERL: NET::FTP..>Debug Messages

HI All, NET::FTP->new($server, DEBUG=>1); I need to get all the Debug Messages in an array or a file.... Please suggest!! (0 Replies)
Discussion started by: angad.makkar
0 Replies

10. Shell Programming and Scripting

perl + Net::FTP::Recursive

Problem: It will not advance to the next user in the list. It always dies right after it sends the 2/2 files from the first users dir. $USERLIST="/export/home/mxdooley/perl_ftp/userlist"; $USER_DIR="/export/home/mxdooley/perl_ftp/homes";... (2 Replies)
Discussion started by: Optimus_P
2 Replies
Login or Register to Ask a Question