Re^2: Using map to convert an array into a hash of array of arrays

Ok, Roboticus and Moritz, thanks for the tips. I get it now ;-) I'm really getting into the more functional aspects of Perl's map as a transformative helper!

my %alertlog_mapper = map { $_->[1] => [ $_->[3], $_->[4], $_->[6], $_
+->[2], $_->[5] ] }
          sort { Date_Cmp($a->[2], $b->[2]) }
          map 
          {
            my @logline = ();
            my ($msg_id, $timestring, $min, $sec, $secs, $secs_before,
+ $secs_after);
            @logline = split(/\s+/, $_, 5);
            $timestring = $logline[0] . ' ' . $logline[1];
            $min = substr($logline[1], 3, 2);
            $sec = substr($logline[1], 6, 2);
            $secs = $min * 60 + $sec;
            $secs_before = $secs - 5;
            $secs_after = $secs +5;
            #my @lookup_alerts = &
            $msg_id = $logline[3];
            [ $_, $logline[3], ParseDate($timestring), $logline[0], $l
+ogline[1], $logline[2], $logline[4] ];
          } @gmsgs;
[download]

I'll keep up with the perldocs and keep working on perl data structures, as time permits.

Comment on Re^2: Using map to convert an array into a hash of array of arrays Download Code

Replies are listed 'Best First'.
Re^3: Using map to convert an array into a hash of array of arrays by rjoost (Novice) on Aug 16, 2010 at 13:14 UTC
I'm revisiting to undertand maps more...been reading the perldocs, almost there, but could use some clarification. If I've got Dumper output like this: `$VAR1 = [ '2100', [ '2010-08-12', '12:23:56', 'INFO', '2100', 'some stuff, REPA0.prm: Executing DDL operation.' ], '2100', [ '2010-08-12', '12:23:56', 'INFO', '2100', 'some output, REP.prm: DDL operation is of default scope. +' ],` [download] With a data structure of an array of arrays, where the first "element" is 2100 in this example, I'd like to convert this into a Hash of array of arrays where 2100 is the hash key to an array of arrays. `%alertlog = map { $_->[0] => [ $_->[2], $_->[3], $_->[4], $_->[5], $_ +->[6] ]; } sort { Date_Cmp($a->[1], $b->[1]) } map { chomp; @loglines = split(/\s+/, $_, 5); $timestring = $loglines[0] . ' ' . $loglines[1]; [ $loglines[3], (ParseDate($timestring), $loglines[0], $lo +glines[1], $loglines[2], $loglines[3], $loglines[4]) ]; } @messages;` [download] This creates a hash of arrays just fine, but it flattens out the array of arrays. In the original array of arrays, the $_->[0] referred to above is always the first element in an array of arrays. Below, the "2100" key should show, as it's hash value, an array of arrays....... And likewise for any "key" which has one or more arrays as its resultant value. `DUMP OF %alertlog from check_alertlog(): $VAR1 = { '109' => [ '2010-08-13', '17:42:58', 'ERROR', '109', 'some stuff, .... SQL <UPDAT...' ], '190' => [ '2010-08-13', '17:42:58', 'ERROR', '190', 'another message ' ], '2100' => [ '2010-08-12', '21:18:53', 'INFO', '2100', 'another message...' ] };` [download] So, from the array which was passed, and, from which, using map, I'm trying to create a hash of arrays of arrays, the map I've got so far, creates a hash of arrays just fine, BUT it doesn't do a hash of arrays of arrays properly... If I make the map output an array of arrays, it works for that just fine and outputs, e.g., `$VAR1 = [ [ '2100', '2010-08-12', '15:34:37', 'INFO', '2100', 'bunch of info: Executing operation.' ], [ '2100', '2010-08-12', '15:34:37', 'INFO', '2100', 'bunch of info: operation is of unmapped scope.' ], [ '2100', '2010-08-12', '15:34:37', 'INFO', '2100', 'bunch of info, REP.p: Executing operation.' ],` [download] If I could take that output, in the map, and make "2100" the hash key to an array of arrays, that's what I am trying to do.. under time pressure so will go back to the docs tonight and keep trying as time and life permit.	[reply] [d/l] [select]
Re^4: Using map to convert an array into a hash of array of arrays by rjoost (Novice) on Aug 17, 2010 at 08:26 UTC
...and "miles to go before I sleep ..." I'll close this request because I no longer am trying to use map to transform a basic array of lines into a hash of arrays of arrays because I don't have time to explain what I'm trying to do in greater detail and I also changed the first, original data structure I was using into a hash of hash of arrays and much happier.	[reply]