[請益] 在一行code中split兩次

看板Perl作者 (醉落~最弱)時間9年前 (2014/12/01 22:40), 編輯推噓1(1推 0噓 6→)
留言7則, 4人參與, 最新討論串1/4 (看更多)
各位版大好, 有筆data 我希望用條件A split第一次並取出split後元素 1,3,5 之後再用條件B split第二次, 這時我需要取第1個元素並把資料存到 @rawdata裡面 我已經可以分兩次做完 但是我想以perl的強大功能, 應該可以更簡潔. 是否有辦法用一行就把這"兩"個動作完成 ? 感謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.135.242.247 ※ 文章網址: http://www.ptt.cc/bbs/Perl/M.1417444813.A.093.html
→
12/01 23:01, , 1F
不先提供sample code嗎？
12/01 23:01, 1F
推
12/02 00:16, , 2F
$s = '1,2_3,4_5,6_7';
12/02 00:16, 2F
→
12/02 00:16, , 3F
split /_/, (join '', split /,/, $s);
12/02 00:16, 3F
→
12/02 00:16, , 4F
是這樣嗎？
12/02 00:16, 4F
→
12/02 03:14, , 5F
對啊~~ 原po先給你的版本幫助大家理解嘛 ^^ (敲碗)
12/02 03:14, 5F
→
12/02 20:06, , 6F
以樓上的範例 我猜應該是
12/02 20:06, 6F
→
12/02 20:06, , 7F
map{[split /_/]->[0]}@{[split /,/,$s]}[0,2,4]
12/02 20:06, 7F
‣ 更多 josefy 的文章
文章代碼(AID): #1KV7tD2J (Perl)
‣ 更多 josefy 的文章
文章代碼(AID): #1KV7tD2J (Perl)