open (LIST,"list") or die "can't open List file";
@LIST=<LIST>;
close LIST;
my %hash;
for (my $i=0;$i<$node_num;$i++){
open (LOG,"bzip2 -cdv access$i.bz2 |") or die "can't open access$i log file";
#undef %test;
@LOG = <LOG>;
foreach $domain(@LIST){
chomp $domain;
foreach $data (@LOG){
push @{$hash{$domain}},$data if ($data =~ /http:\/\/$domain/);
}
close LOG;
}
}