AWK -Passage de deux arguments (un numéro de champ, une expression régulière) ? [Résolu]

[Moostiq]

Bonjour;

Alors tout est dans le sujet...
Est - il possible de passer en paramètre d'un script awk, 2 paramètres... et de surtout les ré-utiliser ensuite ?

Voici mon script AWK qui plante... avec l'erreur... :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
# CheckPatternString(col:num, pattern:reg_exp)
#
CheckPatternString()
{
        awk -v col=$2 -v pattern=$3 -F ';' '
                NF>0 {
                if ( match($col,$pattern) )
                        {
                        print "**** ERREUR dans un champ ! ligne:"NR"**** Valeur en cause :"$col"****";
                        print "****"$0"****";
                        exit 1;
                        }
                }' $1
}
#
 
[....] L'erreur obtenue :
 
awk: Field /^Mme$|^M$|^Mlle$|^$/ is not correct.
 The input line number is 1. The file is RGEUsersVerole.csv_WBLANKS.
 The source line number is 3.

Merci de votre aide....

PS/ Je sais... ce awk est "debile" mais c'est en fait une sous fonction de mon programme Shell Bash SH
En voici l'appel :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
#
# On verifie le champ 1 (Civilité)
#
echo "-- DEBUT -- CheckPatternString Civilite"
RegExpCivilite="^Mme$|^M$|^Mlle$|^$";
CheckPatternString $FIC_ENTREE_WBLANKS 1 $RegExpCivilite
if [ $? != 0 ]; then
        {
                CatchError
                Error "001" $FIC_ENTREE $FIC_ENTREE_WBLANKS
        }
fi
echo "-- FIN -- CheckPatternString Civilite"

[Moostiq]

Avec

Code :

1
2
3
4
5
 
CheckPatternString()
[...]
if ( match($col,/$pattern/) )
[...]

=> Plus d'erreur.
===> Mais le pattern n'est pas du tout respecter !

[Moostiq]

De meme avec :

Code :

1
2
3
4
5
CheckPatternString()
[...]
 if ( match($col,/${pattern}/) )
# Les parenthes en plus...
[...]

[Moostiq]

De meme avec :

Code :

1
2
3
4
5
6
7
8
9
10
 
 if ( match($col,/$pattern/) )
 
#et
#DANS LE MAIN 
{
 
RegExpCivilite="\^Mme\$\|\^M\$\|\^Mlle\$\|\^\$";
 
}

[chardclo]

Bonjour,

$pattern référence la valeur de la colonne N°pattern...

Voici comment procéder :

Code :

1
2
3
$ echo 'toto abc abcf abcde'|awk -v pattern="abc(d|e)" -v col=3 '$col ~ pattern'
$ echo 'toto abc abcf abcde'|awk -v pattern="abc(d|e)" -v col=4 '$col ~ pattern'
toto abc abcf abcde

[Moostiq]

Mouais; j'ai essayé avec le comparateur ~ ... Pas mieux :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 syntax error The source line is 4.
 The error context is
                                $col !~ pattern >>>     { <<<
 awk: The statement cannot be correctly parsed.
 
#OK Je mets un $.... et bien non
 syntax error The source line is 4.
 The error context is
                                $col !~ $pattern >>>  { <<<
 awk: The statement cannot be correctly parsed.
 The source line is 4.
 syntax error The source line is 9.

Autre idée...?

[Moostiq]

Je remets le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#
###############
#
# CheckPatternString(col:num, pattern:reg_exp)
#
CheckPatternString()
{
        awk -v col=$2 -v pattern=$3 -F ';' '
                NF>0 {
                #if ( match($col,/$pattern/) )
                $col !~ /pattern/ {
                        print "**** ERREUR dans un champ ! ligne:"NR"**** Valeur en cause :"$col"****";
                        print "****"$0"****";
                        exit 1;
                        }
                }' $1
}
#

MAIN DU .SH :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#
# On verifie le champ 1 (Civilité)
#
echo "-- DEBUT -- CheckPatternString Civilite"
RegExpCivilite="^Mme$|^M$|^Mlle$|^$";
CheckPatternString $FIC_ENTREE_WBLANKS 1 $RegExpCivilite
if [ $? != 0 ]; then
        {
                CatchError
                Error "001" $FIC_ENTREE $FIC_ENTREE_WBLANKS
        }
fi
echo "-- FIN -- CheckPatternString Civilite"

[chardclo]

Avec ton dernier script le pattern est "pattern" et non la valeur de la variable pattern :/

Code :

1
2
3
4
5
6
7
8
9
10
CheckPatternString()
  {
         awk -v col=$2 -v pattern="$3" -F ';' '
                       $col !~ pattern {
                          print "**** ERREUR dans un champ ! ligne:"NR"**** Valeur en cause :"$col"****";
                          print "****"$0"****";
                         exit 1;
                          }
                 ' $1
 }

Si tu tiens absolument à utiliser la forme /<pattern>/, il faut "casser" le script awk et exploiter directement ta variable shell $3 :

Code :

1
2
3
4
5
6
7
8
9
10
CheckPatternString()
  {
         awk -v col=$2 -F ';' '
                       $col!~/'${3}'/ {
                          print "**** ERREUR dans un champ ! ligne:"NR"**** Valeur en cause :"$col"****";
                          print "****"$0"****";
                         exit 1;
                          }
                 ' $1
 }

Aussi printf "**** ERREUR dans un champ ! ligne:%s**** Valeur en cause :%s****\n", NR, $col; est préférable à print "**** ERREUR dans un champ ! ligne:"NR"**** Valeur en cause :"$col"****";

[Moostiq]

Waouh !!! Pfuu et moi qui me galerait avec arg -v ....

Mercis beaucoup Chardclo .
Je n'avais plus aucun recul sur ce que je faisais... J'vais aller me boire un thé tiens !