recherche dans un programme .pc

Version imprimable

C'est toujours moi avec un autre problème

J'ai un bloc de commande dans un programme
Code:

1 2 3 4 5 6 printf ("%s/Erreur ORACLE:\n %.70s (%d)\n",message.arr , sqlca.sqlerrm.sqlerrmc, -sqlca.sqlcode); printf ("Num Commande % 5.0lf % 2.0lf % 4.0lf\n ", cdeent_n_aaaa_cpt, cdeent_n_mm_cpt, cdeent_n_cde);
Jusque là rien d'extraordinaire, si ce n'est que je dois remplacer ce bloc par

Code:

("Erreur ORACLE:\n %.70s (%d)\n", slaca.sqlerrm.sqlerrmc, -sqlca.sqlcode);

J'ai un gros problème de syntaxe puisqu'à l'exécution j'ai les messages d'erreurs suivants :
Code:

1 2 3 4 5 6 7 8 awk : 0602-511 L'expression rÚguliÞre printf \(" ne peut pas contenir de nouvel le ligne.La ligne source est 32. Le contexte de l'erreur est /printf \("%s\/Erreur ORACLE:\n %.70s (%d)\n",message.arr >>> <<< , sqlca.sqlerrm.sqlerrmc, -sqlca.sqlcode); Erreur de syntaxeLa ligne source est 33. awk : 0602-542 Il y a un caractÞre ) de trop. awk : 0602-500 QuitterLa ligne source est 33.
Quelqu'un pour un petit coup de main ???

03/10/2007, 17h13
jlliagre

Tu n'a pas posté le code awk qui provoque l'erreur.

Voici comme demandé le code awk correspondant

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
for file in test.pc
do
  cp $file $file.org
  awk '
/#include <gestimpr.h>/ {
  print $0
  print "#include <userprog.h>  /* GF 01102007 */"
  next
}
/EXEC SQL INCLUDE sqlca.h;/ {
  print $0
  print "EXEC SQL INCLUDE bmtmain.h;  /* GF 01102007 */"
  next
}
/EXEC SQL BEGIN DECLARE SECTION;/{
  print $0
  print "/* GF 01102007 debut*/"
  print "VARCHAR sessionid [21],"
  print "        lib_err [2000],"
  print "        paragraphe_err [80];"
  print "int cd_ret;"
  print "/* GF 01102007 fin*/"
  next
}
/char[ \t]+TcSortie\[80\];\/\* nom du fichier de sortie \*\//{
  print $0
  print "char   lib_err1[2000];  /*GF 01102007*/"
  next
}
/fclose\(Fp\);/{
  print "        /*fclose(Fp);   GF 01102007 */"
  print "        pclose (Fp);   GF 01102007"
  next
}
/errexit:/{
  print "        EXEC SQL ROLLBACK WORK; /* RELEASE;   GF 01102007 */"
  continue
/return(0);/
  print "        /*return(0)*/"
  next
}
/system\(Lp\);/{
  print "        /*system(Lp);   GF 01102007 */"
  next
}
{
  print $0
} ' $file.org | tr -d '\r' > $file
done

Ne tiens pas compte du post précédent, la partie du awk qui ne fonctionne pas c'est la suivante :
Code:

1 2 3 4 5 6 7 /EXEC SQL ROLLBACK WORK RELEASE;/{ print " EXEC SQL ROLLBACK WORK; /* RELEASE; GF 01102007 */" continue /return(0);/ print " /*return(0)*/" next }

Décidement j'ai du mal ce matin.

le bon awk est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
/printf \("%s\/Erreur ORACLE:\n %.70s (%d)\n",message.arr
               , sqlca.sqlerrm.sqlerrmc, -sqlca.sqlcode);
 printf ("Num Commande % 5.0lf % 2.0lf % 4.0lf\n ",
cdeent_n_aaaa_cpt, cdeent_n_mm_cpt, cdeent_n_cde);/{
  print "printf (""Erreur ORACLE:\n %.70s (%d)\n"", slaca.sqlerrm.sqlerrmc, -sqlca.sqlcode);"
  next
}
/system\(Lp\);/{
  print "        /*system(Lp);   GF 01102007 */"
  next
}

On va y arriver

En fait j'ai fait quelques modif et ce que je souhaite réaliser est la chose suivante:

Dans un fichier .pc j'ai deux lignes de code que je veux remplacer par une seule. Je sais remplacer une ligne par une autre ou par rien, mais je ne sais pas RECHERCHER 2 lignes.

