如何在Perl中混合命令行参数和<>的文件名?

<> 是“从中指定的文件读取”的简写 @ARGV ,或者,如果 @ ARGV 为空,然后从中读取 STDIN “。在你的计划中, @ ARGV 包含值 ("sample_argument") ,因此Perl在使用 <> 操作员。

你可以通过清理来修复它 @ ARGV 在你到达之前 <> 线:

$firstarg = shift @ARGV;
print $firstarg;
$input = <>;       # now @ARGV is empty, so read from STDIN
print $input;

请参见Perlio手册页,其中部分内容如下:

空文件句柄是特殊的:它可以用来模拟sed的行为 和AWK。来自<gt;的输入要么来自标准输入,要么来自列出的每个文件 在命令行上。这里是它的工作原理:第一次评估时, @argv数组被选中,如果它为空,$argv[0]被设置为“-”,当 “打开”为您提供标准输入。然后将@argv数组作为 文件名。

如果你想要stdin,使用stdin,而不是 <> .

默认情况下,Perl使用命令行参数作为 <> . 使用完后,你应该自己用 shift;