#! /usr/bin/perl -w

ÌáÈ¡žùŸÝGrid ScoreÅÅÐòÇ°200µÄmol2ÎÄŒþ

open (NAME, $ARGV[0]) or die "$!";
open (MOL2, $ARGV[1]) or die "$!";

while () {
chomp;
push @name, $_;
}

while () {

chomp;

push @mol2, $_;

}

$flag=0;

for ($i=0; $i<@name; $i++) {
@name_score=split (/\s+/, $name[$i]);
for ($j=0; $j<@mol2; $j++) {
if (($mol2[$j] =~ /Name: $name_score[0]/) && ($mol2[$j+4] =~ /Grid_Score: $name_score[1]/)) {
print "$mol2[$j]";
$flag=$flag+1;
for ($m=$j+1; $m<@mol2; $m++) {
if ($mol2[$m] =~ /# Name:/) {
last;
} else {
print "$mol2[$m]";
}
}
}
}
}

print $flag;

close NAME;
close MOL2;

这是我的pl脚本文件getmol2files_backup.pl内容，一直不知道咋回事儿
运行代码后：Use of uninitialized value $name_score[0] in regexp compilation at sun_getmol2files_backup.pl line 23, line 233117.