キーと値を含み、Perlコードで使用するソースファイル

キーと値を含み、Perlコードで使用するソースファイル

次のファイルが保存されています/var/ldt/ldt.conf

LDT_HWADDR='00:00:00:00:00:00'
LDT_DISK='/dev/sda'
LDT_OS_ID='24'
LDT_VERBOSE=true
RUN_UPDATES=true

私はPerlコードで正しいキー名を使用し、次のようなことができるようにインポートしたいと思います。

print $LDT_HWADDR;
print $LDT_OS_ID;
print $RUN_UPDATES;

希望の出力は次のとおりです。

00:00:00:00:00:00
24
true

答え1

ハッシュを使用してください。

#!/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";

出力:

LDT_HWADDR:00:00:00:00:00:00
LDT_OS_ID:24
RUN_UPDATES:true

またはを使用してください$$var。しかし、そのような方法は良い考えではなく、しばしば合併症を引き起こすことに注意してください(例えば、以下を参照)。リンクコメントに@Sobriqueが貢献しました)。上記の方法ははるかに安全です。

#!/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";

関連情報