Re: [問題] 正規表示法疑問
#!/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
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
