perl - Perl: データ ファイルをマップとして読み取る

Question

次のような構成ファイルがあります。

 Name=test
 Password = test

データを設定できるように、データファイルを読み取ってマップとして設定する必要があります。今、私はこの方法で試しました、

        $path_to_file ="C:\\Perl\\bin\\data.txt";
        open(FILE, $path_to_file) or die("Unable to open file");

        @data = <FILE>;
        close(FILE);
        print "data is ",$data[0],"\n";

しかし、私は望ましい出力を得ていません。Name=test として出力を取得します。他に提案できる機関はありますか？助けてくれてありがとう。

Answer 1

Tie::File::AsHashを使用できます。

use Tie::File::AsHash;
tie my %map, Tie::File::AsHash::, $path_to_file, split => qr/\s*=\s*/, join => '='
 or die "failed to open: $!";
$map{Password} = 'swordfish'; # this actually changes the file!
print 'The password is ', $map{Password}, "\n";