perl scipt：使用 expect 模块生成 bash 命令时出现意外令牌的语法错误

Question

我正在编写 perl 脚本来将目录复制到远程机器。 我正在使用一个期望模块来接收密码并发送密码。

但出现如下语法错误

sh: -c: line 0: 意外标记附近的语法错误scp'
sh: -c: line 0:system(scp -r /home/user1/data/192.168.0.1:/tmp/)'

perl 脚本是：

use Expect;  
$Expect::Debug=2;

$cmd="scp -r /home/user1/data/ 192.168.0.1:/tmp/";

my $exp1=Expect-> spawn("system($cmd)") or die print "cannot spwan process\n";


$exp1-> expect(10,["root@192.168.0.1's password: "=>sub{ $exp1-> send("usr1234\r");}]);

提前谢谢你

Answer 1

spawn 需要一个 shell 命令，而不是 Perl 代码。所以：

my $exp1=Expect-> spawn($cmd)) or die;

您看到的错误消息只是您的 shell 说它不知道如何处理 'system(scp...'。

并且：您需要屏蔽“@”。

Answer 2

我不完全确定你的脚本出了什么问题（当然是 spawn(system($cmd)) 的执行，但这已经在 cmets 中解决了。也许 => 不需要？或者你需要结束密码\n 而不是 \r？不管怎样，这很简单。我使用了类似下面的东西来达到很好的效果（注意 $rsync 是我的 Expect 对象）。

    $rsync=Expect->spawn ("rsync $remUser\@$remIp:$remFiles $locFolder");

    if (! defined($rsync))
    {
        die "spawning failed. Probably fork failed: $!";
    }

    my $matchStatus = $rsync->expect(100, '-re', '(.+)');

    if (! defined $matchStatus)
    {
        die "Nothing got returned within 100 seconds. $!";
    }

    my $spawned = 0;
    while ($spawned eq 0)
    {
        my $return = $rsync->match();

        if ($return =~ m/command not found/)
        {
            die "Command not found, there appears to be no rsync... $!";
        }
        elsif ($return =~ m/RSA key fingerprint is/)
        {
            $rsync->send ("yes\n");
            sleep(5);
        }
        elsif ($return =~ m/password/)
        {
            $rsync->send($password,"\n");
            $spawned = 1;
        }
        else 
        {
            print "rsync answered:\n\n";
            print "$return \n";
            print "I did not expect that. EXIT\n";
            exit(1);
        }
    }

print "Sent Pw...\n";

这可以处理更多不同的答案，并且可以更轻松地进行修改和调试。但显然要长得多。不过，我更喜欢明确而不是优雅。