作者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
→ flu:對同一字串 能進第二個if區塊內的也能進第三個內 這是你要的? 03/06 03:08
推 dryman:而且你沒比對到value啊... 03/06 04:15
→ hws110:是有比對value,但是寫法一樣,印出也是一樣的狀況 03/06 10:08
→ hws110:所以就沒放上來了,不好意思 03/06 10:09
→ hws110:f大您好,因為我不確定怎樣寫比較好,所以就先比對可比對的 03/06 10:33