Moi je tape :
Code:

1 2 3 4 5 /EXEC SQL ROLLBACK WORK RELEASE; return(0);/{ print "EXEC SQL ROLLBACK WORK; /* RELEASE; GF 01102007 */" next }
et en erreur j'ai :
Code:

1 2 3 4 5 6 7 8 9 10 servora10:/index/u3/bernard/prog> chmod +x modiftestawk.sh servora10:/index/u3/bernard/prog> modiftestawk.sh awk : 0602-511 L'expression rÚguliÞre EXEC SQL R ne peut pas contenir de nouvel le ligne.La ligne source est 50. Le contexte de l'erreur est /EXEC SQL ROLLBACK WORK RELEASE; >>> <<< return(0);/{ Erreur de syntaxeLa ligne source est 51. awk : 0602-500 QuitterLa ligne source est 51. servora10:/index/u3/bernard/prog>
Je bloque en fait sur la recherche...

Une façon de faire 8-) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
awk '
{
 
	if ($0 ~ /EXEC SQL ROLLBACK WORK RELEASE;/) {
		sauv_enreg=$0
		getline
		if ($0 ~ /return\(0\);/) {
			print "EXEC SQL ROLLBACK WORK; /*  RELEASE;   GF 01102007 */"
			next
		} else {
			print sauv_enreg
		}
	}
	print $0
}
' proc.pc > tmp.pc

Ton code semble fonctionner, pour la résolution de mon problème. Seulement, le fait de rajouter ce bout de code a pour effet de me doubler toutes les lignes de mon programme test.pc.

Voici mon code complet (modiftestawk.sh)

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
for file in test.pc
do
  cp $file $file.org
  awk '
/#include <gestimpr.h>/ {
  print $0
  print "#include <userprog.h>  /* GF 01102007 */"
  next
}
/EXEC SQL INCLUDE sqlca.h;/ {
  print $0
  print "EXEC SQL INCLUDE bmtmain.h;  /* GF 01102007 */"
  next
}
/EXEC SQL BEGIN DECLARE SECTION;/{
  print $0
  print "/* GF 01102007 debut*/"
  print "VARCHAR sessionid [21],"
  print "        lib_err [2000],"
  print "        paragraphe_err [80];"
  print "int cd_ret;"
  print "/* GF 01102007 fin*/"
  next
}
/char[ \t]+TcSortie\[80\];\/\* nom du fichier de sortie \*\//{
  print $0
  print "char   lib_err1[2000];  /*GF 01102007*/"
  next
}
/fclose\(Fp\);/{
  print "        /*fclose(Fp);   GF 01102007 */"
  print "        pclose (Fp);   GF 01102007"
  next
}
/printf \(\"%s\/Erreur ORACLE:\\n %.70s \(%d)\\n\",message.arr/{
  print " printf \(\"Erreur ORACLE:\\n %.70s (%d)\\n\", sqlca.sqlerrm.sqlerrmc,"
  next
}
/, sqlca.sqlerrm.sqlerrmc, -sqlca.sqlcode\);/{
  print "  -sqlca.sqlcode\);"
  next
}
/printf \(\"Num Commande % 5.0lf % 2.0lf % 4.0lf\\n \",/{
  next
}
/cdeent_n_aaaa_cpt, cdeent_n_mm_cpt, cdeent_n_cde\);/{
  next
}
{
if ($0 ~ /EXEC SQL ROLLBACK WORK RELEASE;/) {
  sauv_enreg=$0
  getline
  if ($0 ~ /return\(0\);/) {
   print "EXEC SQL ROLLBACK WORK; /*  RELEASE;   GF 01102007 */"
   next
  } else {
   print sauv_enreg
  }
 }
 print $0
}

/system\(Lp\);/{
  print "        /*system(Lp);   GF 01102007 */"
  next
}
{
  print $0
} ' $file.org | tr -d '\r' > $file
done

en rouge c'est la partie que j'ai rajoutée suite à ta remarque.

J'ai trouvé le bug, ton code est bon hormis le dernier print $0

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
{
if ($0 ~ /EXEC SQL ROLLBACK WORK RELEASE;/) {
  sauv_enreg=$0
  getline
  if ($0 ~ /return\(0\);/) {
   print "EXEC SQL ROLLBACK WORK; /*  RELEASE;   GF 01102007 */"
   next
  } else {
   print sauv_enreg
  }
 }
 
}

Merci en core pour le coup de main