将字符串评估为 gawk 中的命令

Question

我需要使用一组保存在单独文件中的规则来确定在 gawk 脚本中处理的文档是否有效。规则文件包含如下几行：

record[3] > 5 && record[35] ~ /Boiler/

将规则文件读入数组后，我现在想遍历数组的每一行，以检查每个输入文档的条件是否为真。类似于以下内容，其中 rule_array[i] 使用上述规则进行评估。

for (i=1;i<=rule_count;i++){
    if (rule_array[i]){
        flag="T"
    }
}

如何将 rule_array 中的字符串视为 if 语句中使用的命令。 if 语句应该相当于：

if (record[3] > “5.0” && record[35] ~ /Boiler/){

在互联网上搜索后，shell 脚本似乎很容易，但这必须在 gawk 中运行，因为它只是庞大脚本的一小部分。使用 awk，最接近的似乎是以下内容，但我认为这在此处行不通，因为它不是命令。

AWK - execute string as command?

更新：

为了简化问题，我怎样才能得到以下评估。我希望使用“逻辑”中的逻辑，而不是测试：“逻辑”不是空的。

awk 'BEGIN{var=2;logic="var==5";if(logic){print "TRUE"}}'

谢谢，

德国

Answer 1

以下 perl 脚本将为您生成正确的 awk 脚本：

#! /usr/bin/perl

use warnings;
use strict;
use File::Slurp qw(read_file);

my $awkcode=read_file('a.awk');

open(my $fh,"<","rules.txt");

while (<$fh>) {
   chomp;
   my ($key, $val)=/(\S+)(.*)$/;
   $awkcode=~s/\Q$key\E/$val/mg;
}
close($fh);

print $awkcode;

给定 awk 脚本 a.awk:

BEGIN{
    var=2
    if(logic1){
        print "TRUE1"
    }
    if(logic2){
        print "TRUE2"
    }
}

还有一个规则文件rules.txt：

logic1 var==5
logic2 var==2 || var==5

脚本的输出是一个新的 awk 文件：

BEGIN{
    var=2
    if( var==5){
        print "TRUE1"
    }
    if( var==2 || var==5){
        print "TRUE2"
    }
}