[Perl] 掲示板の入力テキストを整形する

　自作の掲示板では，入力されたテキストのうち行頭が > で始まる行を <i> タグで囲んだり， URL やメールアドレスを思われる文字列に適切なリンクを与えるなどの整形を行なっています。他にも使えるかも知れないのでコードのメモ。

my $comment =<<'HEREDOC';
テキストテキスト
> 引用されるテキスト
>> 引用されるテキスト
テキストテキスト
文中のURLは自動でリンクされます　http://www.yahoo.co.jp/
メールアドレスも自動でリンクされます　piroli@example.com
ここは>>>クォートされません
HEREDOC

### 記事登録前にエスケープしてしまう
### Windows + ActivePerl では ¥r¥n → ¥n に変更
$comment =‾ s!^(¥r¥n)+!!g; # 文頭の連続する改行
$comment =‾ s!(¥r¥n)+$!!g; # 文末の連続する改行
$comment =‾ s!¥"!"!g; # "
$comment =‾ s!<!<!g;
$comment =‾ s!>!>!g;
$comment =‾ s!(¥r¥n)+!<br />!g; # 改行 → <br />

### 引用文をクォート
$comment =‾ s!(<br />|^)(>(?:[^<]*|$))!$1<i>$2</i>!g;
### URLを抽出しリンクを作成
$comment =‾ s!(http¥://[¥w¥.¥:/¥+¥-¥?‾=&%]+)!<a href=¥"$1¥">$1</a>!g; # HTTP "
$comment =‾ s!(https¥://[¥w¥.¥:/¥+¥-¥?‾=&%]+)!<a href=¥"$1¥">$1</a>!g; # HTTPS "
$comment =‾ s!(ftp¥://[¥w¥.¥:/¥+¥-¥?‾=&%]+)!<a href=¥"$1¥">$1</a>!g; # FTP "
### メールアドレスを抽出しリンクを作成
$comment =‾ s!([¥w¥.-]+¥@[¥w¥.-]+)!<a href=¥"mailto:$1¥">$1</a>!g; #"

print $comment;

コメントを投稿する

名前	(必須/公開)
メール	(必須/非公開)
返信先
コメント	お気軽にコメントをお寄せください・コメントを投稿するにはブラウザの JavaScript を有効にしてください・入力された通りに改行位置で改行されます・HTML タグは使用できませんが、文中の URL は自動的にリンクされます・"<" は "<"、">" は ">" と書いてください
投稿確認	(必須) コメントスパム防止のため投稿前にを入力してから投稿してください。お手数ですがご協力のほど宜しくお願いいたします。