comment on

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);
[download]

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 t.pl
Net::FTP=GLOB(0x182575c)<<< 150 Opening ASCII mode data connection for
+ t.pl.
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.
[download]

In reply to Re: Net::FTP.pm Blues by Rhose
in thread Net::FTP.pm Blues by knovicki

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Don't ask to ask, just ask
	PerlMonks