Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: how do I sort numerically on sections of data that is alphanumeric

by nysus (Vicar)
on Jun 27, 2001 at 00:51 UTC ( #91751=note: print w/replies, xml ) Need Help??


in reply to how do I sort numerically on sections of data that is alphanumeric

Warning: Extreme Newbie Code Ahead!

#!/usr/bin/perl -w use strict; my @array1; while (<DATA>) { push @array1, $_ } my @multiarray; for my $line (@array1) { push @multiarray, [split /\s/, $line]; } my @sort_ord = sort {$multiarray[$a][1] <=> $multiarray[$b][1] || $mul +tiarray[$a][2] cmp $multiarray[$b][2]} (0..$#array1); my @sorted_multiarray; my $count = 0; for my $order (@sort_ord) { $sorted_multiarray[$order] = $multiarray[$count]; $count++; }
Sorry guys, I worked too hard on this not to post it. :-)

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot";
$nysus = $PM . $MCF;

  • Comment on Re: how do I sort numerically on sections of data that is alphanumeric
  • Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2020-11-23 20:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?