半角カナを全角カナに。

Perl

jcode.pl版

require '../jcode.pl';

&jcode::convert(\$value,'euc');
&jcode::h2z_euc(\$value);

Jcode.pm版

use Jcode;
&Jcode::convert(\$value,'euc');
require Jcode::H2Z;
&Jcode::H2Z::h2z(\$value);


モジュールで使うときの記述

Jcode->new($query->param('name'))->h2z()->euc());

AppBase2用

#半角カタカナを全角カタカナに変換
$query->param('name', Jcode->new($query->param('name'))->h2z());

#全角英数字を半角英数字に変換
$query->param('tel',PTool::zen2han($query->param('tel')));