Perl 期望执行命令的输出

发布于 2024-12-11 18:16:25 字数 545 浏览 0 评论 0原文

我写了一个执行 ls 命令的小脚本。现在我想将该命令的输出存储在一个变量中，以便在进一步的 perl 脚本中使用它。不幸的是我无法获取 ls 命令的输出。

my ($core) = "servername";
    my $tel_con = "ssh ".$core. " -l $user";

    $ssh = Expect->spawn("$tel_con");
    $ssh->log_stdout(1);

    unless ( $ssh->expect( 5, -re => '$' ) ) {
            return "Never connected " . $ssh->exp_error() . "\n";
    }
    sleep 1;
    $ssh->send_slow(0, "ls -l\r");
    $ssh->clear_accum();
    my $str = $ssh->exp_after();
    print "STR = '$str'\n";

也许你可以给我一些帮助？

原文

i wrote a little script which executes the ls command. Now I want to store the output of that command in a variable to work with it in the further perl script. Unfortunately I cannot grab the output from the ls command.

my ($core) = "servername";
    my $tel_con = "ssh ".$core. " -l $user";

    $ssh = Expect->spawn("$tel_con");
    $ssh->log_stdout(1);

    unless ( $ssh->expect( 5, -re => '
Maybe you can give me some help please?
 ) ) {
            return "Never connected " . $ssh->exp_error() . "\n";
    }
    sleep 1;
    $ssh->send_slow(0, "ls -l\r");
    $ssh->clear_accum();
    my $str = $ssh->exp_after();
    print "STR = '$str'\n";

Maybe you can give me some help please?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

伴我老 2024-12-18 18:16:25

use Net::OpenSSH;

my $ssh = Net::OpenSSH->new($core, user => $user);
$ssh->error and die $ssh->error;

my $output = $ssh->capture('ls -l');

print "command output:\n$output\n\n";

use Net::OpenSSH;

my $ssh = Net::OpenSSH->new($core, user => $user);
$ssh->error and die $ssh->error;

my $output = $ssh->capture('ls -l');

print "command output:\n$output\n\n";

回复收藏 0 原文

欢你一世 2024-12-18 18:16:25

如果您不能或不想使用 Net::OpenSSH 您可以这样做：

my @output = $exp->expect(5);
print 'OUT: '.$output[3].'END';

获取整个输出（包括使用的命令、返回字符串、控制台信息）

In case you can not or don't want to use Net::OpenSSH you may do:

my @output = $exp->expect(5);
print 'OUT: '.$output[3].'END';

To get the whole output (including the used command, return string, console information)

回复收藏 0 原文

浊酒尽余欢 2024-12-18 18:16:25

您可以在单独的进程中调用 Expect 并通过 qx 获取输出或打开管道

回复收藏 0 原文

梦在深巷 2024-12-18 18:16:25

什么是send_slow？根据此命令发送 ls 命令的方式，可以通过不同的方式接收输出。

最有可能的是，命令的错误输出存储在 $?变量，可能是字节移位的。

回复收藏 0 原文

吻安 2024-12-18 18:16:25

看起来 Expect 会将所有内容重定向到 STDOUT 并在内部记录它。由于您使用 $ssh->log_stdout(1) 启用了输出，因此您应该能够直接从 STDOUT 获取 ls -l 的结果> （也许通过将标准输出重定向到变量）。您还可以看到尝试从内部日志记录中获取数据。只需确保在执行 clear_accum() 之前获取输出即可。

来自CPAN：$object->send_slow($延迟，@strings);