Perl 在 while 循环中挂起

Question

此代码由于某种原因挂起或在 while (<>) { $file .= $_}; 时不再继续被查询。这是为什么？

一旦我用输入的文本启动代码，它就不会输出task1。然后挂起。

代码:

#!/usr/bin/perl -w

use strict;
use JSON;

my $json = JSON->new->allow_nonref;
my $file = "";

print('task1');

while (<>) { $file .= $_ };

print('task2');

my $json_output = $json->decode( $file );
my ($c, $i, $cstr, $istr);
foreach my $cert (@$json_output)  {

        print('task3');
        $i = $json_output->{i};
        $c = $json_output->{c};

        $istr = join("", map { sprintf("%02x",$_) } @$i);
        $cstr = pack("C*", @$c);
        open(F, ">$istr.der"); print F $cstr; close(F);
        print('done.');

}

输出:

task1

Answer 1

这一行

while (<>) { $file .= $_ };

正在尝试从命令行指定的文件中读取，或者如果没有，则从标准输入中读取。如果没有任何内容通过管道传输到标准输入，那么它将等待您在键盘上输入内容。

所以我猜你没有在命令行上指定一个文件，你的程序就坐在那里等待从标准输入中获取输入。

此外，将整个文件读入单个变量的更简单方法如下:

my $file = do { local $/; <> };

参见 this article其他选项。