如何抓取该行中的字符串？
文件某行为 6 A 14 B 16 A 37 B 37 A 7 B 66
将 A 14 A 37 A 7 存入一组序列
将 B 16 B 37 B 66 存入一组序列
将 A 14 A 37 A 7 存入一组序列
将 B 16 B 37 B 66 存入一组序列
作者: mitiao 发布时间: 2011-05-11
while ($s =~ /([AB])\s+(\d+)/g) {
say "$1 >> $2";
}
say "$1 >> $2";
}
作者: zhlong8 发布时间: 2011-05-11