[問題] 取值

[yalent ( 心只有妳 )]

大家好，小弟有一個檔案內容為

ID2*1,2,4*2,3,4*
ID3**2*
ID4***

想將內容轉為
ID2 1
ID2 2
ID2 2
ID2 3
ID2 4
ID2 4
ID3 2
ID4

小弟目前只有辦法取值(如下)，但是要排成我想要的樣子..毫無頭緒..

if ($_ =~ /(.*)\*(.*)\*(.*)\*/ )
{
     print "$1  $2   $3\n"
}

不曉得關於這個部份要怎麼處理呢?







--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.130.131.58
※ 文章網址: http://www.ptt.cc/bbs/Perl/M.1397290548.A.496.html
推 uper:問一下喔 一行裡面都會有三個*嗎？
→ yalent:是的，每一行都會有三個*