Perl - Net::FTP issue


Login or Register for Dates, Times and to Reply

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Perl - Net::FTP issue
# 1  
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($hostDebug => 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  
Maybe this helps:
Code:
use Net::FTP::A;

Login or Register for Dates, Times and to Reply

Previous Thread | Next Thread
Thread Tools Search this Thread
Search this Thread:
Advanced Search

Test Your Knowledge in Computers #50
Difficulty: Medium
Matti Makkonen is considered to be the 'Father of SMS'.
True or False?

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

Featured Tech Videos