Perl で、A→α、B→β、…というハッシュテーブルを用いて文字置換を行うコードの覚書。
#!/usr/bin/perl use strict; my %charmaps = ( '&' => '&', '>' => '>', '<' => '<', '"' => '"', ); my $charmaps = join '|', map { quotemeta } keys %charmaps; my $string = qq{Hello, <b>World</b> & Everybody!? }; $string =~ s/($charmaps)/$charmaps{$1}/eg; print $string;