Re^2: read a hash from a file

[Anonymous Monk]

I'm using File::Slurp

#!/usr/bin/perl
use strict;
use warnings;
use File::Slurp;
use Data::Dumper;
$file="config.txt";

my %record =map{
s/#.*//;
s/^\s+//;
s/\s+$//;
m/(.*?)\s*=\s*(.*)/;
} read_file($file);

print Dumper (\%record);

The dump from my code is

$VAR1={
                 'Name' =>John Smith',
                 'URL' => '15',
                 'RANK' => 'Tier 1',
                 'URL' => 'http://somesite.com'
               };

but when the data is in the code, the dump is

$VAR1= bless( {
                 'Name' =>John Smith',
                 'URL' => '15',
                 'RANK' => 'Tier 1',
                 'URL' => 'http://somesite.com'
               }, 'REC' );

[hdb]

You are also having REC->new which must be provided by some module. Which one is that?

[Anonymous Monk]

opps. Thanks for pointing that out. The code pulls is a few custom libs written by my predecessor that I did't think were needed for this issue. Looks like they were.

sub new {
        my ($self, %args) = @_;
        my @required = qw(NAME AGE RANK URL);

        my %cfg = map {uc $_ => $args{$_}} keys %args;

        for my $req (qw(NAME AGE RANK URL)) {
                croak "Required argument $req not found"
                        unless exists $cfg{$req};
        }

        return bless \%cfg, $self;
}

[hdb]

I cannot directly use this but what happens if you add the following to my code above:

my $record = REC->new( %data ); 
print Dumper( $record );