Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Moyen plus simple d'ecrire ?

10 views
Skip to first unread message

Chloe Sival

unread,
Jan 3, 2012, 10:08:52 PM1/3/12
to
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

unread,
Jan 4, 2012, 3:30:33 AM1/4/12
to
if( $cpostal =~ /^(01|03|07|15|etc.)/ )
{
...
}

Le 04-01-2012, Chloe Sival <chloe...@gmail.com> a �crit�:

azrazer

unread,
Jan 4, 2012, 4:03:14 AM1/4/12
to
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

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

Le 04/01/2012 04:08, Chloe Sival a �crit :

gerbier

unread,
Jan 4, 2012, 3:22:53 AM1/4/12
to
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

unread,
Jan 4, 2012, 4:14:49 AM1/4/12
to

À (at) Wed, 04 Jan 2012 04:08:52 +0100,
Chloe Sival <chloe...@gmail.com> écrivait (wrote):

> 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.

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 :

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.

--
Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/>
Perl en français - <http://perl.mines-albi.fr/>

Chloe Sival

unread,
Jan 4, 2012, 11:12:45 PM1/4/12
to
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 :
>
>
> 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.

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

unread,
Jan 5, 2012, 2:23:50 AM1/5/12
to

À (at) Thu, 05 Jan 2012 05:12:45 +0100,
Chloe Sival <chloe...@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)}) {
...

tfe

unread,
Feb 23, 2012, 4:23:37 PM2/23/12
to
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

0 new messages