[Perl] テーブルによる文字置換

Posted by
ぴろり
Posted at
2009/03/21 23:23
Post Comment
コメントできます
Category
開発メモ カテゴリ

 Perl で、A→α、B→β、…というハッシュテーブルを用いて文字置換を行うコードの覚書。

この記事を Delicious に追加する   このエントリーをはてなブックマークに追加  

#!/usr/bin/perl
use strict;
my %charmaps = (
    '&' => '&',
    '>' => '>',
    '<' => '&lt;',
    '"' => '&quot;',
);
my $charmaps = join '|', map { quotemeta } keys %charmaps;

my $string = qq{Hello, <b>World</b> & Everybody!?
};

$string =~ s/($charmaps)/$charmaps{$1}/eg;

print $string;
この記事を Delicious に追加する   このエントリーをはてなブックマークに追加  


この記事を読んだ人はこんな記事も読んでいます記事リコメンデーションについて

カバー画像:Mac OS X のフォントを Chicago っぽくする

この記事のアーカイブ

全ての記事 »
2009年
全てのカテゴリ »
電算室 » 開発メモ
全てのタグ »
,

コメントを投稿する

 
 (必須, 匿名可, 公開, トリップが使えます)
 (必須, 匿名可, 非公開, Gravatar に対応しています)
 (必須)
スパム コメント防止のため「投稿確認」欄に ランダムな数字 CAPTCHAについて を入力してから送信してください。お手数ですがご協力のほど宜しくお願いいたします。