日志统计IP数，卡住了，请各位不吝赐教。

下后下前拳

日志的格式如下：
58.20.46.212 - - [15/Nov/2010:15:24:11] "GET /announce?info_hash=5%de0%23d%d3%24%04%83%c0q%fe%5dj%eb%beK%3f%7b%0d&peer_id=-QD1900JAjDdcr527bDL&port=80&uploaded=22620764&downloaded=1184644876&left=6872891392&key=b285cead&compact=1&numwant=200&no_peer_id=1 HTTP/1.0" 200 46 "-" "qqdownload/1.9.273.0"

代码如下：
#!/usr/bin/perl
use warnings;
use strict;

my $day=`date -d 'yesterday' +%d/%b`;
print $day;
my $file="/var/log/bt.log";
my $i=0;
my @line;
my %ip;

open(BT,$file);
my @array=<BT>;
close(BT);

foreach(@array){
        @line=split(' ',$_);
                if ($line[3]=~/^\[$day/ && $line[7]==200){
                $ip{$line[0]}=1;
                }
        }

foreach (keys %ip){
$i++;
}

print $i."\n";

总是报错。。Use of uninitialized value in pattern match (m//) at ./bt_calculate.pl line 18.
弄了半天都是这个问题。。疯了

zhlong8

@line 没那么长，下标3没数据看来。查检下 split 分割的数据对不对，log 有没空行

下后下前拳

$line[5]之间没空格，因为版面问题看起来有点怪，
这个$line[3]和$line[7]都能正确打印出来，就是做正则时出现问题。

zhlong8

看报错就是 $line[3]的问题，还是上面那句，看你 LOG 的格式是不是有空行，或者 split 后还不够4项的

还有这个是警告，程序还是会继续执行的，难道一个正确的都没有？

下后下前拳

哎哟。。一个正确的都没有。。刚试了下
我再好好看看LOG，找找落下了什么。

zhlong8

那个200应该是在第6列吧？不对，是7

zhlong8

你的程序，我用你上面那条数据，是正确的……

下后下前拳

呃啊

zhlong8

所以说，还是一是 $day 这个我改成15了，windows 没办法。再就你LOG格式了

下后下前拳

兄弟，谢谢你，我找到问题了，我应该 chomp（$day）一下。。。