perl one liner替代这个bash"链"？

Question

我试图按照"Minimal Perl"一书中描述的方式理解Perl.

我已将所有源txt文件上传到我自己的服务器:results文件夹

我在这样的"链"中使用了几个bash命令获得了输出:

cat run*.txt | grep '^Bank[[:space:]]Balance'|cut -d ':' -f2 | grep -E '\$[0-9]+'

我知道这远非最简洁和有效,但至少它有效......

由于我们的uni主题现在转移到Perl部分,我想知道是否有办法在一行中获得相同的结果？

我尝试类似下面的代码,但卡在中间:

Chenxi Mao@chenxi-a6b123bb /cygdrive/c/eMarket/output
$ perl -wlne 'print; if $n=~/^Bank Balance/'
syntax error at -e line 1, near "if $n"
Execution of -e aborted due to compilation errors.

Answer 1

你不应该有; 打印后.所以

perl -wlne 'print $1 if $n=~/^Bank Balance\s*:\s*(\d+)/'