Re: [debutant] PERL Conversion de Type

[Jean Segers]

f.collineau wrote:

Bonjour,

Je veux trier un tableau associatif par ses cl�s.
Les cl�s  (des nombres) sont issues d'un matching sur une expression r�guli�re.
Quand je veux trier, les nombres sont consid�r�s comme des chaines de caract�res et nom
comme des nombres
Ci-dessous mon code

Merci de votre aide .

Franck


#!/usr/bin/perl

opendir (DIR,"test") || die " impossible  d'ouvrir le r�pertoire test: $!";
while ($fic=readdir DIR)
{
	next if ($fic eq "." or $fic eq "..");
	$tab{int($1)}=$fic if ($fic=~/index-([0-9].*)\.png/);

}

print FIC "</body></html>";
close DIR;

%tab_trie= sort by_number keys( %tab);



foreach $cle( keys %tab_

trie)
{
print "cl�: $cle\t valeur:$tab_trie{$cle}\n";
}

sub by_number {
$a+0 <=> $b+0;
}

Zarbi ta sub l�, pour trier un liste de prix par frais de port, voil� ce que j'�cris:

@prices = sort {$a<=>$b} keys %shipping;



--
Jean
\\\!///
-(@ @)-
----------------------------oOO--(_)--OOo----------------------------
Jean Segers Venez r�ver -----> http://www.Demoiselles.com
26, rue du Pin http://www.Sadems.com
34190 Saint Bauzille de Putois http://it.mondelinux.org
France http://www.deveze.com
Gsm 06 86 12 49 15 http://www.cyberboutic.com
Tel&Fax 04 67 73 38 30 http://www.mondelinux.org

Vous souhaitez acquerir votre Pack ou des Services MandrakeSoft?
Rendez-vous sur "http://www.mandrakestore.com";