打印匹配值的perl正则表达式是什么？例如，我想从这个字符串打印195
"2011-04-11 00:39:28,736::[main]::INFO (Main.java:73) Test.Main::main() Total Successful Transactions = 195".
我怎样才能做到这一点？提前致谢
解决方法
您可以在正则表达式中使用括号来捕获子字符串。捕获的组存储在$ 1，$ 2等中。例：
while (<>) {
if (/Total Successful Transactions = (\d+)/) {
print "$1\n";
}
}
或者，更短：
while (<>) {
print "$1\n" if /Total Successful Transactions = (\d+)/;
}