Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Using the map function

by johngg (Abbot)
on Jul 10, 2013 at 18:56 UTC ( #1043538=note: print w/ replies, xml ) Need Help??


in reply to Using the map function

I wonder if you would do better with two hashes rather than two arrays. You could join your array with newlines and open a filehandle against a reference to the resultant scalar. You could then read it in paragraph mode one record at a time and use splits in maps to populate the hashes.

$ perl -Mstrict -Mwarnings -MData::Dumper -E ' my @array = ( q{CPU Temp = 30}, q{GFX Temp = 45}, q{RAM Temp = 40}, q{}, q{CPU Status = OK}, q{GFX Status = OK}, q{RAM Status = OK}, ); open my $inFH, q{<}, \ do { join qq{\n}, @array } or die $!; my( %temps, %stats ); { local $/ = q{}; %temps = map { split m{\s+=\s+} } map { split m{\n} } scalar <$inFH>; %stats = map { split m{\s+=\s+} } map { split m{\n} } scalar <$inFH>; } print Data::Dumper ->new( [ \ %temps, \ %stats ], [ qw{ *temps *stats } ] ) ->Sortkeys( 1 ) ->Dumpxs();' %temps = ( 'CPU Temp' => '30', 'GFX Temp' => '45', 'RAM Temp' => '40' ); %stats = ( 'CPU Status' => 'OK', 'GFX Status' => 'OK', 'RAM Status' => 'OK' ); $

I hope this is helpful.

Cheers,

JohnGG


Comment on Re: Using the map function
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (10)
As of 2014-09-18 20:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (124 votes), past polls