Perlファイルを行と変数に分割する

Question

私は現在、いくつかのユーザー/パスワード情報を保持しているPerlファイルを分割していますが、これは正常に実行していますが、自分のコードでは満足できません。私はPerlでそれを行うより良い方法があると確信しています（私は初心者です）。もし誰かがぴったりなやり方を思いつくことができたら！

my $i = 1; 
my $DB; 
my $DBHOST; 
my $DBUSER; 
my $DBPASS;  
my $filename = "some_file"; 
open(my $fh, '<:encoding(UTF-8)', $filename) 
    or die "Could not open file '$filename' $!"; 

while (my $row = <$fh>) { 
    chomp $row; 
    if ($i == 1) { 
     $DB = (split /=/, $row)[1]; 
    } 
    if ($i == 2) { 
     $DBHOST = (split /=/, $row)[1]; 
    } 
    if ($i == 3) { 
     $DBUSER = (split /=/, $row)[1]; 
    } 
    if ($i == 4) { 
     $DBPASS = (split /=/, $row)[1]; 
    } 
    $i++; 
} 

Answer 1

map()このようなことのためにかなり便利です：

my ($DB, $DBHOST, $DBUSER, $DBPASS) = map {$_ =~ /.*?=(.*)/} <$fh>; 

何が起こっている：

• map()は、リスト上で動作し、そう<$fh>の各要素に対して
1つとしては扱いリスト（この場合はファイル行）をデフォルトの変数（ $_）
• 次に、regexを使用して必要な行の一部を取得し、それを返し、それを左側の関連する変数に割り当てます（ファイルの各反復で、各受信変数は次のようになります）。次のように正規表現が動作）にも

• をシフト：このソリューションは、変数の4つのすべてのデータが取り込まれた後も、ファイル全体を介してすべての方法を反復することを

  / .*? # ignore everything, non greedy until we match a = # our delimiter ( # begin capture .* # capture everything until end of line (less the newline char) ) # end capture /

は注意（あなたのOPでやったように）

ここでもエラーチェックは行われないので、値がキャプチャされていないと、未定義の変数に関する警告が表示されます。

Answer 2

私はあなたの個々の変数を削除し、接続情報をハッシュに格納すると思います。もちろん

my %db_conn; 

while (<$fh>) { 
    my ($key, $val) = split /=/, $_, 2; 
    $db_conn{$key} = $val; 
} 

が、これは各ライン上の=の左にあるどのような値の一意の識別子であることを前提としています。