因为在匹配one的时候，while ($b=)读文件读完后，文件指针已指向文件结尾，那么后面几次循环就是空的。
你可以试着将文件内容读到内存里面。
#!/usr/bin/perl
open IN," open IN1," my @file1 = ;
my @file2 = ;
for $a (@file1){
chomp $a;
my @d;
for $b(@file2){
chomp $b;
if ($b=~ /$a;(.*)/){
$c=$1;
push (@d,$c);
}
}
print "$a;@d\n";
}
