perl 任意の文字コードのファイルを扱う - (ﾟ∀ﾟ)o彡 sasata299's blog

2008年09月24日23:09 Perl perl 任意の文字コードのファイルを扱う perlでファイルを扱うときに、そのファイルがどの文字コードでエンコードされているのかわからないことがあります。文字コードがわからないと、文字コードを変換するときに困ってしまいます。どうしたらいいの！？助けて！！ ・・そんなときはこれでおｋです（・∀・） #!/usr/bin/perl use strict; use warnings; use Encode; use Encode::Guess; for my $file (@files) { # sjisとかeuc-jpとかのファイル open my $fh, $file or die $!; my $data = join '', <$fh>; close $fh; my $enc = guess_encoding($data, qw/shiftj

[akatakun]

インプットの文字コードが分からないとき。