作者LiloHuang (相见不如怀念)
看板perl
标题Re: [问题] 正规表示法疑问
时间Sun Oct 14 19:20:54 2007
#!/usr/bin/perl
my $answer='^(wok){2,4}$';
while(1)
{
if((my $pattern=<STDIN>)=~/$answer/)
{
print "match\n";
}
else
{
print "not match\n";
}
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.114.71.40