[04:09:09 tty1 [EMAIL PROTECTED] /mnt/data/perl
# perl Net-SCP-Expect.pl
File copied!
# cat /tmp/Net-SCP-Expect.pl
#!/usr/bin/perl -w
use strict;
use Net::SCP::Expect;
my $host = 'localhost';
my $user = 'abu';
my $pass = 'xxx';
my $conn = Net::SCP::Expect->new(
host => $host,
user => $user,
password => $pass,
);
if ($conn->scp('Net-SCP-Expect.pl', '/tmp/')) {
print "File copied!\n";
} else {
print $conn->errstr . "\n";
}
-az
Abdul Halim([EMAIL PROTECTED])@Wed, Jul 23, 2003 at 06:06:59PM +0700:
> Haloo..
>
> Aku lagi bikin script perl yang menggunakan module Net::SCP::Expect.
> Masalahnya, file yang terkopi di remote host menjadi 0 Kb :(
>
> Ini scriptnya:
>
> #!/usr/bin/perl
>
> # testscp.pl
>
> use Net::SCP::Expect;
> my $h_scp = Net::SCP::Expect->new(host=>'nama.host.ac.id',user=>'ah',
> password=>'abcd');
>
> $h_scp->scp('file_dr_mesin_lokal.txt','/home/ah');
>
> # EOF
>
> Setelah dijalankan, muncul pesan:
> "at /usr/local/lib/perl5/site_perl/5.8.0/Expect.pm line 733t supported"
>
> Aku sudah googling, tapi ga nemu :( Please... someone help me..!
>
> TIA
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
