Perl语言入门（第8版）

96

｜

第

5

章

既然和其他数组一样，你可以用

shift

移出

@ARGV

中的元素，或者用

foreach

逐个处

理。你也可以检查是否有参数是以连字符

（

-

）

开头的，然后将它们当成调用选项处

理（就像

Perl

对待它自己的

-w

选项一样）。

如果你需要的命令行选项不止一两个，最好用标准模块实现。请阅

读

Getopt::Long

和

Getopt::Std

模块的文档，它们都是随

Perl

发行的标准模

块。

钻石操作符会查看数组

@ARGV

，然后决定该用哪些文件名，如果它找到的是空列表，

就会改用标准输入流；否则，就会使用

@ARGV

里的文件列表。这表示程序开始运行之

后，只要尚未使用钻石操作符，你就可以对

@ARGV

动点手脚。例如，我们可以处理三

个特定的文件，不管用户在命令行参数中指定了什么：

@ARGV = qw# larry moe curly #; #

强制让钻石操作符只读取这三个文件

while (<>) {

chomp;

print "It was $_ that I saw in some stooge-like file!\n";

}

输出到标准输出

print

操作符会读取它后面的参数列表中的所有元素，并把每一项（当然是一个字符

串）依次送到标准输出。它在每项之前、之后与之间都不会再加上额外的字符。要是

想在每项之间加上空格并在结尾加上换行符，你得这么做：

$name = "Larry Wall";

print "Hello there, $name, did you ...