Am 17.06.2013 09:26, schrieb jis:
Use Windows 64-bit, perl 32-bit and perl2exe 32-bit. Created files are
running on Win7 32-bit. I do it almost every day.
Peter
Peter,
Can you try to convert the following script for 32 bit platform from window 7 64 bit please??
use strict;
use Net::SFTP::Foreign;
use Net::SFTP::Foreign::Constants qw
flags);
use Net::SMTP;
use File::Basename;
use Sys::Hostname;
use File::Compare;
my $temp="temp.txt";
my $file = $ARGV[1];
my $remote = $ARGV[2];
my $remoteIpAddress=$ARGV[0] ;
my $SFTP_user="user";
my $SFTP_password="pwd";
my $SFTP_host=$remoteIpAddress;
my %args = (backend => 'Net_SSH2',
username => $SFTP_user,
password => $SFTP_password);
$Net::SFTP::Foreign::debug = 0;
my $sftp = Net::SFTP::Foreign->new($SFTP_host,%args) or
die "Unable to connect to $SFTP_host : $!\n";
while(1)
{
open(INF,"<".$file);
binmode INF;
$sftp->put(\*INF,$remote);
die "Error transferring $file to $SFTP_host::$remote\n".$sftp->status() if $sftp->error;
close(INF);
print "$file transfered to $SFTP_host\n";
sleep(1);
$sftp->get($remote,$temp, numbered => 1) or die "file transfer failed: " . $sftp->error;
if (compare($file,$temp) == 0)
{
print "File read back- found equal\n";
}
else
{
print "File read back- found NOTequal\n";
}
unlink $temp;
print "Removing file: $remote\n";
$sftp->remove($remote);
die "Error removing file from $remote\n".$sftp->status() if $sftp->error;
sleep(1);
}
$sftp = undef;
