Question

perl 语言，有个正则的匹配不明白，my $file = shift; $file =~ /(s_7|s_8)/;

这个匹配在寻找什么？多谢多谢

Answer 1

my $file = shift;
if($file =~ /(s_7|s_8)/){
print $file;
}

这个脚本查找的是
$file变量里面是否存在 s_7 或者s_8 这两个字符串。
比如 将上面的代码保存为run.pl 然后再命令行输入
perl run.pl s_7
那么最后就会在屏幕打印出s_7
如果输入
perl run.pl s_8
那么久打印s_8
而输入其他的 比如s_6则不打印。
其中
$file = shift;
表示将脚本后面跟的字符串提取到$file这个变量里面。

追问

所以说s_8 或者s_7 其实没有什么特殊含义是么？只是个字符串的形式？
如果是这样的话，谢谢^_^

追答

没有特殊含义，只是普通字符串。只是其中的 | 线表示或者的意思而已。

Answer 2

当前路径下的s_7或者s_8子目录