#!/usr/local/bin/perl # # mkframe: tips2html で変換したメモファイルのフレームを表示するような # HTML ファイルを生成する． # # [1997/10/16] OSHIRO Naoki. # # $Log:$ # $_=$ARGV[0]; $f=$_; $f=~s/(.+)\.html$/_f_.$1.html/; open(F, ">$f") || die; print F <<"EOF"; (Frame: $_) EOF close(F);