ハードなソフトの話

アクセスカウンタ

zoom RSS 続・ウェブリログでソースを貼り付けるのに便利かもしれないツール(Perl編)

<<   作成日時 : 2006/03/21 22:24   >>

ブログ気持玉 0 / トラックバック 0 / コメント 0

既に母国がPerlになっているせいもあるけれど、前に「ウェブリログでソースを貼り付けるのに便利かもしれないツール (http://hardsoft.at.webry.info/200603/article_6.html)」でVBScriptで書いたツールをPerlで書き直した。
VBScriptで書くと長すぎてるし、直しにくいしで、ムカついてきたため。<code>を加えたり、余計な改行を減らしたり、タブをスペースに展開したりして、機能も少し向上している。ソースはこんな感じ。ファイル名は bloq.pl としましょう。
use strict;
use Text::Tabs;
print "<blockquote><code>";
while(<>){
  $_=expand($_);
  s/\&/&amp;/g;
  s/ /&nbsp;/g;
  s/</&lt;/g;
  s/>/&gt;/g;
  print $_;
}
print "</code></blockquote>","\n";

やっぱり、Perlで書くと短くなる。

テーマ

関連テーマ 一覧


月別リンク

ブログ気持玉

クリックして気持ちを伝えよう!
ログインしてクリックすれば、自分のブログへのリンクが付きます。
→ログインへ

トラックバック(0件)

タイトル (本文) ブログ名/日時

トラックバック用URL help


自分のブログにトラックバック記事作成(会員用) help

タイトル
本 文

コメント(0件)

内 容 ニックネーム/日時

コメントする help

ニックネーム
本 文
続・ウェブリログでソースを貼り付けるのに便利かもしれないツール(Perl編) ハードなソフトの話/BIGLOBEウェブリブログ
文字サイズ:       閉じる