[PERL] [REGEX] Consommation intempestive dans une chaine

Version imprimable

Bonjour,

J'ai un petit souci avec un vieux script UNiX dont une partie PERL
Manifestement le problème est dans la partie PERL
Dans le code, le bug est assez clairement identifié mais je ne parviens pas à le corriger

Voici le script en question

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
 
#!/bin/ksh
 
PERL=/usr/bin/perl
 
 
                # BUG A CORRIGER
                #SI CODE PAYS = DEUX LETTRES IDENTIQUES UN SEUL CHIFFRE EN SORTIE
                #EXEMPLE
                #codePAYS="AA"
                #ALORS 
                #Constaté codePaysEnChiffres = 10
                #Attendu codePaysEnChiffres = 1010
 
                codePAYS="AA"
                echo codePAYS = $codePAYS
 
                # On remplace chaque lettre du Code Pays par son équivalent en chiffre
                # Indispensable pour calculer le modulo 97
                codePaysEnChiffres=`echo $codePAYS | $PERL -e 'BEGIN{$codePaysEnChiffres=undef; }
                                            END{ print $codePaysEnChiffres; } \
                                            while (<>) { \
                                                if (/A/) {$codePaysEnChiffres=$codePaysEnChiffres."10";} \
                                                if (/B/) {$codePaysEnChiffres=$codePaysEnChiffres."11";} \
                                                if (/C/) {$codePaysEnChiffres=$codePaysEnChiffres."12";} \
                                                if (/D/) {$codePaysEnChiffres=$codePaysEnChiffres."13";} \
                                                if (/E/) {$codePaysEnChiffres=$codePaysEnChiffres."14";} \
                                                if (/F/) {$codePaysEnChiffres=$codePaysEnChiffres."15";} \
                                                if (/G/) {$codePaysEnChiffres=$codePaysEnChiffres."16";} \
                                                if (/H/) {$codePaysEnChiffres=$codePaysEnChiffres."17";} \
                                                if (/I/) {$codePaysEnChiffres=$codePaysEnChiffres."18";} \
                                                if (/J/) {$codePaysEnChiffres=$codePaysEnChiffres."19";} \
                                                if (/K/) {$codePaysEnChiffres=$codePaysEnChiffres."20";} \
                                                if (/L/) {$codePaysEnChiffres=$codePaysEnChiffres."21";} \
                                                if (/M/) {$codePaysEnChiffres=$codePaysEnChiffres."22";} \
                                                if (/N/) {$codePaysEnChiffres=$codePaysEnChiffres."23";} \
                                                if (/O/) {$codePaysEnChiffres=$codePaysEnChiffres."24";} \
                                                if (/P/) {$codePaysEnChiffres=$codePaysEnChiffres."25";} \
                                                if (/Q/) {$codePaysEnChiffres=$codePaysEnChiffres."26";} \
                                                if (/R/) {$codePaysEnChiffres=$codePaysEnChiffres."27";} \
                                                if (/S/) {$codePaysEnChiffres=$codePaysEnChiffres."28";} \
                                                if (/T/) {$codePaysEnChiffres=$codePaysEnChiffres."29";} \
                                                if (/U/) {$codePaysEnChiffres=$codePaysEnChiffres."30";} \
                                                if (/V/) {$codePaysEnChiffres=$codePaysEnChiffres."31";} \
                                                if (/W/) {$codePaysEnChiffres=$codePaysEnChiffres."32";} \
                                                if (/X/) {$codePaysEnChiffres=$codePaysEnChiffres."33";} \
                                                if (/Y/) {$codePaysEnChiffres=$codePaysEnChiffres."34";} \
                                                if (/Z/) {$codePaysEnChiffres=$codePaysEnChiffres."35";} \
                                            }'`
 
                echo "codePaysEnChiffres = "$codePaysEnChiffres

Bien sûr, cela doit marcher aussi quelque soit la longueur
AACAA = 1010131010
ADAB = 10141011

Et il y a un autre problème, non identifié apparemment : le CodePaysEnChiffre est trié alors qu'il ne faut pas

#EXEMPLE
#codePAYS="GB"
#ALORS
#Constaté codePaysEnChiffres = 1116
#Attendu codePaysEnChiffres = 1611

