Dosyayı oku ve çalıştır ve çalıştır.

Question

Param.txt adlı bir dosyam var mı? Ben perl programı bu dosyayı okuma ve bir karma param4 kadar tüm parametre değerlerini saklamak am

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

içerir.

Param5, param6, param7, param8'i sadece dosya okunarak ve hashın oluşturulmasıyla amaçlanan işlemi uygulayarak nasıl kaydederim?

Answer 1

Eh basit bir yolu perl kodu ve eval ile regex kullanıyor:

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);