Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: sorting numbers

by stephen (Priest)
on Apr 10, 2002 at 23:04 UTC ( #158157=note: print w/ replies, xml ) Need Help??

in reply to sorting numbers

A few things to get you going.

First, to pull the 't=' numbers out of the file, you need to use backreferences. That's when you put something in parens in a regular expression, like so:

m/A t=(d*)/; my $t_val = $1;
If $_ were
hello A t=40a30
then $t_val would be 40.

Next, you need to use sort. sort operates on a list, like so:

my @list = ('my', 'bonnie', 'lies'); foreach my $word (sort @list) { print $word, "\n"; }
The result is:
bonnie lies my

sort normally sorts alphabetically. To sort numerically, see the perlfunc:sort manual page.

To collect all of these numbers into a list, you'll need push. Now all you need to do is put these pieces together. :)


Comment on Re: sorting numbers
Select or Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2015-11-28 17:57 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 (743 votes), past polls