请教自动登陆ssh,然后ftp自动传文件的脚本

QUOTE:

原帖由 deathcult 于 2003-6-5 11:52 发表

#!/usr/local/bin/perl

use Expect;

my $timeout = 2;
my $delay = 1;
my $cmd         = "ssh";
my @params = qw/202.108.xx.xx -luser -p22/;
my $pass = "password";

$exp = Expect->;spawn($cmd, @ ...