http://qs321.pair.com?node_id=391846

drock has asked for the wisdom of the Perl Monks concerning the following question:

All How can I put any errors to STDOUT or in the case $ftplog, with a Net::FTP block? This is currently not putting anything to my $ftplog file. Here is my code: 
        sub ftpme {

                my $remotehost="ftp.foo.com";
                my $remotedir="archive";
                my $user="xxxxx";
                my $pass="xxxxxx";
                my $data=$scratchtps;
                my $ftplog="/usr/local/log/ftp_IrMt_scratchtapes.log";
                
                my $ftp = Net::FTP->new($remotehost, Debug => 10)
                || die "Cannot connect to $remotehost: IronMt: $!, pri
+nt ($ftplog)";
                $ftp->login($user, $pass) or die "Login failed!: $!, p
+rint ($ftplog)";
                $ftp->ascii();
                $ftp->cwd($remotedir);
                $ftp->put($data) or die "FTP put to IrMt failed!: $!, 
+print ($ftplog)";
                $ftp->quit;

        }

[download]

Replies are listed 'Best First'.
Re: Net::FTP and putting errors to STDOUT???
by ikegami (Patriarch) on Sep 17, 2004 at 17:27 UTC

    This might do the trick:

    sub ftpme {
                my $remotehost="ftp.foo.com";
                my $remotedir="archive";
                my $user="xxxxx";
                my $pass="xxxxxx";
                my $data=$scratchtps;
                local *FTPLOG;

                open(FTPLOG, ">>/usr/local/log/ftp_IrMt_scratchtapes.l
+og")
                or die("Can't open log file");
                
                my $ftp = Net::FTP->new($remotehost, Debug => 10)
                or do { print FTPLOG "Cannot connect to $remotehost: I
+ronMt: $!"; die(); };
                $ftp->login($user, $pass)
                or do { print FTPLOG "Login failed!: $!"; die(); };
                $ftp->ascii();
                $ftp->cwd($remotedir);
                $ftp->put($data)
                or do { print FTPLOG "FTP put to IrMt failed!: $!"; di
+e(); };
                $ftp->quit;

        }

    [download]
[reply]
[d/l]
      cool...thanks! What is the * next to the FTP filehandle represent?
[reply]

        Similiar to $ = scalar, @ = array, % = hash and & = code, there is a -what's-the-word- for symbol table entries and file handles: *.

        
print("1\n");
open(HANDLE, '<', 'lines.txt') or die("!1\n");
print(scalar(<HANDLE>));
close(HANDLE);
print("\n");

print("2\n");
$h = *HANDLE;
open($h, '<', 'lines.txt') or die("!2\n");
print(scalar(<HANDLE>));
print(scalar(<$h>));
close($h);
print("\n");

print("3\n");
$h = \*HANDLE;
open($h, '<', 'lines.txt') or die("!3\n");
print(scalar(<HANDLE>));
print(scalar(<$h>));
close($h);
print("\n");

        [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom