L******r
发帖数: 199 | 1 为啥其它行都work,
就这行匹配不出来呢？
{ plate, (10) }
。。。。
$print=~m/\{\s(.*)\,.*\((\d)\)/;
print "$1\t$2\t$file\n";
。。。
{ platanus_racemosa, (1) }
platanus_racemosa 1 noun.plant
{ platanus_wrightii, (1) }
platanus_wrightii 1 noun.plant
{ plate, (1) }
plate 1 noun.act
{ plate, (10) }
noun.artifact
{ plate, (1) }
plate 1 noun.body
{ plate, (2) }
plate 2 noun.food
{ plate, (1) }
plate 1 noun.object | t****t
发帖数: 6806 | 2 10是两位数，别的都是一位数
【在 L******r 的大作中提到】
: 为啥其它行都work,
: 就这行匹配不出来呢？
: { plate, (10) }
: 。。。。
: $print=~m/\{\s(.*)\,.*\((\d)\)/;
: print "$1\t$2\t$file\n";
: 。。。
: { platanus_racemosa, (1) }
: platanus_racemosa 1 noun.plant
: { platanus_wrightii, (1) }
| L******r
发帖数: 199 | 3 我得到它了，谢谢
【在 t****t 的大作中提到】
: 10是两位数，别的都是一位数
| c**t
发帖数: 2744 | 4 Be careful when using .*, for your case split might be better
【在 L******r 的大作中提到】
: 为啥其它行都work,
: 就这行匹配不出来呢？
: { plate, (10) }
: 。。。。
: $print=~m/\{\s(.*)\,.*\((\d)\)/;
: print "$1\t$2\t$file\n";
: 。。。
: { platanus_racemosa, (1) }
: platanus_racemosa 1 noun.plant
: { platanus_wrightii, (1) }
|
|
