Este é um script ara ordenar um array, usando o método de selecao, escrito resumidamente para dar uma facil interpretacao.

• Download ordena_selecao.pl
• Enviar nova versão

Esconder código-fonte

#!/bin/perl
@teste= (aline,alice,maria,zumira,claudia,rafaela,marines,mara,joao,felipe);
#@teste=( 0,9,4,8,2,7,1,6,3,5);
print "@teste\n"; #imprime desordenado!!!
&ordena;
print "@teste\n"; #imprime ordenado!!!!!

sub ordena
{
  $max=10; #numero máximo de elementos!!!!
  for ($i=0; $i<=($max-1); $i++)
  {
    for ($j=0; $j<=$max; $j++)
    {
      if (@teste[$j] ge @teste[$i])# 'ge' para comparação de strings!!!!
#      if (@teste[$j] >= @teste[$i])# '>=' para comparação de números!!!!
      {
        $aux=@teste[$i];
        @teste[$i]=@teste[$j];
        @teste[$j]=$aux;
      }
    }
  }
}

Orientação a Objetos - Criando e usando uma classe em Perl

Streaming Kiss FM (SP 102,1) Player em perl com interface grafica (Tk)

Gerador de CPF válido em Perl

Busca Binária

Validador de cartão de débido e crédito em Perl

Nenhum coment�rio foi encontrado.