Moyen plus simple d'ecrire ?

[Chloe Sival]

Bonjour,

Debutant en perl, j'utilise actuellement:

if (($cpostal =~ /^01/) || ($cpostal =~ /^03/) || ($cpostal =~
/^07/) || ($cpostal =~ /^15/) || ($cpostal =~ /^26/) || ($cpostal =~
/^42/) || ($cpostal =~ /^43/) || ($cpostal =~ /^63/) || ($cpostal =~
/^69/) || ($cpostal =~ /^75/) || ($cpostal =~ /^77/) || ($cpostal =~
/^78/) || ($cpostal =~ /^91/) || ($cpostal =~ /^92/) || ($cpostal =~
/^93/) || ($cpostal =~ /^94/) || ($cpostal =~ /^95/)) {

pour lancer une instruction si le code postal ce trouve dans un certain
departement.

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


merci d'avance pour vos suggestion ;=)
Chloé

[luc2]

if( $cpostal =~ /^(01|03|07|15|etc.)/ )
{
...
}

Post by Chloe Sival
Bonjour,
if (($cpostal =~ /^01/) || ($cpostal =~ /^03/) || ($cpostal =~
/^07/) || ($cpostal =~ /^15/) || ($cpostal =~ /^26/) || ($cpostal =~
/^42/) || ($cpostal =~ /^43/) || ($cpostal =~ /^63/) || ($cpostal =~
/^69/) || ($cpostal =~ /^75/) || ($cpostal =~ /^77/) || ($cpostal =~
/^78/) || ($cpostal =~ /^91/) || ($cpostal =~ /^92/) || ($cpostal =~
/^93/) || ($cpostal =~ /^94/) || ($cpostal =~ /^95/)) {
pour lancer une instruction si le code postal ce trouve dans un certain
departement.
Je voulais savoir si il n'y aurais pas une methode plus propre et plus
@departements_concernes = (01,03,15,26,43,63,75,77,91,92,94,95)
if ($cpostal =~ /^$departements_concernes/) { xx
merci d'avance pour vos suggestion ;=)
Chloé

[azrazer]

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}


Cordialement,
(ci-dessous un exemple)
azra.

----------------

use strict;
use warnings;

my @departements_concernes =qw/01 03 15 26 43 63 75 77 91 92 94 95/;

while (my $cpostal= <DATA>){
if (grep {$cpostal =~ /^$_/} @departements_concernes) {
print $cpostal;
}
}
__DATA__
01
01578
0401157
635798
95487
0115

---------------------

Post by Chloe Sival
Bonjour,
if (($cpostal =~ /^01/) || ($cpostal =~ /^03/) || ($cpostal =~ /^07/) ||
($cpostal =~ /^15/) || ($cpostal =~ /^26/) || ($cpostal =~ /^42/) ||
($cpostal =~ /^43/) || ($cpostal =~ /^63/) || ($cpostal =~ /^69/) ||
($cpostal =~ /^75/) || ($cpostal =~ /^77/) || ($cpostal =~ /^78/) ||
($cpostal =~ /^91/) || ($cpostal =~ /^92/) || ($cpostal =~ /^93/) ||
($cpostal =~ /^94/) || ($cpostal =~ /^95/)) {
pour lancer une instruction si le code postal ce trouve dans un certain
departement.
Je voulais savoir si il n'y aurais pas une methode plus propre et plus
@departements_concernes = (01,03,15,26,43,63,75,77,91,92,94,95)
if ($cpostal =~ /^$departements_concernes/) { xx
merci d'avance pour vos suggestion ;=)
Chloé

[gerbier]

Post by Chloe Sival
Bonjour,
if (($cpostal =~ /^01/) || ($cpostal =~ /^03/) || ($cpostal =~ /^07/) || ($cpostal =~ /^15/)
|| ($cpostal =~ /^26/) || ($cpostal =~ /^42/) || ($cpostal =~ /^43/) || ($cpostal =~ /^63/) ||
($cpostal =~ /^69/) || ($cpostal =~ /^75/) || ($cpostal =~ /^77/) || ($cpostal =~ /^78/) ||
($cpostal =~ /^91/) || ($cpostal =~ /^92/) || ($cpostal =~ /^93/) || ($cpostal =~ /^94/) ||
($cpostal =~ /^95/)) {
pour lancer une instruction si le code postal ce trouve dans un certain departement.
Je voulais savoir si il n'y aurais pas une methode plus propre et plus clair au niveau code source,
@departements_concernes = (01,03,15,26,43,63,75,77,91,92,94,95)
if ($cpostal =~ /^$departements_concernes/) { xx

j'aime bien les tables de hashage pour ça :

%departements_concernes = ( 1 => 1, 3 => 1, 7 => 1, ... 95 => 1);

if (exists $departements_concernes{$cpostal} ) {
}

[Paul Gaborit]

À (at) Wed, 04 Jan 2012 04:08:52 +0100,

Post by Chloe Sival
if (($cpostal =~ /^01/) || ($cpostal =~ /^03/) || ($cpostal =~
/^07/) || ($cpostal =~ /^15/) || ($cpostal =~ /^26/) || ($cpostal =~
/^42/) || ($cpostal =~ /^43/) || ($cpostal =~ /^63/) || ($cpostal =~
/^69/) || ($cpostal =~ /^75/) || ($cpostal =~ /^77/) || ($cpostal =~
/^78/) || ($cpostal =~ /^91/) || ($cpostal =~ /^92/) || ($cpostal =~
/^93/) || ($cpostal =~ /^94/) || ($cpostal =~ /^95/)) {
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/ ...

Post by Chloe Sival
Je voulais savoir si il n'y aurais pas une methode plus propre et plus
@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 :

my @departements_concernes
= qw/01 03 15 26 43 63 75 77 91 92 94 95/;
my $dc_regex = join "|", @departements_concernes;

if ($cpostal =~ m/^(?:$dc_regex)/) {
...
}

Deuxième solution : utiliser le module List::Util et sa fonction
first. Ce qui donne :

use List::Util qw/first/;

...

my @departements_concernes
= qw/01 03 15 26 43 63 75 77 91 92 94 95/;

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 :


my @departements_concernes
= qw/01 03 15 26 43 63 75 77 91 92 94 95/;
my %dc = map {($_ => 1)} @departements_concernes;

if (defined $dc{substr($cpostal,0,2)}) {
...
}

Personnellement, j'utilise très souvent cette dernière solution.

[Chloe Sival]

Post by Paul Gaborit
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
= qw/01 03 15 26 43 63 75 77 91 92 94 95/;
if (defined $dc{substr($cpostal,0,2)}) {
...
}
Personnellement, j'utilise très souvent cette dernière solution.

Nickel merci pour vos reponses, j'ai testé avec succes la troisieme
solution.

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

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,

Post by Chloe Sival
Une question: si je veux utiliser l'instruction (defined
$dc{substr($cpostal,0,2)}) avec de or/and/||/&& cela ce passe comment ?
@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)}) {
...
}

[tfe]

Post by Chloe Sival
Bonjour,
         if (($cpostal =~ /^01/) || ($cpostal =~ /^03/) || ($cpostal =~
/^07/) || ($cpostal =~ /^15/) || ($cpostal =~ /^26/) || ($cpostal =~
/^42/) || ($cpostal =~ /^43/) || ($cpostal =~ /^63/) || ($cpostal =~
/^69/) || ($cpostal =~ /^75/) || ($cpostal =~ /^77/) || ($cpostal =~
/^78/) || ($cpostal =~ /^91/) || ($cpostal =~ /^92/) || ($cpostal =~
/^93/) || ($cpostal =~ /^94/) || ($cpostal =~ /^95/)) {
pour lancer une instruction si le code postal ce trouve dans un certain
departement.
Je voulais savoir si il n'y aurais pas une methode plus propre et plus
@departements_concernes = (01,03,15,26,43,63,75,77,91,92,94,95)
if ($cpostal =~ /^$departements_concernes/) { xx
merci d'avance pour vos suggestion ;=)
Chlo

Bonjour,

Tu peux créer une regex dynamiquement aussi:
@departements_concernes = (01,03,15,26,43,63,75,77,91,92,94,95) ;
my $regex = join "|", @departements_concernes;
if(/$regex/) {
# print "OK CA MARCHE...";
}

--
tfe
http://tfeserver.fr