Bonjour, voilà une autre solution si vous voulez plutôt utiliser une liste réutilisable par la suite
grep évalue un block d'instruction pour chaque élément d'un tableau (et au sein du block, $_ prend successivement les valeurs des tableaux). Dans un contexte scalaire (c'est le cas de la condition dans un if()), elle renvoie le nombre de fois où le block est évalué à vrai.
ainsi dans votre code, vous pouvez définir my @departements_concernes =qw/01 03 15 26 43 63 75 77 91 92 94 95/; en début de fichier (c'est un tableau de chaines de caractères, si on utilise un tableau sans spécifier que ce sont des chaines de caractères, 01 devient 1 dans beaucoup de contextes)
puis utiliser if (grep {$cpostal =~ /^$_/} @departements_concernes) {blabla}
Bonjour,
voilà une autre solution si vous voulez plutôt utiliser une liste
réutilisable par la suite
grep évalue un block d'instruction pour chaque élément d'un tableau (et
au sein du block, $_ prend successivement les valeurs des tableaux).
Dans un contexte scalaire (c'est le cas de la condition dans un if()),
elle renvoie le nombre de fois où le block est évalué à vrai.
ainsi dans votre code, vous pouvez définir
my @departements_concernes =qw/01 03 15 26 43 63 75 77 91 92 94 95/;
en début de fichier (c'est un tableau de chaines de caractères, si on
utilise un tableau sans spécifier que ce sont des chaines de caractères,
01 devient 1 dans beaucoup de contextes)
puis utiliser if (grep {$cpostal =~ /^$_/} @departements_concernes) {blabla}
Bonjour, voilà une autre solution si vous voulez plutôt utiliser une liste réutilisable par la suite
grep évalue un block d'instruction pour chaque élément d'un tableau (et au sein du block, $_ prend successivement les valeurs des tableaux). Dans un contexte scalaire (c'est le cas de la condition dans un if()), elle renvoie le nombre de fois où le block est évalué à vrai.
ainsi dans votre code, vous pouvez définir my @departements_concernes =qw/01 03 15 26 43 63 75 77 91 92 94 95/; en début de fichier (c'est un tableau de chaines de caractères, si on utilise un tableau sans spécifier que ce sont des chaines de caractères, 01 devient 1 dans beaucoup de contextes)
puis utiliser if (grep {$cpostal =~ /^$_/} @departements_concernes) {blabla}
pour lancer une instruction si le code postal ce trouve dans un certain departement.
Plutot que des tonnes de parenthèses et les opérateurs '||' et '&&', utilisez plutôt les opérateurs 'or' et 'and' :
if ($cpostal =~ /^01/ or $cpostal =~ /^03/ ...
Je voulais savoir si il n'y aurais pas une methode plus propre et plus clair au niveau code source, style:
@departements_concernes = (01,03,15,26,43,63,75,77,91,92,94,95) if ($cpostal =~ /^$departements_concernes/) { xx
Ici, le 01 pose problème car, comme tous les autres, il est interprété comme un nombre et donnera 1 (au lieu de 01). Il faut donc utiliser une liste de mots et non une liste de nombres.
Première solution : pour le test, utilisez une expression rationnelle. Ce qui donne :
if (first {$cpostal =~ m/^$_/} @departements_concernes) { ... }
Troisième solution : créer une table de hachage donc les clés sont les numéros des départements acceptables puis chercher une clé correspondant aux deux premiers caractères du code postal extraits via la fonction substr. Ce qui donne :
pour lancer une instruction si le code postal ce trouve dans un
certain departement.
Plutot que des tonnes de parenthèses et les opérateurs '||' et '&&',
utilisez plutôt les opérateurs 'or' et 'and' :
if ($cpostal =~ /^01/ or $cpostal =~ /^03/ ...
Je voulais savoir si il n'y aurais pas une methode plus propre et plus
clair au niveau code source, style:
@departements_concernes = (01,03,15,26,43,63,75,77,91,92,94,95)
if ($cpostal =~ /^$departements_concernes/) { xx
Ici, le 01 pose problème car, comme tous les autres, il est interprété
comme un nombre et donnera 1 (au lieu de 01). Il faut donc utiliser une
liste de mots et non une liste de nombres.
Première solution : pour le test, utilisez une expression
rationnelle. Ce qui donne :
if (first {$cpostal =~ m/^$_/} @departements_concernes) {
...
}
Troisième solution : créer une table de hachage donc les clés sont les
numéros des départements acceptables puis chercher une clé correspondant
aux deux premiers caractères du code postal extraits via la fonction
substr. Ce qui donne :
pour lancer une instruction si le code postal ce trouve dans un certain departement.
Plutot que des tonnes de parenthèses et les opérateurs '||' et '&&', utilisez plutôt les opérateurs 'or' et 'and' :
if ($cpostal =~ /^01/ or $cpostal =~ /^03/ ...
Je voulais savoir si il n'y aurais pas une methode plus propre et plus clair au niveau code source, style:
@departements_concernes = (01,03,15,26,43,63,75,77,91,92,94,95) if ($cpostal =~ /^$departements_concernes/) { xx
Ici, le 01 pose problème car, comme tous les autres, il est interprété comme un nombre et donnera 1 (au lieu de 01). Il faut donc utiliser une liste de mots et non une liste de nombres.
Première solution : pour le test, utilisez une expression rationnelle. Ce qui donne :
if (first {$cpostal =~ m/^$_/} @departements_concernes) { ... }
Troisième solution : créer une table de hachage donc les clés sont les numéros des départements acceptables puis chercher une clé correspondant aux deux premiers caractères du code postal extraits via la fonction substr. Ce qui donne :
Personnellement, j'utilise très souvent cette dernière solution.
-- Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/> Perl en français - <http://perl.mines-albi.fr/>
Chloe Sival
Le 04/01/2012 10:14, Paul Gaborit a écrit :
Troisième solution : créer une table de hachage donc les clés sont les numéros des départements acceptables puis chercher une clé correspondant aux deux premiers caractères du code postal extraits via la fonction substr. Ce qui donne :
avec comme objectifs, si $cpostal est en zone A et pas en Zone B = instruction 1 si $cpostal est en zone A et en Zone B = instruction 2
merci d'avance Chloe
Le 04/01/2012 10:14, Paul Gaborit a écrit :
Troisième solution : créer une table de hachage donc les clés sont les
numéros des départements acceptables puis chercher une clé correspondant
aux deux premiers caractères du code postal extraits via la fonction
substr. Ce qui donne :
Troisième solution : créer une table de hachage donc les clés sont les numéros des départements acceptables puis chercher une clé correspondant aux deux premiers caractères du code postal extraits via la fonction substr. Ce qui donne :
avec comme objectifs, si $cpostal est en zone A et pas en Zone B = instruction 1 si $cpostal est en zone A et en Zone B = instruction 2
merci d'avance Chloe
Paul Gaborit
À (at) Thu, 05 Jan 2012 05:12:45 +0100, Chloe Sival écrivait (wrote):
Une question: si je veux utiliser l'instruction (defined $dc{substr($cpostal,0,2)}) avec de or/and/||/&& cela ce passe comment ? j'ai créé: @departements_concernes_zone_a @departements_concernes_zone_b
Comme n'importe quelle autre condition, à partir du moment où les deux tables de hachages %dc_a et %dc_b sont créées. Exemple :
if (defined $dc_a{$substr($cpostal,0,2)} and not defined $dc_b{substr($cpostal,0,2)}) { ... }
-- Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/> Perl en français - <http://perl.mines-albi.fr/>
À (at) Thu, 05 Jan 2012 05:12:45 +0100,
Chloe Sival <chloe.sival@gmail.com> écrivait (wrote):
Une question: si je veux utiliser l'instruction (defined
$dc{substr($cpostal,0,2)}) avec de or/and/||/&& cela ce passe comment
?
j'ai créé:
@departements_concernes_zone_a
@departements_concernes_zone_b
Comme n'importe quelle autre condition, à partir du moment où les deux
tables de hachages %dc_a et %dc_b sont créées. Exemple :
if (defined $dc_a{$substr($cpostal,0,2)}
and not defined $dc_b{substr($cpostal,0,2)}) {
...
}
--
Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/>
Perl en français - <http://perl.mines-albi.fr/>
À (at) Thu, 05 Jan 2012 05:12:45 +0100, Chloe Sival écrivait (wrote):
Une question: si je veux utiliser l'instruction (defined $dc{substr($cpostal,0,2)}) avec de or/and/||/&& cela ce passe comment ? j'ai créé: @departements_concernes_zone_a @departements_concernes_zone_b
Comme n'importe quelle autre condition, à partir du moment où les deux tables de hachages %dc_a et %dc_b sont créées. Exemple :
if (defined $dc_a{$substr($cpostal,0,2)} and not defined $dc_b{substr($cpostal,0,2)}) { ... }
-- Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/> Perl en français - <http://perl.mines-albi.fr/>
