Discussion :

[esteban]

Bonjour,

j'ai un problème incroyable avec un script que j'ai écrit sous perl. J'utilise une connexion DBI à oracle pour faire des updates sur une table.

Le script lit récursivement des lignes dans un fichier et construit une requete SQL en UPDATE.

elle est de la forme : "UPDATE table machin SET truc=? WHERE numero=?";

Je commence par un begin_work();
ensuite je fais un prepare()
puis bind_param sur les 2 params en varchar
et enfin execute()

Sur 5 lignes cela fonctionne, puis dans la 6ème, l'execute ne rend jamais la main. Pas d'erreur, rien dans la trace DBI... Il reste en attente et n'en sort jamais...

Le plus incroyable c'est que les valeurs sont par exemple :
WHERE numero='207566652-01' ne fonctionne pas
par contre
WHERE numero='207566652-02' fonctionne...

Dans les 2 cas, il n'y a aucun enregistrement à updater mais le blocage existe quand même.

Je suis sur un serveur Sun solaris, en perl 5.8.4 et oracle 10g.

Est-ce que quelqu'un à une idée ?? Cela me sauverait la vie...

[Vincent Rogier]

questions en vrac :

La ligne de la table ne serait pas lockée par ailleurs ?

tu es sur que la valeur lue du fichier est cohérente ?

Tu peux poster la partie du script en question ?

[esteban]

Salut,

j'estime qu'il est possible que l'enregistrement soit locké, mais mon script est le seul à travailler sur la table et je suis le seul user (script en dev).
Comment savoir si mon enregistrement est locké ? Comment le détecter pour logger l'info et passer à la suite, parce que pour l'instant c'est carrément bloquant.
En plus, quelle erreur j'aurais pu commettre pour qu'il y ait un lock sur l'enregistrement ? C'est bizarre...

[Vincent Rogier]

Et ton script ?

[esteban]

Ah oui... le voici :

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
53
54
55
56
57
58
59
60
61
62
logInfo("Debut de la sequence d'insertion des donnees");
	open(IGECA, "./tmp/$igecaFileName") || termine(-1); #Améliorer le log pour l'erreur
	@IGECA_IN = <IGECA>;
	$line_nb = 0;
	$nb_ok = 0;
	$nb_ko = 0;
	$erreurs_nb = 0;
 
	foreach $line (@IGECA_IN) {
		chomp($line);
		@champ = split(/;/, $line);
 
		#La première ligne contient les noms des colonnes
		if($line_nb > 0) {
			# Il faut vérifier si nous avons bien le bon nombre de champs (5 minimum)
			if(@champ >= 5) { 
				$ndCommande = trim(@champ[0]); 
				#Le ND peut être soit à 9 chiffres soit à 10 chiffres, on l'étend systématiquement à 10 chiffres en ajoutant un 0 si besoin au début
				if(length($ndCommande) < 10) { $ndCommande = "0$ndCommande"; }
 
				$dateEnvoi = trim(@champ[4]);
				$chronoCommande = trim(@champ[3]);
				$dateBss = trim(@champ[2]);
 
				my $requete = q{UPDATE INTERNET_SEC_COMMANDE SET CHRONO_COMMANDE=?, DATE_ENVOI=to_date(?, 'YYYY-MM-DD HH24:MI:SS'), 
					EMPLACEMENT_COMMANDE='IGECA' WHERE ND_COMMANDE=? AND DATE_BSS=to_date(?, 'YYYY-MM-DD HH24:MI:SS')};
 
				# logInfo("Requete d'update : $requete");
				logInfo("ndCommande=$ndCommande");
				if($dbmod) {
					$db->begin_work;
 
					my $sth = $db->prepare($requete);
 
					eval {
						$sth->bind_param(1, $chronoCommande, { ora_type => ORA_CHAR });
						$sth->bind_param(2, $dateEnvoi, { ora_type => ORA_CHAR });
						$sth->bind_param(3, $ndCommande, { ora_type => ORA_CHAR });
						$sth->bind_param(4, $dateBss, { ora_type => ORA_CHAR });						
						#$sth->execute(@$_) foreach (@updates) or print "Erreur : $DBI::errstr\n";						
						$sth->execute();
					};
 
					if( $@ ) {
						$db->rollback;
						logErreur("Une erreur s'est produite lors de l'execution de la requete pour ndCommande=$ndCommande");
						$db->errstr;
					} else {
						$db->commit;
						#print "ndCommande : $ndCommande";
					}
 
					if($sth->rows() > 0) { $nb_ok++; } else { $nb_ko++; }
					$sth->finish();	
				}
			} else { # La ligne était mal formatée, on reporte
				logErreur("La ligne était mal formatée : $line"); 
				$erreurs_nb++;
			}
		}
 
		$line_nb++;

[esteban]

Merci Vicenzo pour ton aide, en réalité tu avais raison c'était bien un problème de lock, mais pas de mon script. Je ne trouvais pas de lock de mon script mais en fait il y avait un lock de SQL Developer. Je ne comprends pas du tout pourquoi sql developper avait posé un lock sur ma table, alors que je ne la visualisais pas et que je ne fais que des select très simples depuis cette application... peut-être un bug ?

En tout cas cette histoire m'a fait perdre une journée entière, c'est cool !

Merci pour ton aide !