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

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

Conexão com Banco de Dados Postgres

Gerador de CPF válido em Perl

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

Nenhum comentário foi encontrado.