一个perl bug,求救，谢谢！# Programming - 葵花宝典
L*r
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
就这行匹配不出来呢？
{ 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
