perl匹配一行中多个字符串
比如一行数据
(21,0,0)(110,33,0)(117,1,2)
规律就是一对()内有3个数字，我只要第一个数字，每行输出一个
echo "(21,0,0)(110,33,0)(117,1,2)" | perl -ne 'print "$1\n" if /\((\d+)/'
结果是21
我希望是
21
110
117
请教各位大牛
perl
正则
------解决方案--------------------是要加 /g 吗？------解决方案--------------------echo "(21,0,0)(110,33,0)(117,1,2)"
------解决方案--------------------
perl -ne '@d = /\((\d+)/g; print join("\n", @d)'
