Salut à tous,
je débute en perl et je cherche le meilleur moyen de faire un chose simple : une correspondance de valeur.
En gros de 0 à 5, j'aimerais que ça me retourne 1; de 6 à 10 me retourne 2 etc..
J'ai pensé à un tableau indicé mais je n'arrive pas à mes fins :

 
Est-ce la bonne méthode pour ce genre de manipulation de données ?

Si c'est un hash que tu veux obtenir, je ferais:
my %test;
map { $test{$_} = 1 } 0..5, map { $test{$_} = 2 } 6..10;
 
mais n'est ce pas plutôt d'une fonction dont tu aurais besoin?
 
A+,

Merci pour le map  ça marche très bien  
 
Dans quel cas une fonction pourrait être utile ?
 
En fait, je souhaite créer un tableau double entrée du style :
 
Poids / Pays     France          USA
jusqu'à 5kg         1                9
Jusqu'à 10kg       2               10
 
 
 mais l'une de mes valeur clé étant un poids (donc pas forcément entier) je pense qu'il va falloir que je passe par des if .. elsif.

Donc en fait, tu veux plutôt une fonction qui prend en entrée une valeur, et renvoie en retour un hash.
Je vais bouffer, et je te pond une réponse plus complète.
A+,

Tu peux t'inspirer de ce petit script, que tu vas appeller avec: perl myscript.pl XX
ou myscript.pl est le nom du fichier du script et XX  un nombre à tester pour le poids.
 

#!/usr/bin/perl
use strict;
use warnings;
 
use Switch;
 
sub weight {
    switch (shift) {
        # is it a number? if not: error
        case { $_[0] !~ /^-?(?:\d+(?:\.\d*)?|\.\d+)$/ }
                   { return {France => "erreur: ce n'est pas un nombre", USA => 'error: not a number'}}
        # it is a number
        case { $_[0] <= 0 }  { return {France => 'erreur: trop petit', USA => 'error: too small'}}
        case { $_[0] <= 10 } { return {France => '1', USA => '9'}}
        case { $_[0] <= 20 } { return {France => '2', USA => '10'}}
        else                 { return {France => 'erreur: trop grand', USA => 'error: too large'}}
    }
}
 
my $code = weight($ARGV[0]);
print $code->{France}, " ", $code->{USA}, "\n";

Il ne te reste plus ensuite qu'à adapter à tes besoins.
A+,
 
 

Génial ! Merci.    
je ne connaissais pas le module Switch mais c'est très pratique.
 
Juste une question : le switch(shift) c'est parce que l'argument passé en paramètre de la fonction est un tableau ?

C'est juste équivalent à

sub weight {
    my $toto = shift;
    switch ($toto) {

mais ça évite de définir une variable explicite inutile ($toto ici);
A+,