Perl中grep函数的作用

[b][color=red]Perl中grep函数类似Java中contains方法：[/color][/b]

#!/usr/bin/perl

print("start...\n");

if (5) {
print("5 is true in if conditon.\n");
}

print("----------- start to test ---------------\n");
my $tempStr = "SAAAA000000/AAA";
if (grep (/AAAA00000/, $tempStr)) {
	print("grep function in Perl like contains function in Java!\n");
}

print("end.\n");

[color=red][b]执行结果：[/b][/color]

[img]http://dl.iteye.com/upload/attachment/0082/4047/3ba45121-bbe1-3db2-b335-2b0dd4b3202a.png[/img]