Quelqu'un saurait-il me dire ce qu'il en est ? Le script marche mal du coup et c'est dommage.

Cdt

Bonjour,

Ici, je ne vois pas trop l'utilité du perl, un simple sed aurait suffit mais bon...:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#!/bin/ksh
 
PERL=/usr/bin/perl
 
 
                # BUG A CORRIGER
                #SI CODE PAYS = DEUX LETTRES IDENTIQUES UN SEUL CHIFFRE EN SORTIE
                #EXEMPLE
                #codePAYS="AA"
                #ALORS 
                #Constaté codePaysEnChiffres = 10
                #Attendu codePaysEnChiffres = 1010
 
                codePAYS="AA"
                echo codePAYS = $codePAYS
 
                # On remplace chaque lettre du Code Pays par son équivalent en chiffre
                # Indispensable pour calculer le modulo 97
                codePaysEnChiffres=`echo $codePAYS | $PERL -pe 's/A/10/g; \
                                                s/B/11/g; \
                                                s/C/12/g; \
...
...
...
                                                s/Z/35/g;'
 
                echo "codePaysEnChiffres = "$codePaysEnChiffres

et ici, tu peux remplacer $PERL -pe par sed -e.

14/09/2016, 14h34
djibril

Bonjour,

Je dirais même refaire un vrai programme Perl simple et clair qui te fait cela. Car là le code est un peu tordu pour pas grand chose.

Si on reste sur du perl, on peut le faire en 2 regex:

Code:

1
2
echo $codePAYS | $PERL -pe 's/./$&\l$&/g; \
                 y/AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz/1011121314151617181920212223242526272829303132333435/'

Bonjour,

Merci pour vos réponses. Cela fonctionne maintenant.
Effectivement, je ne sais pourquoi Perl est utilisé plutôt que sed

Quant à la seconde solution, il est vrai qu'elle fait économiser beaucoup de lignes de code mais elle est plus hermétique (c'est du perl quoi ! :))
Surtout elle ne fonctionne pas lorsqu'il y a des chiffres
Code:

1 2 3 4 5 6 7 8 9 codePAYS="GB12SOGE" echo "codePAYS = "$codePAYS codePaysEnChiffres=`echo $codePAYS | $PERL -pe 's/./$&\l$&/g; \ y/0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz/01234567891011121314151617181920212223242526272829303132333435/'` echo "codePaysEnChiffres = "$codePaysEnChiffres
Constaté :
codePAYS = GB12SOGE
codePaysEnChiffres = 1611112228241614

Attendu
codePAYS = GB12SOGE
codePaysEnChiffres = 16111228241614

J'ai essayé de modifier l'expression régulière en incorporant les chiffres mais cela ne marche pas.

Bonjour,

Voici un programme perl tout fait.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
use warnings;
use strict;
use Getopt::Long;
 
my $chaine;
GetOptions( "c=s" => \$chaine );
if ( not defined $chaine ) { die "USAGE : perl $0 -c codePAYS\n"; }
print codification($chaine);
 
sub codification {
	my $chaine   = shift;
	my $compteur = 10;
	my $code;
	my %correspondances = map { $_ => $compteur++ } ( 'A' .. 'Z' );
	foreach my $lettre ( split( //, uc($chaine) ) ) {
		$code .= exists $correspondances{$lettre} ? $correspondances{$lettre} : $lettre;
	}
 
	return $code;
}

Pour le lancer avec un exemple de résultat.

Citation:

C:\Users\user\Desktop>perl test.pl -c GB12SOGE
16111228241614

Juste pour corrigé la version avec les 2 regex:

Code:

1
2
echo $codePAYS | $PERL -pe 's/[A-Z]/$&\l$&/g; \
                 y/AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz/1011121314151617181920212223242526272829303132333435/'

16/09/2016, 12h35
david2109

Merci à tous pour vos réponses. Cela fonctionne et simplifie beaucoup le code.
29/09/2016, 21h45
CosmoKnacki

Sinon, du point de vue concision tu peux utiliser le code ascii de la lettre:

Code:

echo $codePays | $PERL -pe 's/[A-Z]/ord($&)-55/ge'