Discussion :

[david2109]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[disedorgue]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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

[disedorgue]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[david2109]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[djibril]

Bonjour,

Voici un programme perl tout fait.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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

[disedorgue]

Juste pour corrigé la version avec les 2 regex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[david2109]

Merci à tous pour vos réponses. Cela fonctionne et simplifie beaucoup le code.

[CosmoKnacki]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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