Ordenamiento burbuja Perl
123456789101112131415161718192021222324252627282930313233
use strict;
use warnings;
use 5.010;
my @array = (4,3,1,9);
my $temp;
print "Array antes de ordenar \n";
print @array;
print "\n";
for ( my $i = 1; $i < 4; $i++)
{
for ( my $j = 0; $j < 3; $j++)
{
if($array[$j] < $array[$j + 1])
{
$temp = $array[$j];
$array[$j] = $array[$j + 1];
$array[$j + 1] = $temp;
}
}
}
print "Array después de ordenar\n";
print @array;
print "\n";
Perl
INFO