Perl读取文件并将每行存储为变量/值

Question

我对Perl很新，但到目前为止，我几乎需要做所有事情。

我有一个文件格式像这样：

#IPAAS 

@NX_iPaaS_AuthKey=dGstaG9zaGlub0BqcCasdpasdHN1LmNvbTppUGFhUzAw 
@NX_iPaaS_href=live/661134565/process/75231 

我想读取每个与@NX_iPaaS开始到一个类似命名的变量，例如线 @NX_iPaaS_AuthKey将创建一个名为$ NX_IPAAS_AUTHKEY的新变量并保存该值，NX_iPaaS_href会产生一个名为$ NX_IPAAS_HREF的新变量，并带有值等等？

--Update--

嗨，我需要需要对上述方案有轻微的调整...

所以，我才发现，原来我读会“的文件部分'，例如

----- SECTION=cr 
NX_NTF_PERSISTENT_ID=cr:400017 
NX_NTF_REF_NUM=45 
----- SECTION=cnt 
NX_NTF_PERSISTENT_ID=cnt:F9F342055699954C93DE36923835A182 

你可以看到，其中一个变量出现在两个部分，其中（因为我没有“下一个定义，除非”）的前值结果被覆盖。有没有办法将NX_NTF_变量的名称加上每节的顶部'section ='行提供的值？

谢谢

Answer 1

你想要使用的是散列。喜欢的东西：

use strict; 
use warnings; 

my $input = "yourfilename.txt"; 
open(my $IN, "<", $input) or die "$0: Can't open input file $input: $!\n"; 

my %NX_iPaaS_vars; 

while (<$IN>) { 
    chomp; 
    if ($_ =~ /^\@NX_iPaaS/) { 
     my ($key, $value) = split(/=/, $_); 
     $NX_iPaaS_vars{$key} = $value; 
    } 
} 

为了以后使用一个变量，使用$NX_iPaaS_vars{"name of variable you want"}，例如：

my $href_path = $NX_iPaaS_vars{'@NX_iPaaS_href'}; 
# Do something with $href_path here... 

Answer 2

好的做法是使用散列。

my %hash; 
while (<>) { 
    chomp; 
    my ($key, $value) = split /=/; 
    next unless defined $value; 
    $hash{$key} = $value; 
} 

请参阅Why it's stupid to "use a variable as a variable name"了解为什么使用变量变量名称不是一个好主意。

Answer 3

#!/usr/bin/perl -w 
use strict; 

open(FILE,"test.txt"); 

my %hash; 

foreach (<FILE>) 
{ 
     if($_=~/@(\S+)=(\S+)/) 
     { 
       $hash{$1}=$2; 
     } 

} 
close(FILE); 

# Test Code 

foreach (keys %hash) 
{ 
     printf("%s=%s\n",$_,$hash{$_}); 
} 

该解决方案行之有效，如果变量名是唯一的。