Discussion :

[Jasmine80]

J'ai un programme qui parfois fonctionne très bien mais parfois avec des erreurs quand je le relance sans y changer une seule ligne. Ce programme ouvre des fichiers, y récupère des informations qu'il traite. De là, il sort un rapport commun et une série de graphiques, un par fichier d'origine.

J'obtiens l'erreur :
'Warning: unable to close filehandle IMG properly' répètée de 0 à n fois qui varie d'un run à l'autre du même programme. Ce qui résulte en un fichier graphique vide.


Ce qui est étrange est que je ne travaille plus sur la partie traitant les graphiques qui a toujours fonctionné sans problème et qui est dans une sous-routine à part du core du programme.

J'utilise les modules :
use GD::Graph::mixed;
use GD::Graph::Data;

Avez-vous une idée de ce qui pourrait poser le problème?


Je ne sais pas si c'est lié, mais parfois le fichier rapport affiche des caractères erronés, comme si le programme bégayait ou n'avait pas le temps de tout écrire pour un seul hit alors que tous les autres hits sont traités correctement et que ce traitement se fait par des boucles.



Merci pour votre aide,

[Jasmine80]

Ça doit être un effet de bord

Si j'utilise les lignes :

Code :

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

1
2
print $out_rapport "\t\tJazz\t\tPyroseq\t\n";
print $out_rapport "Rep\tWell\tSeq\tOrga\tSeq\tOrga\tNum\tCompare\tvalid\n";

J'obtiens le message d'erreur de 0 à n fois (0 signifiant que le programme fonctionne parfaitement)


Avec

Code :

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

1
2
print $out_rapport "\t\tJazz\t\t\tPyroseq\t\n";
print $out_rapport "Rep\tWell\tSeq\tOrga_ref\tOrga\tSeq\tOrga\tNum\tCompare\tvalid\n";

... un \t et un \tOrga_ref en plus ... J'obtiens le message d'erreur de +-10 à n fois ... je n'y comprends rien


Quelle est la procédure de débogage dans ce genre de contexte?


Merci,

[djibril]

En écrivant ainsi, as-tu des soucis ?

Code :

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

1
2
print {$out_rapport} "\t\tJazz\t\tPyroseq\t\n";
print {$out_rapport} "Rep\tWell\tSeq\tOrga\tSeq\tOrga\tNum\tCompare\tvalid\n";

[Jasmine80]

En écrivant ainsi, as-tu des soucis ?

Code :

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

1
2
print {$out_rapport} "\t\tJazz\t\tPyroseq\t\n";
print {$out_rapport} "Rep\tWell\tSeq\tOrga\tSeq\tOrga\tNum\tCompare\tvalid\n";

Merci pour ta réponse Djibril ... oui, j'ai toujours des soucis.

[djibril]

Merci pour ta réponse Djibril ... oui, j'ai toujours des soucis.

Dans ce cas, je te suggère cette écriture :

Code :

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

1
2
3
4
my $TAB = qq{\t};
my $DOUBLETAB = $TAB . $TAB;
print {$out_rapport} $DOUBLETAB . 'Jazz' . $DOUBLETAB . 'Pyroseq' . "$TAB\n";
print {$out_rapport} 'Rep' . $TAB . 'Well' . $TAB . 'Seq' . $TAB . 'Orga' . $TAB . 'Seq' . $TAB . 'Orga' . $TAB . 'Num' . $TAB . 'Compare' . $TAB . 'valid' . "\n";

[Jasmine80]

Dans ce cas, je te suggère cette écriture :

Code :

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

1
2
3
4
my $TAB = qq{\t};
my $DOUBLETAB = $TAB . $TAB;
print {$out_rapport} $DOUBLETAB . 'Jazz' . $DOUBLETAB . 'Pyroseq' . "$TAB\n";
print {$out_rapport} 'Rep' . $TAB . 'Well' . $TAB . 'Seq' . $TAB . 'Orga' . $TAB . 'Seq' . $TAB . 'Orga' . $TAB . 'Num' . $TAB . 'Compare' . $TAB . 'valid' . "\n";

cela ne fonctionne pas non plus, ça semble même pire.

Voici en faite ce dont j'ai besoin :

Code :

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

1
2
3
4
5
my $TAB = qq{\t};
my $DOUBLETAB = $TAB . $TAB;
my $TRIPLETAB = $TAB . $TAB . $TAB;
print {$out_rapport} $DOUBLETAB . 'Jazz' . $TRIPLETAB . 'Pyroseq' . "$TAB\n";
print {$out_rapport} 'Rep' . $TAB . 'Well' . $TAB . 'Seq' . $TAB . 'Orga_Ref' . $TAB . 'Orga' . $TAB . 'Seq' . $TAB . 'Orga' . $TAB . 'Num' . $TAB . 'Compare' . $TAB . 'valid' . "\n";

L'erreur doit venir d'autre part car même quand le programme fonctionne bien, aux cours des runs ultérieurs du même programme, il ne fonctionne plus.

[Jasmine80]

Jour faste, ce programme fonctionne aussi, comme par magie, alors que je n'y ai pas touché.

Cf : http://www.developpez.net/forums/d11...l-devient-fou/