たわごと

_ Perlでプログラミング

久々にPerl使ってみると何かプログラム組みたくなってくるものです。ということで、HTMLの更新作業に重宝しているASIというソフトをPerlに移植することに。ちょっと自分用にカスタマイズしたかったのでねぇ。

_ ASI

HTML文書内に、あるファイルの最終更新日やサイズをHTMLに埋め込むツール。通常はSSIやJavaScriptを使って動的に更新するものだが、サーバーやクライアント環境によって左右されてしまう。よって、サーバーにUPする前のローカル時点で埋め込んでしまおうというもの。

ruby版も作られているみたいです。

_ [asi] asi.pl ver.1.0β1

とりあえず完成。互換性は保っているはずです。fdate(最終更新日)とfsize(ファイルサイズ)の指定ができます。対象URLリストファイルの指定はruby版と同じです。

とりあえずカスタマイズしたのは以下。（このために移植したようなもんです）

• 処理内容を画面に表示
• HTMLが書き換えられたらファイル更新日も書き換わる

本家ASIだと書き換わってもファイル更新日が変わらなかったので、upftp.plとの相性が悪かったのです。（そのためにfput(強制アップロード機能)をつけたのですｗ）

_ [asi] asi.pl ver.1.0β1.1

• ファイルが存在していない・書込み不可の時にメッセージで警告

マイナーアップデート。ちなみに、このスクリプトをTDSやupftp.plと組み合わせることでとっても楽になります。TDSで日記ファイルをつくって、asi.plで最終更新日を埋め込んで、FTPにUP、までの処理をupftp.plで設定しておけばOKなのです。(ﾟдﾟ)ｳﾏｰ

_ [♪] Eternal Melody / Apple project

Apple projectの曲。このごろこれしか紹介していないなぁ・・・それだけここの曲がすばらしいということで。