这个Perl正则表达式出了什么问题？

Question

我有这样的行

NF419andZNF773 (e=10^-92,). 
ZNF571 (e=2 10^-14,)

提取上述结果的正则表达式是什么，以便

NF419andZNF773 - 10^-92
ZNF571 - 2 10^-14

我尝试了但却失败了。

$line =~ /(\w+)\s\(e=\s(.*),\)/;
print "$1 - $2\n";

Answer 1

你很接近，你的正则表达式的结尾是失败的，因为它在指数之前需要空间。试试这个：

$line =~ / (\w+) \s+ \( e= ([^,]+) /x;

Answer 2

实际上你可以在正则表达式中完成所有这一切，尝试

$line =~ s/\(\s*e\s*=\s*([^,]+),\)/-$1/

正则表达式匹配字符串的（e = num ^ exponent，）部分，并在执行此操作时捕获num ^指数（$ 1），然后用$ 1替换整个匹配。