读取文件并应用操作并将其存储[关闭]

Question

假设我有一个名为 param.txt 的文件。它包含，

param1 = 5;
param2 = 10;
param3 = 12;
param4 = 5;
param5 = param1 + param2;
param6 = param2 * param1;
param7 = param5 - param2;
param8 = param1 * param2 - param4;

我在 perl 脚本中读取这个文件，并将所有参数值存储到 param4 中。

我将如何存储 param5,param6,param7,param8 通过应用仅通过读取文件和构建哈希的预期操作？

Answer 1

简单的方法是使用带有 perl 代码和 eval 的正则表达式：

use strict;
use warnings;
use v5.10;
use Data::Dumper;

my %ns = ();

while( my $line = <> )
{
    chomp($line);
    next unless ($line);

    my ($term, $expr) = split m/\s*=\s*/, $line;

    if( $term && $expr )
    {
        $expr =~ s/(\w+)/exists $ns{$1} ? $ns{$1}: $1/ge;
        $ns{$term} = eval $expr;
        warn $@ if $@;
    }
}

say Dumper(\%ns);