Re: [問題] 陣列
大家好，小弟的程式碼是這樣
先開檔讀檔
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
→
03/06 03:08, , 1F
03/06 03:08, 1F
推
03/06 04:15, , 2F
03/06 04:15, 2F
→
03/06 10:08, , 3F
03/06 10:08, 3F
→
03/06 10:09, , 4F
03/06 10:09, 4F
→
03/06 10:33, , 5F
03/06 10:33, 5F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
