大家好，小弟的程式码是这样
先开档读档
while (<FILEIN>){
if ($_ =~ /name (\S+) /)
{
$name=$1;
push @name_array, $name;
}
if ($_ =~ /spec (\S+) (\S+) (\S+)/)
{
push @spec_array, $1, $2, $3;
}
if ($_ =~ /spec (\S+)/)
{
push @spec_array, $1;
}
}
close (FILEIN);
for ($i=0;$i<=$#name_array;$i++){
print "name : @all_name[$i]\n";
for ($j=0;$j<=$#spec_array;$j++)
{
print "spec : @spec_array[$j]\n";
}}

对同一字串 能进第二个if区块内的也能进第三个内 这是你要的?

而且你没比对到value啊...

是有比对value，但是写法一样，印出也是一样的状况所以就没放上来了，不好意思f大您好，因为我不确定怎样写比较好，所以就先比对可比对的