Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^2: Help on parsing

by aaroon (Initiate)
on Nov 17, 2010 at 20:27 UTC ( #872051=note: print w/ replies, xml ) Need Help??


in reply to Re: Help on parsing
in thread Help on parsing

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


Comment on Re^2: Help on parsing
Re^3: Help on parsing
by umasuresh (Hermit) on Nov 17, 2010 at 20:34 UTC
    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|
Re^3: Help on parsing
by ssandv (Hermit) on Nov 17, 2010 at 21:58 UTC

    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.

Re^3: Help on parsing
by Anonymous Monk on Nov 18, 2010 at 01:30 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://872051]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2014-12-25 08:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (159 votes), past polls