Open MagicVox.net
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;
English