Perl语言入门（第8版）

134

｜

第

7

章

注意，输入时如果键入的是大写的

F

则不会匹配，关于忽略大小写的匹配模式我们稍

后再说。另外需要注意，

Alfred

中的

fred

可以匹配，即便它是另一个单词中的一

部分，稍后我们会告诉你如何规避这类匹配。

每次尝试新模式都要修改程序代码，这可能会比较麻烦，而且很傻。既然我们知道模

式字符串可以用变量内插，不如改成从命令行接受参数，作为要测试的模式：

while( <STDIN> ) {

chomp;

if ( /$ARGV[0]/ ) { #

直接使用参数会有安全隐患

print "\tMatches\n";

}

else {

print "\tDoesn't match\n";

}

}

这么写实际上是有安全隐患的，因为输入的参数可以是任何东西，而

Perl

拿到之后直

接当正则表达式进行编译运算，可能会带来预期外的行为。我们这里只是拿来自己测

试，所以风险可控，但在正式运行的程序中可不能这么干。另外请注意，运行程序的

shell

或许会要求把模式字符串用引号引起来，因为某些模式匹配字符在

shell

中是有

特殊意义和用处的：

$

perl try_a_pattern "fred"

This will match fred

Matches

But not Barney

Doesn't match

现在可以不改程序代码就直接测试不同模式了：

$

perl try_a_pattern "barney"

This will match fred (not)

Doesn't match ...