向脚本传递参数

-- Start

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

#!/usr/bin/perl
use strict;

if(@ARGV != 1) {
	# die 函数用来输出错误信息并退出程序
	# $0 中存储的是脚本的名字
	die "Usage: $0 <name>";
}

my ($name) = @ARGV;
print "Welcome $name!\n";

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

cat a.txt b.txt

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

#!/usr/bin/perl
use strict;

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

while (my $line = <>) {
	print $line;
}

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

cat.pl a.txt b.txt

-- 更多参见：Perl 精萃

-- 声 明：转载请注明出处 -- Last Updated on 2012-06-28 -- Written by ShangBo on 2012-06-26 -- End