Hail2u

plain_text_alt plugin

plain_textプラグインを大幅に改造したというか、パクった。しかも、重要な部分のコードすらも、PerlメモのHTMLタグの正規表現からパクる。公開なんて出来ない。

$out =~ s/\x0D\x0A|\x0D|\x0A//g;
$tag_regex_ = q{[^"'<>]*(?:"[^"]*"[^"'<>]*|'[^']*'[^"'<>]*)*(?:>|(?=<)|$(?!\n))}; #'}}}}
$comment_tag_regex = '<!(?:--[^-]*-(?:[^-]+-)*?-(?:[^>-]*(?:-[^>-]+)*?)??)*(?:>|$(?!\n)|--.*$)';
$tag_regex = qq{$comment_tag_regex|<$tag_regex_};
$out =~ s/$tag_regex//g;

やってることはこんな感じ。