Substituer un seul caractère en AWK

[DIE]

Bonjour,
Je suis toujours sur mon script de variabilisation.
Maintenant j'essai de substituer UN seul caractère dans une chaine de caractère.

Par exemple, soit la ligne de mon fichier :
RUN PROGRAM(SRLOSABA) PLAN(SRLOS77A)

ce qui m'interesse c'est de substituer le 7 en gras par la variable £JEU,
j'ai essayé avec un sub mais le problème c'est qu'il me substitue le premier
7 et non le second (c'est toujours le dernier chiffre qui doit etre variabilisé)


J'ai réussi à faire en sorte que mon AWK fonctionne en matchant les lignes comme si dessous

Code :

1
2
3
4
5
6
7
match($0,"PLAN[(].*[0-9][ABSP][)]")     {
                          JEU=substr($0,RSTART+(RLENGTH-3),1)
                          JEU_match=substr($0,RSTART+5,RLENGTH-7)
                          JEU_debut=substr($0,RSTART+5,RLENGTH-8)
                          JEU_chaine=JEU_debut"£JEU"
                          sub(JEU_match,JEU_chaine)
}

RESULTAT :
RUN PROGRAM(SRLOSABA) PLAN(SRLOS7£JEUA)

ça marche bien comme ci dessus (découpant les chaines de caractère avant et après le 7 et en recollant le tout) mais je trouve que cela fait très usine à gaz
comment substituer un seul caractère déterminé dans une chaine ?

Merci

[BlaireauOne]

Que penses-tu de ceci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
echo "liste.txt"
cat liste.txt
 
echo -e "\nTraitement"
awk '
{
	if (match($0,"^RUN PROGRAM.* PLAN.*[0-9]+")) {
		LastDigit=substr($0,RLENGTH,1)
		print "Record "NR" : position et valeur du dernier chiffre présent après la chaîne PLAN : "RLENGTH", "LastDigit | "cat 1>&2"
		print substr($0,RSTART,RLENGTH-1)"£JEU"substr($0,RLENGTH+1)
	}
} ' liste.txt > result.txt
 
echo -e "Fin Traitement\n"
echo "result.txt"
cat result.txt

liste.txt
RUN PROGRAM(SRLOSABA) PLAN(SRLOSA)
RUN PROGRAM(SRLOSABA) PLAN(SRLOS12345A)
RUN PROGRAM(SRLOSABA) PLAN(SRLOS77A)
RUN PROGRAM(SRLOSABA) PLAN(SRLOS77A88)

Traitement
Record 2 : position et valeur du dernier chiffre présent après la chaîne PLAN : 37, 5
Record 3 : position et valeur du dernier chiffre présent après la chaîne PLAN : 34, 7
Record 4 : position et valeur du dernier chiffre présent après la chaîne PLAN : 37, 8
Fin Traitement

result.txt
RUN PROGRAM(SRLOSABA) PLAN(SRLOS1234£JEUA)
RUN PROGRAM(SRLOSABA) PLAN(SRLOS7£JEUA)
RUN PROGRAM(SRLOSABA) PLAN(SRLOS77A8£JEU)

[aikinhdo]

Bonjour,

C'est une commande tres intéressant.. merci
Par contre qu'est ce que fait le "cat" dans ta commande awk ?

Merci

[BlaireauOne]

Dans l'exemple ci-dessous :

print $0 :
- écris $0 dans le fichier déclaré par la variable $outfile

print "blah blah" | "cat 1>&2"
- écris "blah bla" dans la sortie standard (1), elle-même redirigée vers la stderr - sortie standard d'erreur (2) - en l'occurence l'écran.

Code :

1
2
3
4
5
awk '
{
    print $0
    print "blah blah" | "cat 1>&2"
} ' $infile > $outfile

Voir http://marcg.developpez.com/ksh/

.../...
Redirection,Substitution,enchaînement Les redirections sont le détournement des 3 descripteurs de fichiers standards à savoir :
3.1. Les redirections en sortie
3.2. Les redirections en entrée
.../...
3.3. La redirection des erreurs
3.4. Les enchaînements (pipe et tee)
.../...
Les redirections sont le détournement des 3 descripteurs de fichiers standards à savoir :
l'entrée standard (noté 0) : le clavier
la sortie standard (noté 1) : la console courante
la sortie des erreurs (noté 2) : la console courante
.../...