perl - 在 AWK 中调用 Perl 脚本

Question

我有一个问题，我需要调用带有传入参数的 Perl 脚本，并在 AWK BEGIN block 中获取 Perl 脚本的返回值。就像下面一样。

我有一个 Perl 脚本 util.pl

#!/usr/bin/perl -w
$res=`$exe_cmd`;
print $res;

现在在 AWK BEGIN block (ksh) 中，我需要调用脚本并获取返回值。

BEGIN { print "in awk, application type is " type;  
                    } \
            {call per script here;}

如何调用带有参数的Perl脚本并获取$res的返回值？

res = util.pl a b c; 

Answer 1

将脚本通过管道传输到getline:

awk 'BEGIN {
         cmd = "util.pl a b c"; 
         cmd | getline res; 
         close(cmd);
         print "in awk, application type is " res
     }'