簡易版WEBのソース
|
<a name=initialize>
<h3>初期化処理</h3>
<a href="#prologue">prologue()
</a>では変数の初期化などを行なう。
<code>%SIG<code>に関数名を指定しておくと、
signalが発生したときに<code>$SIG{シグナル名}</code>の関数が呼ばれる。
ここではSIGINTなどを受け取った時に
<a href="#finish"><;code>finish()</code></a>が呼ばれるようにしている。
<a name="prologue"></a>
<pre file=wtangle>
sub prologue {
require 'cacheout.pl'; # 複数ファイル出力ライブラリ
if($#ARGV < 0){
print STDERR "wtangle --- Web Tangle\n";
print STDERR "Usage: wtangle documentfiles\n";
exit 0;
}
$SIG{'INT'} = $SIG{'TERM'} =
$SIG{'QUIT'} = $SIG{'HUP'} = 'finish';
}
</pre>
<h3>メインルーチン</h3>