(DTPtechNote:775) ハッシュの正規化

[市川せうぞー <anonymous at unknown-host>]

世の中には大文字と小文字の区別のつかない人がいっぱいいると、しみじみ実感する瞬間（笑

#!/usr/local/bin/perl -w
use strict;
my %keythinks = ('A', '◎1◎', 'B', '◎2◎', 'C', '◎3◎');
my $key = "";
while(<DATA>){
s/([a-c])/($key = $1) =~ tr#a-z#A-Z#, $keythinks{$key}/ieg;

print;
}

__END__
ああaあA0CあああbああBああ
いCいいいBいいcいAいCいい
うcううBううbううcううう