本文共 633 字，大约阅读时间需要 2 分钟。

-- Start

在需要的时候我们可以向 Perl 脚本传递参数，Perl 会自动将所有的参数放到数组 @ARGV 中， 下面是一个简单的例子。

#!/usr/bin/perluse strict;if(@ARGV != 1) {	# die 函数用来输出错误信息并退出程序	# $0 中存储的是脚本的名字	die "Usage: $0 
   
    ";}my ($name) = @ARGV;print "Welcome $name!\n";
   

Unix 的 cat 命令可以一次查看多个文件，如下：

cat a.txt b.txt

我们也可以给 Perl 脚本传递多个文件，Perl 的钻石操作符(<>)可以用来读取这些文件，以此来实现类似 cat 命令的功能，下面是一个简单的例子。

#!/usr/bin/perluse strict;# 如果没有向脚本传递参数，<> 将会从标准输入读取数据if(@ARGV == 0) {	print "请输入...\n";}while (my $line = <>) {	print $line;}

将上面的 Perl 脚本保存为 cat.pl，然后我们通过如下的命令执行上面的脚本。

cat.pl a.txt b.txt

-- 更多参见：

-- 声 明：转载请注明出处

-- Last Updated on 2012-06-28 -- Written by ShangBo on 2012-06-26 -- End