Question

我有一个问题, 需要调用 Perl 脚本, 其参数通过, 然后在 AWK < code> BEGIN 块中获取 Perl 脚本的返回值。就像下面一样。

我有一个 Perl 脚本用户端 pl

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

现在在 AWK BEGIN 块 (ksh) 中,我需要调用脚本并获得返回值。

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

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

res = util.pl a b c;

Answer 1

将脚本插入 gingline :

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

Answer 2

用于从 ldap 查询中提取数据的数据的 AWK 脚本 I 的一部分。或许您可以从下面的 base64 解码方法中找到一些灵感...

    /^dn:/{
        if($0 ~ /^dn: /){
            split($0, a, "[:=,]")
            name=a[3]
        }
        else if($0 ~ /^dn::/){
            # Special handling needed since ldap apparently
            # uses base64 encoded strings for *some* users
            cmd = "/usr/bin/base64 -i -d <<< " $2 " 2>/dev/null"
            while ( ( cmd | getline result ) > 0 ) { }
            close(cmd)
            split(result, a, "[:=,]")
            name=a[2]
        }
    }

友情链接