Question

I have a text file having some data in following format

%app_lookup_strings = (
                      common => {
                                  password => "password: ",
                                  select_action => "Select action => ",
                                  mgt_close => "BSA_MgtClose",
                                },

I have to read this data from text file and store it back in hash. I need to know how to parse a text file having such kind of data and store it in similar fashion of hash as shown above.

Answer 1

If your text file just contains the one hash, the most straightforward solution is:

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;

my %hash = do 'text.file';

print Dumper \%hash;

Output:

$VAR1 = {
          'common' => {
                        'mgt_close' => 'BSA_MgtClose',
                        'password' => 'password: ',
                        'select_action' => 'Select action => '
                      }
        };