Encodeモジュール

• ＰｅｒｌＩＯによる変換

• ３引数のopenを使用する

  • use Encode;open IN, “<:encoding(shiftjis)”, $infile or die;open OUT, “>:encoding(euc-jp)”, $outfile or die;while (<IN>) { print OUT $_;}