自作の掲示板では、入力されたテキストのうち行頭が > で始まる行を <i> タグで囲んだり、URL やメールアドレスを思われる文字列に適切なリンクを与えるなどの整形を行なっています。 他にも使えるかも知れないのでコードのメモ。
my $comment =<<'HEREDOC'; テキストテキスト > 引用されるテキスト >> 引用されるテキスト テキストテキスト 文中のURLは自動でリンクされます http://www.yahoo.co.jp/ メールアドレスも自動でリンクされます piroli@example.com ここは>>>クォートされません HEREDOC ### 記事登録前にエスケープしてしまう ### Windows + ActivePerl では → に変更 $comment =~ s!^( )+!!g; # 文頭の連続する改行 $comment =~ s!( )+$!!g; # 文末の連続する改行 $comment =~ s!"!"!g; # " $comment =~ s!<!<!g; $comment =~ s!>!>!g; $comment =~ s!( )+!<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;
寄せられたコメント (全 2 件中、最新 5 件まで表示しています)
こんな辺境ブログの独自CAPTCHAを破る物好きが居るとは思えないのでおそらく手動投稿でしょうね。
海外の安い人件費に物を云わせて手動で投稿して回っているという話を聞いたことがあります。
自動だったらすごいなぁと思ってしまいました。
全然元の記事に関係ないコメントですみません。
(管理者の判断で削除してもらって全く構いません)