看板 Perl 關於我們 聯絡資訊
大家好,小弟的程式碼是這樣 先開檔讀檔 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