[ このメッセージへの返事 ]
[ 返事を書く ]
[ home.html ]
投稿者：
Netboy @ chb0085.bekkoame.or.jp on 97/12/18 19:28:46
In Reply to: Perlで全角英数を半角にする方法あります？
posted by きむ @ banff.d-cruise.co.jp on 97/12/18 18:07:57
>
> Perl で ＣＧＩを作っているんですけど・・・
>
> 誰か知りませんか？
$temp=~tr/０-９/0-9/;
$temp=~tr/Ａ-Ｚ/A-Z/;
$temp=~tr/ａ-ｚ/a-z/;
とか．記号などもそれぞれ処理してください．あと，
$_ =~s/０/0/g; $_ =~s/１/1/g; $_ =~s/２/2/g;
$_ =~s/３/3/g; $_ =~s/４/4/g; $_ =~s/５/5/g;
$_ =~s/６/6/g; $_ =~s/７/7/g; $_ =~s/８/8/g;
$_ =~s/９/9/g;
$_ =~s/Ａ/A/g; $_ =~s/Ｂ/B/g; $_ =~s/Ｃ/C/g;
$_ =~s/Ｄ/D/g; $_ =~s/Ｅ/E/g; $_ =~s/Ｆ/F/g;
$_ =~s/Ｇ/G/g; $_ =~s/Ｈ/H/g; $_ =~s/Ｉ/I/g;
$_ =~s/Ｊ/J/g; $_ =~s/Ｋ/K/g; $_ =~s/Ｌ/L/g;
$_ =~s/Ｍ/M/g; $_ =~s/Ｎ/N/g; $_ =~s/Ｏ/O/g;
$_ =~s/Ｐ/P/g; $_ =~s/Ｑ/Q/g; $_ =~s/Ｒ/R/g;
$_ =~s/Ｓ/S/g; $_ =~s/Ｔ/T/g; $_ =~s/Ｕ/U/g;
$_ =~s/Ｖ/V/g; $_ =~s/Ｗ/W/g; $_ =~s/Ｘ/X/g;
$_ =~s/Ｙ/Y/g; $_ =~s/Ｚ/Z/g;
$_ =~s/ａ/a/g; $_ =~s/ｂ/b/g; $_ =~s/ｃ/c/g;
$_ =~s/ｄ/d/g; $_ =~s/ｅ/e/g; $_ =~s/ｆ/f/g;
$_ =~s/ｇ/g/g; $_ =~s/ｈ/h/g; $_ =~s/ｉ/i/g;
$_ =~s/ｊ/j/g; $_ =~s/ｋ/k/g; $_ =~s/ｌ/l/g;
$_ =~s/ｍ/m/g; $_ =~s/ｎ/n/g; $_ =~s/ｏ/o/g;
$_ =~s/ｐ/p/g; $_ =~s/ｑ/q/g; $_ =~s/ｒ/r/g;
$_ =~s/ｓ/s/g; $_ =~s/ｔ/t/g; $_ =~s/ｕ/u/g;
$_ =~s/ｖ/v/g; $_ =~s/ｗ/w/g; $_ =~s/ｘ/x/g;
$_ =~s/ｙ/y/g; $_ =~s/ｚ/z/g;
でも．
|