Perl查找输入文件

Question

在perl中，我需要打印所有选择的文件：

public static void main(String[] args) {
    new AAStatic();//new instance here
    m1();
    System.out.println(s);
}

ARGV是2，我可以打印它们。然后我写命令如下：

./print.pl 1.txt 2.txt 3.txt

当我以这种方式运行时，输出仅为2.txt而ARGV为0.如何检测＆lt; 1.txt作为输入文件？

文件名是1.txt，'＆lt;'用于将1.txt放入代码中。

Answer 1

如果您确实有一个以<开头的文件名，请在将其作为参数发送时将文件名放在引号中。

这只打印文件名：

perl -E 'say $ARGV[0]' "<1.txt"
<1.txt

这个小脚本打印出文件的内容：

use warnings;
use strict;

for (@ARGV){
    open my $fh, '<', $_ or die $!;
    print <$fh>;
}

示例：

perl script.pl "<1.txt"
a
b
c