close
[root@XXXXXXX]# cat multiple-match.pl
#!/usr/bin/perl
$num =shift;
$multi ='a|b|c';
if ($num=~/$multi/){
print "$num\n"; #match 'a' 'b' 'c' and print it
}
[root@XXXXXXX]# ./multiple-match.pl a
a
[root@XXXXXXX]#
全站熱搜
留言列表
