|
According to perldoc Net::FTP, the method $ftp->ascii has arguments. I tried putting a 1 as the argument. It appears the files that are still being transferred in binary mode. I am running Windoze XP and Perl v5.8.0 build 804. The options I am using are
–aIPADDR -uusername -ppassword -ddefault_remote_directory -t (text or ascii mode) -h (display hash)
The remote machine is an SGI workstation. Any assistance will be greatly appreciated.
Abridged perl code follows:
use Net::FTP; use Getopt::Std; getopts ('a:u:p:d:th', \%opts);
my $default_dir = "/xxxx/Project"; # changed for this posting
# ==================== # default IP address: changed for this posting # ==================== $opts{'a'} = "xxx.yyy.zzz.41" if (not defined $opts{'a'});
# ======================================================= # append default directory if only base directory given # ======================================================= $opts{'d'} = $default_dir if (not defined $opts{'d'}); $opts{'d'} = $default_dir . '/' . $opts{'d'} if (not ($opts{'d'} =~ /^\//));
my $ftp = Net::FTP->new ($opts{'a'}, Debug => 0); $ftp->login ("tensyl", "xxxxxx"); # changed for this posting $ftp->cwd ($opts{'d'});
# ====================== # ascii (or text) mode # ====================== $ftp->ascii(1) if (defined $opts{'t'});
my $getrv; while (defined $ARGV[0]) { $getrv = $ftp->get ($ARGV[0]); if (defined $getrv) { print "$getrv\n"; } else { print ("Error in getting file: <$default_dir/$ARGV[0]>\n"); } # if
shift @ARGV; } # while
$ftp->quit; Regards,
Sui Ming Louie
|
_______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
