06/11/16 00:50:00
あ遺憾 + が抜けとった
=~ /^[\x00-\x7F]+$/
my ($mat, $code) = &jcode'getcode (\$article);
&reject if $code ne 'sjis';
06/11/16 00:50:00
あ遺憾 + が抜けとった
=~ /^[\x00-\x7F]+$/
my ($mat, $code) = &jcode'getcode (\$article);
&reject if $code ne 'sjis';