Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl - Net::FTP issue
Top Forums Shell Programming and Scripting Perl - Net::FTP issue Post 302415336 by meevagh on Thursday 22nd of April 2010 09:50:11 AM
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.
 

10 More Discussions You Might Find Interesting

1. 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

2. 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

3. 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

4. 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

5. 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

6. 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

7. 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

8. 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

9. 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

10. 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
All times are GMT -4. The time now is 04:36 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy