概要

  • 全角から半角へ変換

ソースコード

#!/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

リンク