Ordenação por Seleção
Publicado por joao felipe 17/02/2003
[ Hits: 7.397 ]
Homepage: www.motokando.com
Este é um script ara ordenar um array, usando o método de selecao, escrito resumidamente para dar uma facil interpretacao.
#!/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
GenHASH - Gerador de hashes SHA1, MD5 e Base64 em Perl
Streaming Kiss FM (SP 102,1) Player em perl com interface grafica (Tk)
Nenhum coment�rio foi encontrado.
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Sinto uma leve lentidão ao arrastar, miniminizar e restauras as janela... (0)
Zorin OS - Virtual Box não consigo abrir maquinas virtuais (6)
Iinstalar o Scanner Kodak i940 no Linux Mint 19/20? (3)