Re^2: Help on parsing

[aaroon]

Thanks...I am not in school btw....and this is not class project by any chance....

[umasuresh]

Below is something to start with. Requires some effort from your side to completion. Good Luck!

use strict;
use Data::Dumper;

my %hash;  
my $header_info;

DAT: while (<DATA>) 
  {
    
    next if !length($_);      # ignore empty lines
    if ($_ =~ /^([A-Z]+)\|/)  # capture the header
    {
        ($header_info) = $1;
        next DAT;
    }

    my($key, $value) = split /\|/, $_;
    $hash{$header_info}{$key} = $value;

  }

#print Dumper(\%hash);

for my $key1 (sort keys %hash)
{
    for my $key2 ( sort keys %{ $hash{$key1} })
    {
        print "$key1:$key2:$hash{$key1}{$key2}\t";
    }
    print "\n";
}

__DATA__
JAN| 
graph|104| 
success|100| 
on_time|100| 
environment|1| 
builder|3| 
design|0| 
FEB| 
graph|95| 
success|100| 
on_time|100| 
environment|1| 
builder|3| 
design|0|

[ssandv]

That's good--but code to spec isn't free. Most of the contributors here get _paid_ to write code. The harder *you* work, the more help you'll get. The more you ask other people to do the coding for you, the more you'll get sent to read the documentation.

[Anonymous Monk]

Text::xSV