|
Posted by sharma__r on June 18, 2008, 4:11 am
Please log in for more thread options
[...snipped...]
#!/usr/local/bin/perl
use strict;
use warnings;
my $NL = qq;
local $\ = $NL;
my %defaults = (
entry1 => "0",
entry2 => "0",
entry3 => "0",
entry4 => "0",
);
open my $inp_fh, '<', 'inp'
or die "Cannot open the file [inp]: $!";
my %HoH;
my ($item, $knt);
while (my $line = <$inp_fh>) {
chomp $line;
if ($line =~ m/ \A \S+ /xms) {
$item = $line;
$HoH{ $item } = { %defaults };
$knt = 0;
}
elsif ($line =~ m/ \A \s+ [-] \s+ \S /xms) {
(my $entry = $line) =~ s/ \A \s+ [-] \s+ //xms;
$HoH{ $item }->{ q . ++$knt } = $entry;
}
}
close $inp_fh
or die "Cannot close the file [inp] after reading: $!";
################### End ################
| 
XML Sitemap