Perlについて

[629 デフォルトの名無しさん 2012/01/20(金) 01:01:19.90]

# 問3) 裏から覗く？　難易度:★★☆

my $text = '\\表\\\助\\封\\呂\\表\\\';

while($text =~ /([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]|[\x00-\xFF])/g){
if($1 eq '表\'){
print '裏';
}
else{
print $1;
}
}

__END__
※ このスクリプトは perl を使って実行します

perl と jperl の使い分けがポイントです。
授業で教えましたよね？

それと宿題を２チャンネルで行うのは今後、禁止いたします。