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

Question

How would one be able to do this? I know you have to use <>.I already tried giving it a shot,but it might just because I am on 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

You didn't state whether you need to treat the files differently or not. If not, then you can just use <> without needing to call open explicitly.

while (<>) {
  # Process $_
}

will work fine. When it gets to the end of the first file, <> will continue on with reading the second file. And so on until it runs out of files to read.