Use apenas um hash:
#!/usr/bin/perl -w
use strict;
open(my $fh, "<", "/var/ldt/ldt.conf") || die "Can't open file: $!\n";
my %vars;
while(<$fh>){
## remove trailing newlines
chomp;
## Split the line on =
my @F=split(/=/,$_,2);
## remove quotes
$F[1]=~s/^['"]//;
$F[1]=~s/['"]$//;
## Save the values in the hash
$vars{$F[0]}=$F[1];
}
print "LDT_HWADDR:$vars{LDT_HWADDR}\n";
print "LDT_OS_ID:$vars{LDT_OS_ID}\n";
print "RUN_UPDATES:$vars{RUN_UPDATES}\n";
Saída:
LDT_HWADDR:00:00:00:00:00:00
LDT_OS_ID:24
RUN_UPDATES:true
Como alternativa, use $$var
. Note, no entanto, que essas coisas são muito raramente, ou nunca, uma boa ideia e muitas vezes levam a complicações (por exemplo, veja o link fornecido por @Sobrique nos comentários). A abordagem acima é muito mais segura.
#!/usr/bin/perl
open(my $fh, "<", "/var/ldt/ldt.conf") || die "Can't open file: $!\n";
while(<$fh>){
## remove trailing newlines
chomp;
## Split the line on =
my @F=split(/=/,$_,2);
## remove quotes
$F[1]=~s/^['"]//;
$F[1]=~s/['"]$//;
## Set the variables
${$F[0]}=$F[1];
}
print "$LDT_HWADDR\n";
print "$LDT_OS_ID\n";
print "$RUN_UPDATES\n";