Guru's
I am using the module Net::FTP::Common. Here is a snip of some code I am using:
use strict;
use warnings;
use Net::FTP::Common;
my $outputpath2 = "C:\\Perl_Code\\";
my $outfile1 = "ken.pl";
my ($ez,%netftp_cfg,%common_cfg,$fail1);
%common_cfg =
(
User => 'user',
Pass => 'pass',
LocalDir => $outputpath2,
LocalFile => $outfile1,
Host => 'xxx.xxx.xxx.xxx',
RemoteDir => '/path/path',
Type => 'I'
#default;
);
$ez = Net::FTP::Common->new(\%common_cfg, \%netftp_cfg);
$ez->put($outfile1) || warn ($fail1 = "FTP of $outfile1 failed\n");
I would like to capture any error message as text and save them to a variable
for later use. Any suggestions?
TIA.
--
Ken Barker
IT Lead
Americall Group, Inc
314-213-7927
[EMAIL PROTECTED]
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
