Ordenação por Seleção
Publicado por joao felipe 17/02/2003
[ Hits: 7.451 ]
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; } } } }
Conexão com Banco de Dados Postgres
Orientação a Objetos - Criando e usando uma classe em Perl
GenHASH - Gerador de hashes SHA1, MD5 e Base64 em Perl
Validador de cartão de débido e crédito em Perl
Streaming Kiss FM (SP 102,1) Player em perl com interface grafica (Tk)
Nenhum coment�rio foi encontrado.
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Converter os repositórios Debian para o novo formato com as chaves
Instalando Spotify no Debian 13
Realizar overclock no Miyoo Mini (plus ou normal)
Problema com o Centro de Aplicativos Ubuntu 25.04 (1)
Maquina não se comunica [RESOLVIDO] (5)
E aí? O Warsaw já está funcionando no Debian 13? (5)
Direcionar uma URL para Outra No Mikrotik (2)
linux mint reconhece microfone de lapela como fone de ouvido sem micro... (5)