Redian新闻
>
一个perl bug,求救,谢谢!
avatar
一个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
avatar
t*t
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) }

avatar
L*r
3
我得到它了,谢谢

【在 t****t 的大作中提到】
: 10是两位数,别的都是一位数
avatar
c*t
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) }

相关阅读
logo
联系我们隐私协议©2024 redian.news
Redian新闻
Redian.news刊载任何文章,不代表同意其说法或描述,仅为提供更多信息,也不构成任何建议。文章信息的合法性及真实性由其作者负责,与Redian.news及其运营公司无关。欢迎投稿,如发现稿件侵权,或作者不愿在本网发表文章,请版权拥有者通知本网处理。