Trier un tableau

Utiliser la fonction sort :

#!/usr/local/bin/perl

use strict;

my @tab = qw(   44
                32
                25
                72
                );

foreach my $tmp(sort{$a <=> $b}(@tab))
{
        print "$tmp\n";
}

Va imprimer le tableau trié nuémiquement.

#!/usr/local/bin/perl

use strict;

my @tab = qw(   voiture
                auto
                automobile
                camion
                );

foreach my $tmp(sort{$a cmp $b}(@tab))
{
        print "$tmp\n";
}

Va trier alphabétiquement.

Plus d'informations dans la documentation de Perl :

• perldoc -f sort