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

Re: Help with Hash

by NetWallah (Canon)
on Nov 08, 2011 at 03:35 UTC ( #936648=note: print w/replies, xml ) Need Help??

in reply to Help with Hash

This code works with the numerics:
use strict; use warnings; my @names; my @numerics; my $rec = 0; while (<DATA>){ ($names[$rec], $numerics[$rec]) = split /:\s/,$_; $rec++; } for (sort {$numerics[$a] <=> $numerics[$b]} 0..$#numerics){ print "$names[$_]\n"; } __DATA__ Ansv. specialist-/ överläkare: 1 Ordinerade läkemedel: 1 namn: 1 Undersökningsresultat: 1 H - Med avd K74: 3 Anamnes: 1 Bidiagnos(er) enl. ICD-10: 2 Uppföljning: 1 Nybesök: 1 Journalförare: 1 ASIH-Äldrebo Älvsjö: 4 Huvuddiagnos enl. ICD-10: 2 Vårdtid: 1 Orsakskod/text: 1 Bedömning: 1 Epikris: 1 H - AVA M83 Medicin: 8 Vårdförlopp: 1 Utskriftsdatum: 1
Note - I got rid of the terminating " ." which interfers with the "number" to the right of the ":".

            "XML is like violence: if it doesn't solve your problem, use more."

Replies are listed 'Best First'.
Re^2: Help with Hash
by Anonymous Monk on Nov 08, 2011 at 04:11 UTC

    The code worked. Thanks a lot. It helped me to understand the concept also now. thanks

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2022-07-04 02:54 GMT
Find Nodes?
    Voting Booth?

    No recent polls found