Question

如何才能做到这一点？我知道你必须使用＆lt;＆gt;。我已经试过试一试，但这可能只是因为我在Windows上。

Answer 1

# run as:
#       perl my_script1.pl file1 file2
my ($file1, $file2) = @ARGV;
open my $fh1, '<', $file1;
open my $fh2, '<', $file2;
while (<$fh1>) {
    ... do something with $_ from $file1 ...
}
while (<$fh2>) {
    ... do something with $_ from $file2 ...
}
close $fh1;
close $fh2;

Answer 2

您没有说明是否需要以不同方式处理文件。如果没有，那么您可以使用<>而无需明确调用open。

while (<>) {
  # Process $_
}

会正常工作。当它到达第一个文件的末尾时，<>将继续读取第二个文件。依此类推，直到文件用完为止。

如何在Perl中从命令行读取两个文件？

2 个答案: