mark,备忘
#!/usr/local/bin/perl
use strict;
use warnings;
my @data=qw(
nihao
wohao
);
foreach(@data){
if($_ =~ /^(ni|wo)hao$/){
print $_
}
}
perl正则表示式的备忘
http://www.runoob.com/perl/perl-regular-expressions.html
mark,备忘
#!/usr/local/bin/perl
use strict;
use warnings;
my @data=qw(
nihao
wohao
);
foreach(@data){
if($_ =~ /^(ni|wo)hao$/){
print $_
}
}
perl正则表示式的备忘
http://www.runoob.com/perl/perl-regular-expressions.html