07/11/30 12:46:37
フォームメールに入力された内容を半角→全角に変換するプログラムがわかりません。
$str = '$mystr';
$kigou ='@!"#$%&\'()=-^\\|{}:;+*?_/<>';
require 'jcode.pl';
if ($FORM{'namae'} ne ''){
$mystr = $FORM{'namae'};
&hankaku;
}
sub hankaku{
&Jcode'convert(*str,'euc');
if($str =~ /^[0-9]{7,11}$/){
&jcode'tr(*str,'０-９Ａ-Ｚａ-ｚ','0-9A-Za-z');
}elsif ($str =~ /\x8E/) {
&jcode'h2z_euc(*str);
}else ($str =~ /$kigou/){
&jcode'tr(*str,'＠!”#$％＆’()=－＾￥｜｛｝：；+＊?＿/＜＞','@!"#$%&\'()=-^\\|{}:;+*?_/<>');
}
&Jcode'convert(*str,'sjis');
$str = $value;
exit 0;
}
1度eucに変換してからと考えたんですが。