h2z.pl

#! /usr/bin/env perl
=head
半角カタカナ→全角カタカナ変換を調べたのでメモ
=cut
use strict;
use warnings;

use Encode;
use Encode::JP::H2Z;

open FH, "<hankaku.txt";

my @line = <FH>;
foreach my $line(@line){
  Encode::from_to($line, "utf-8", "euc-jp");
  Encode::JP::H2Z::h2z(\$line);
  Encode::from_to($line, "euc-jp", "utf-8");
  print $line, "\n";
}