#!/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
This version of the page was edited by TakeAsh at . View the most recent version.