2007年6月アーカイブ

my宣言して、サブルーチンでインクリメントすると数字がクリアされない。。。。

なんてのは、よくある話なので、今回はwarningについて

例えば、こんなcgiを書く

#!/usr/local/bin/perl

use strict;
use warnings;

my $a = $ENV{'HTTP_USER_AGENT'};
abc($a);

sub abc {
    my $a = shift;
    print "Content-type:text/html\n\n";
    print $a;
    exit;
}

一目瞭然！！

USER_AGENTを出力するだけですね

しかし！！

実行すると、apacheのエラーログに。。。

Subroutine abc redefined at /var/www/mod_perl/perl/test01.cgi line 9.

のが出てきます。。。

けど、ちゃんと実行されます。

何故？？