如何使用Perl正则表达式从等式中提取具有非零系数的变量？

Question

我希望获得特定数字排列的非零系数.我有低于设定号码和我希望与正则表达式来严格提取非零系数(x2,x3,x5从)

x1 *0.000000+ x2 *-0.100000+ x3 *0.850000+ x4 *0.000000+ x5 *0.000056+ x6 *0.000000 

我试过这样做

(\*[-+]?[0]*\.?[0]+)

但我不确定是否要宣布它不应该考虑 "*0.000000"

Answer 1

匹配x-digit 后面没有 space-star-zero-dot-zeroes-endOfWord:

x\d+(?! \*0\.0+\b)

查看现场演示.