perl - 相当于 perl 中 shell 脚本的 grep 命令

Question

我在 shell 脚本中使用了以下语法-

imp_vol -u $undr_price -s $str_price -p $price -t $mat -c $iscall | grep "Black Scholes " | cut-d"=" -f2

其中 imp_vol 是一个打印内容的可执行文件。它在 Perl 脚本中的等价物是什么？例如:

imp_vol -u 110.5 -s 110.9 -p 0.005 -t 0.041 -c 1
    Underlying Price = 110.5
    Strike Price = 110.9
    Price = 0.005
    Time = 0.041
    IsCall = 1
    Black Scholes Vol = 0.0108141

所以我的目的是在这种情况下获取 Black Scholes Vol 的值作为某个变量中的 .0108141，因为我必须再次在某个函数中传递该变量。

我们将不胜感激。

Answer 1

其实perl中有一个grep函数。它以一个表达式或一个 block 作为第一个参数，一个字符串列表作为第二个参数。所以你可以这样做:

my @list = grep(/abcd/, (<>));

另请参阅:grep - perldoc.perl.org

在您的特定情况下，您可以使用 block 形式提取价格，如下所示:

imp_vol | perl -e 'print grep { s/\s+Black Scholes Vol = ([-+]?[0-9]*\.?[0-9]+)/$1/ } (<>)'