全角から半角へ変換

ソースコード

#!/usr/local/bin/perl

# 全角英数記号を半角英数記号に置換
# このスクリプトは「UTF-8N」として保存すること

use utf8;
binmode( STDIN, ":encoding(utf8)" );
binmode( STDOUT, ":encoding(utf8)" );

while(<STDIN>){
	tr/A-Za-z0-9!”#$%&’()/.\x{3000}/A-Za-z0-9!\"\#$%&'\(\)\/\.\x{0020}/;
	print STDOUT $_;
}

#EOF

リンク


リロード   新規 下位ページ作成 編集 凍結 差分 添付 コピー 名前変更   ホーム 一覧 検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: Sat, 31 Dec 2011 00:27:54 JST (2394d)