2004-07-21 Jcodeで漢字コードチェック Perl ふとディレクトリをみたら落ちてたので転記。漢字コードチェックツールがないときとかの代用。 #!/usr/bin/perl use Jcode; while (<>) { $code = getcode(\$_); print "$code: $_"; }