[error] [client ---- ] Argument

質問

初心者で
http://oshiete1.goo.ne.jp/qa5056638.html
で質問した者です。もうひとつ、お願いします。
Apache　の　error.log に
[error] [client ---- ] Argument "..." isn't numeric in addition (+) at ... 0001.cgi line 85.,
と表示されるのを、防ぐ方法をお教えください。

↓このようにしています。
open(FILE, '<+score.txt') or die "$!";
my @data = <FILE>;
close(FILE);
my $data2 = $data[0] +1;#------------- line85
open(FILE, '>+score.txt') or die "$!";
print FILE $data2;
print FILE (",問題番号,$num,$year年$mon月$day日 $hour時$min分$sec秒\n");
print FILE @data;
close(FILE);
print "<font size=+1>今日　";
print "<font color=magenta>$data2</font color>";print "回　正解解答をしました --- </font size>　";

1時間に、0001.cgiと同じように書かれれたファイル約100個に、約40人がアクセスします。Apache　の　error.log　が、すぐ大きくなってしまいます。どうか、よろしくお願いします。

回答No.1

t-okura · ベストアンサー

$data[0] は "222,問題番号,999,2009年6月22日 22時40分13秒\n"
のような文字列ですよね。これに +1 するのは、perl だからできるものの
少し乱暴ではありませんか。最初の数字の部分を取り出して、+1 しましょ
う。
例えば、
my ($data2) = split /,/, $data[0], 2;
$data2++;
のように。

お礼

まことにありがとうございました。やてみます。すみませんでした。