perl

Perlで未定義値かどうかを判定する方法

機嫌よく動いていた自作のスクリプトに use warnings; を入れたら作業そのものは止まることなく終了するのだけれど、 Use of uninitialized value ... と叱られるようになった。 foreach my $line (@log){ chomp($line); my ($no,$name,$date,$mail,$comment,$pass)=split(/,/,$line); # $comment が空だった場合の処理

Formをhtmlに直接表示しないでcgiで別窓表示する

読者からのFeedbackを受け付けるためにホームページ上のコンテンツごとにメールフォームを貼っていた。 SPAM対策はしてあったがそれでもそれをくぐり抜けて攻撃されることが多くなったので、各ページにフォームを貼り付けるのはやめてCGIで表示させるようにした。