#!/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