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