Re: FTP

[robin]

It sounds as though you want to see the raw FTP commands and responses. You can pass the option     Debug => 1, as an argument to Net::FTP->new(). Alternatively, you can call $ftp->debug(1); on your Net::FTP object. The raw commands and responses will be printed to STDERR. Here's an example program:

  #!/usr/bin/perl -w
  use strict;
  use Net::FTP;

  my $ftp = Net::FTP->new("ftp.cpan.org", Debug => 1);

  $ftp->login("anonymous", '[e-mail]');
  $ftp->cwd("/pub/CPAN");
  $ftp->get("README", '/tmp/CPAN-README');
  $ftp->quit;

and its output:

  Net::FTP: Net::FTP(2.58)
  Net::FTP:   Exporter(5.562)
  Net::FTP:   Net::Cmd(2.19)
  Net::FTP:   IO::Socket::INET(1.25)
  Net::FTP:     IO::Socket(1.26)
  Net::FTP:       IO::Handle(1.21)

  Net::FTP=GLOB(0x1c1dbc)<<< 220 siobhra.indigo.ie FTP server (Version
+ 6.00) ready.
  Net::FTP=GLOB(0x1c1dbc)>>> user anonymous
  Net::FTP=GLOB(0x1c1dbc)<<< 331 Guest login ok, send your email addre
+ss as password.
  Net::FTP=GLOB(0x1c1dbc)>>> PASS ....
  Net::FTP=GLOB(0x1c1dbc)<<< 230 Guest login ok, access restrictions a
+pply.
  Net::FTP=GLOB(0x1c1dbc)>>> CWD /pub/CPAN
  Net::FTP=GLOB(0x1c1dbc)<<< 250 CWD command successful.
  Net::FTP=GLOB(0x1c1dbc)>>> PORT 62,136,150,113,192,10
  Net::FTP=GLOB(0x1c1dbc)<<< 200 PORT command successful.
  Net::FTP=GLOB(0x1c1dbc)>>> RETR README
  Net::FTP=GLOB(0x1c1dbc)<<< 150 Opening ASCII mode data connection fo
+r 'README' (1941 bytes).
  Net::FTP=GLOB(0x1c1dbc)<<< 226 Transfer complete.
  Net::FTP=GLOB(0x1c1dbc)>>> QUIT
  Net::FTP=GLOB(0x1c1dbc)<<< 221 Goodbye.