只针对目前的资料的话 可以用 split 分开资料栏位 用 s/\s+//g 取代掉空白字元 可以检查 substr($data, -1, 1) 是不是 "]" 就知道有没有括号, 同理可以用 substr($data, -2, 1) 取得数字的资料 用一个 for 回圈跑 split 产生的资料, 确定没有括号的先印出来 有括号的先 push 在 buffer 里, 一直到确定括号资料没有连续了取出印出 ※ 引述《pat12345 (咖啡杯)》之铭言： : 大家好，我是perl初学者， : 我想把以下的文字做换列的转换， : 难的地方是带括号的， : 想请大家给我一些建议， : 感激不尽~~ : input: : A, B, C[1], C[0], D, P[3], P[2], P[1], : output: : A; : B; : [1:0] C; : D; : [3:1] P; --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.217.80.35 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Perl/M.1555936234.A.77E.html