in reply to Blues

Hello knovicki, I am also an Oracle DBA who uses perl to simplify things. While I don't know for sure what the issue is, what is the output from the following code? (I'm just looking to make sure the Net::FTP install is ok.)

#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use Net::FTP; my $ftp=Net::FTP->new('svr123', Debug => 0); print Dumper($ftp);

Update I did run your code on one of my servers, and it worked just fine (well, I used a different server and password. *Grins*)

Are you seeing svr123's banner output in the debug lines? For example, I get:

Net::FTP: Net::FTP(2.56) Net::FTP: Exporter(5.562) Net::FTP: Net::Cmd(2.18) Net::FTP: IO::Socket::INET(1.25) Net::FTP: IO::Socket(1.26) Net::FTP: IO::Handle(1.21) Net::FTP=GLOB(0x182575c)<<< 220- Net::FTP=GLOB(0x182575c)<<< 220-Server: <svr123> -Server Net::FTP=GLOB(0x182575c)<<< 220-Time: Tue Sep 28 09:36:32 2004 Net::FTP=GLOB(0x182575c)<<< 220- Net::FTP=GLOB(0x182575c)<<< 220-"This system is for authorized busines +s use only. Under the Net::FTP=GLOB(0x182575c)<<< 220-Computer Fraud and Abuse Act of 1986, +it is a federal crime to Net::FTP=GLOB(0x182575c)<<< 220-obtain information from or cause damag +e to a computer used in Net::FTP=GLOB(0x182575c)<<< 220-interstate commerce when that computer + is accessed without Net::FTP=GLOB(0x182575c)<<< 220-authorization or in excess of authoriz +ed access. Unauthorized Net::FTP=GLOB(0x182575c)<<< 220-use of this equipment or system is str +ictly prohibited. Net::FTP=GLOB(0x182575c)<<< 220- Net::FTP=GLOB(0x182575c)<<< 220 <svr123> FTP server (Revision 1.002 Ve +rsion wuftpd-2.6.1 Wed Jan 2 06:26:08 GMT 2002) ready. Net::FTP=GLOB(0x182575c)>>> user oracle Net::FTP=GLOB(0x182575c)<<< 331 Password required for oracle. Net::FTP=GLOB(0x182575c)>>> PASS .... Net::FTP=GLOB(0x182575c)<<< 230 User oracle logged in. Net::FTP=GLOB(0x182575c)>>> CWD /tmp Net::FTP=GLOB(0x182575c)<<< 250 CWD command successful. Net::FTP=GLOB(0x182575c)>>> PORT <removed> Net::FTP=GLOB(0x182575c)<<< 200 PORT command successful. Net::FTP=GLOB(0x182575c)>>> STOR Net::FTP=GLOB(0x182575c)<<< 150 Opening ASCII mode data connection for + Net::FTP=GLOB(0x182575c)<<< 226 Transfer complete. Net::FTP=GLOB(0x182575c)>>> QUIT Net::FTP=GLOB(0x182575c)<<< 221-You have transferred 242 bytes in 1 fi +les. Net::FTP=GLOB(0x182575c)<<< 221-Total traffic for this session was 115 +9 bytes in 1 transfers. Net::FTP=GLOB(0x182575c)<<< 221-Thank you for using the FTP service on + <svr123>. Net::FTP=GLOB(0x182575c)<<< 221 Goodbye.

Replies are listed 'Best First'.
Re^2: Blues
by knovicki (Initiate) on Sep 28, 2004 at 15:02 UTC
    Hi Rhose,
    I ran your script and got the following output:
    $VAR1 = undef;
    I am starting to think it is a problem with either the Perl or installation. I am going to have the Unix Admin reinstall the software again. Thanks for your input.
    Ken Hi Everyone, I just wanted to tell you that my problem was finally resolved. Here is the reply from my Sys Admin "We found the issue, with the ftp perl protocal issue, there was an entry in /etc/nsswitch.conf in that we change the nsswitch.conf to use file entry first." Hope that makes sense. I wanted to provide closure to this just incase someone else ran into the same problem. Once again, thanks for all of your help. Ken