Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

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.



Comment on Re: Using the map function
Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (4)
As of 2015-11-28 08:31 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (739 votes), past polls