作者: dune
日時: 2003/8/03(21:14)
極悪です。

chirumiru さんの [TSabc:305] 夏休み課題． から

>それでわ，ご感想，改良点などご意見を待っています．
>  ・・・
>$tile_size='2';

$title_size です。

>   if ($bg_img eq '') { $html.="<body text=\"$text\"
>   bgcolor=\"$bg\" >link=\"$link\" vlink=\"vlink\">"; }

vlink=\"$vlink\" です。

><td width="40" align="center">---&gt</td>

---&gt; です。

>   if ($mode) {
>       if (flock(OUT, LOCK_EX)) { return 1; }
>       else {return 0;}
>   }
>   else {
>       flock(OUT, LOCK_UN);
>   }

LOCK_EX と LOCK_UN は Fcntl というモジュールをロードしないと
使えません・・・が @nifty では Fcntl も使えません。

僕は flock を使ったことないので正しいかどうかわかりませんが、
下の「とほほの WWW 入門」のコードみたいに値を直に書いてしまっ
ていいと思います：

>open(OUT, "+< outfile.txt");
>flock(OUT, 2);
>truncate(OUT, 0);
>seek(OUT, 0, 0);
>print OUT "........";
>close(OUT);



スクリプトのチェックには #!/usr/local/bin/perl -w
出力した html のチェックは htmllint を使うと良いでしょう。
ゼロから書き直したくなるくらいエラーが出ます。
--
http://hpcgi1.nifty.com/dune/gwiki.pl?