2

statistics -o -u i1,1,1返すLinuxコマンドがあります

max count[0]:=31
max count:=31

Perl スクリプトで 31 という数字を抜き出したいのですが。頭にパイプされたawkを使用して、コマンドラインから実行できます

statistics -o -u i1,1,1 | awk -F':=' '{print $2}' | head -n1

または同様に grep を使用して

statistics -o -u i1,1,1 | grep -Po '(?<=max count:=)\d+'

またはシード...

perlスクリプト内で同様のことを行うにはどうすればよいですか?


編集 基本的に、perl コード内のバックティック システム コールを純粋な perl ソリューションに置き換えたいと思います。

4

1 に答える 1