How to make perl sort these values in order?

[rse2]

Hello,

I wrote a program where a user types in five numbers, and then it displays the numbers in the order of which they were typed. But i need to make my program Print the numbers that the user enters from least to greatest. Any idea how i can do this? So far i got.

 #! /usr/bin/perl

print "Type in a number.";
$n1 = <>;

print "Type in another number.";
$n2 = <>;

print "Type in another number.";
$n3 = <>;

print "Type in another number.";
$n4 = <>;

print "Type in another number.";
$n5 = <>;

print "$n1 \n";
print "$n2 \n";
print "$n3 \n";
print "$n4 \n";
print "$n5 \n";

Thanks a million.

[davido]

So you're saying you learned nothing besides chomp from what was posted to your previous question here? Check this code please?.

[james2vegas]

First off you should chomp the values you get from readline (<>), then sort them, the default sort is not numeric so something like:



#!/usr/bin/perl
use strict;
use warnings;

print "Type in a number.";
chomp(my $n1 = <>);

print "Type in another number.";
chomp(my $n2 = <>);

print "Type in another number.";
chomp(my $n3 = <>);

print "Type in another number.";
chomp(my $n4 = <>);

print "Type in another number.";
chomp(my $n5 = <>);

print "$_\n" for sort { $a <=> $b } ($n1,$n2,$n3,$n4,$n5);

I also added the use strict; use warnings;

You should consider chomping in a loop into an array.

[ikegami]

You're surely doing something wrong if you have many variables whose names end with a number.

my @n;
while (@n < 5) {
   if (@n) {
      print "Type in another number: ";
   } else {
      print "Type in a number: ";
   }

   chomp( my $n = <STDIN> );
   push @n, $n;
}

print "$_\n" for sort { $a <=> $b } @n;

Update: Added compare function as per reply.

[CountZero]

Or

print "$_\n" for sort { $a <=> $b } @n;

if you want the results sorted numerically rather than ASCIIbetically.