perl在命令行读取文件名，最直接的方法是使用<>操作符。这个操作符会逐行读取标准输入，如果标准输入没有数据，它会读取命令行参数指定的文件。
这听起来很简单，但实际操作中常常会遇到一些问题。我曾经在处理一个批量文件转换脚本时就栽了跟头。当时我天真地以为，只要在命令行输入perl my_script.pl file1.txt file2.txt file3.txt，脚本就能依次处理这三个文件。结果却发现，脚本只读取了file1.txt，后面的文件被忽略了。
问题出在我脚本中使用了while (<>)循环，而没有正确处理多个文件名。<>操作符在没有指定文件的情况下，默认读取标准输入。而我给它提供了多个文件名，它只把第一个文件当作输入，其余的都被当作命令行参数了，而不是文件输入。
解决方法很简单，需要在脚本中显式地打开每个文件。我们可以用@ARGV数组来获取命令行参数，它包含所有传递给脚本的文件名。下面是一个修正后的例子：
<code class="perl">#!/usr/bin/perl
foreach my $filename (@ARGV) {
open(my $fh, '<', $filename) or die "Could not open file '$filename' $!";
while (my $line = <$fh>) {
chomp $line; #去除换行符
# 处理每一行数据
print "Processing line from $filename: $line\n";
}
close $fh;
}</code>这段代码首先遍历@ARGV数组，获取每个文件名。然后，它使用open函数打开每个文件，并检查是否打开成功。or die语句会确保在打开文件失败时，脚本会终止并输出错误信息。$!变量包含系统错误信息，有助于诊断问题。 之后，它逐行读取文件内容，并进行处理（这里只是简单的打印）。最后，它关闭文件，释放资源。 记住，良好的错误处理至关重要，这能防止你的脚本在遇到问题时悄无声息地失败。
另一个需要注意的细节是，文件名中可能包含空格或特殊字符。为了避免这些字符导致脚本出错，建议使用引号将文件名括起来，例如：perl my_script.pl "file with spaces.txt" "another file.txt"。
总而言之，虽然<>操作符看似简洁，但处理多个文件时需要谨慎。通过理解@ARGV数组和正确地使用文件句柄，我们可以编写出更健壮、更可靠的Perl脚本，有效地处理命令行传入的多个文件名。 记住，仔细检查代码并进行充分的测试，能避免许多不必要的麻烦。
