Perlコーディング初心者質問スレ Part 52

[0123 nobodyさん 2006/09/23(土) 20:21:34 ID:???]

おまえらおもしろいな

use Encode qw/encode decode/;
encode( 'sjis', decode( 'sjis', $q->param('query') ) );