作者hws110 ( only you )
看板Perl
标题Re: [问题] 阵列
时间Wed Mar 6 00:32:42 2013
大家好，小弟的程式码是这样
先开档读档
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";
}}
------
印出的结果是
name : a1b1c1
spec : aaa1
spec : bbb1
spec : ccc1
spec : aaa1
spec : aaa2
spec : bbb2
spec : ddd3
name : a2bc
spec : aaa1
spec : bbb1
spec : ccc1
spec : aaa1
spec : aaa2
spec : bbb2
spec : ddd3
以下都是重复上面的内容。
这个样子要怎麽修改呢?
感谢~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 111.253.122.60
1F：→ flu:对同一字串 能进第二个if区块内的也能进第三个内 这是你要的? 03/06 03:08
2F：推 dryman:而且你没比对到value啊... 03/06 04:15
3F：→ hws110:是有比对value，但是写法一样，印出也是一样的状况 03/06 10:08
4F：→ hws110:所以就没放上来了，不好意思 03/06 10:09
5F：→ hws110:f大您好，因为我不确定怎样写比较好，所以就先比对可比对的 03/06 10:33