I keep getting the below warning
Use of uninitialized value in hash element at hash_construct.pl line 15, <$fh> line 909.
Use of uninitialized value in concatenation (.) or string at hash_construct.pl line 11, <$fh> line 910.
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my %hash;
open my $fh, '<', $ARGV[0] or die "could not open $ARGV[0]'' $!";
while (my $line = <$fh>)
{
$line =~/;(.*)\s-\s/;
my $key = $1;
print "KEY:$key\n";
$line =~/\.\\(.*)-/;
my $value = $1;
print "VALUE:$value\n";
$hash{$key}=$value;
}
print Dumper(\%hash);
|