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;
      }
    }
  }
}

GenHASH - Gerador de hashes SHA1, MD5 e Base64 em Perl

Gerador de CPF válido em Perl

Conexão com Banco de Dados Postgres

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

Busca Binária

Nenhum comentário foi encontrado.