Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: problem with array

by mkmcconn (Chaplain)
on Mar 14, 2001 at 06:31 UTC ( #64302=note: print w/replies, xml ) Need Help??


in reply to problem with array

I'm guessing, but I think you asked about how a hash would be used, which makes me think that what you are asking for might be something like this:
open FILE, "data.txt" or die $!; while(<FILE>){ chomp; my ($uniq,$one,$two,) = split ','; # split the line into its fields $line_hash{$uniq} = qq($uniq $one $two); # use a _unique_ key value # describing the line to define # a hash key, and splice the # line to that key. } close FILE; # now sort by the (presumed) # numerical key, and print a test. for( sort { $a <=> $b } keys %line_hash ){ print "test: ",$line_hash{$_},$/ ; }

The test will print out the first three comma-separated fields of each line, sorted by the key. Combine that, with what was posted by Hot Pastrami about creating and accessing anonymous arrays, or what lhoward posted about references to arrays, and I think you have a complete answer.

mkmcconn

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (1)
As of 2023-04-02 08:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?