Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

sort array

by fabius (Initiate)
on Nov 26, 2003 at 13:20 UTC ( #310231=perlquestion: print w/ replies, xml ) Need Help??
fabius has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I want to sort an array (actually it's a table), I mean something like that:
$events [][][][] its a matrix n x 4, and I want to sort it by third column i.e.,
I tried with Sort_Table() but it doesn't seem working.
@events = Sort_Table( cols => '4', field => '3', sorting => 'descending', structure => 'single', # I tried whith csv too #separator => '\*', data => \@events, );<
Does anybody know how can I do that?????

Edit: BazB added code tags (again).

Comment on sort array
Select or Download Code
Re: sort array
by BazB (Priest) on Nov 26, 2003 at 13:48 UTC

    Where does this Sort_Table routine come from?

    You need to add all relevant code for us to figure out where you're going wrong.
    You should probably include some small example datastructures in your question too.


    If the information in this post is inaccurate, or just plain wrong, don't just downvote - please post explaining what's wrong.
    That way everyone learns.

      Sort_Table come from
      use Sort::Array qw(Sort_Table);
      the array comes from the parsing of several log files
      and I build it in that way
      $eventi[$count][0]=$feed; $eventi[$count][1]=$1; $eventi[$count][2]="Restored"; $eventi[$count][3]="$var" 1 Sep 17 06:16:36 Restored a 1 Sep 22 06:22:40 Fault b 1 Sep 22 06:25:05 Restored a 1 Sep 22 12:36:19 Fault 1 Sep 22 12:37:10 Restored b
      the date is the second field
      and count goes from 0 to n
      so I achieve a matrix n x 4
      I want to sort it by one of its columns
      If I set the parameter structure = 'csv' it doesn't sort,
      if I set strucure = 'single'the output is an error:
      Use of uninitialized value in concatenation (.) or string

      Edit: BazB more code tags.

      Sort_Table comes from Sort::Array. It is however, overkill this time, as the straightforward sort command shown in the next comment works perfectly.
Re: sort array
by hardburn (Abbot) on Nov 26, 2003 at 14:54 UTC
    sort { $a->[2] cmp $b->[2] } @array

    See also: sort.

    ----
    I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
    -- Schemer

    : () { :|:& };:

    Note: All code is untested, unless otherwise stated

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (9)
As of 2014-11-27 17:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (186 votes), past polls