2
0
Fork 0

modif Perl/test.pl : une ultime correction pour gerer les tests pour lesquels il y a des RESTART

This commit is contained in:
troufflard 2018-03-15 21:37:19 +00:00
parent c292c1bc67
commit 454ebe764b
2 changed files with 262 additions and 849 deletions

View file

@ -1222,10 +1222,16 @@ sub lancement_commande {
foreach my $cmd (@commandes) { foreach my $cmd (@commandes) {
next if(not $cmd =~ /^(\S+)\.info$/); next if(not $cmd =~ /^(\S+)\.info$/);
$racine_finfo = $1; $racine_finfo = $1;
$racine_lien_symbolique_finfo = "$racine_finfo".int(rand(99999999999)); $racine_lien_symbolique_finfo = "$racine_finfo".int(rand(99999999999));
#creation du lien symbolique #creation du lien symbolique .info
system("ln -s $racine_finfo.info $racine_lien_symbolique_finfo.info"); system("ln -s $racine_finfo.info $racine_lien_symbolique_finfo.info");
# si un RESTART doit etre fait, il faut renommer les .BI et .PI
system("mv -f $racine_finfo.BI $racine_lien_symbolique_finfo.BI") if(-e "$racine_finfo.BI");
#idem pour le .PI
system("mv -f $racine_finfo.PI $racine_lien_symbolique_finfo.PI") if(-e "$racine_finfo.PI");
$cmd = "$racine_lien_symbolique_finfo.info";#remplacement du nom .info par "$racine_lien_symbolique_finfo.info" dans @commandes $cmd = "$racine_lien_symbolique_finfo.info";#remplacement du nom .info par "$racine_lien_symbolique_finfo.info" dans @commandes
last; last;
} }
@ -1250,6 +1256,7 @@ sub lancement_commande {
#lancement du calcul Herezh dans un pipe #lancement du calcul Herezh dans un pipe
# rq : redirection de l affichage dans le fichier $fredir_tee # rq : redirection de l affichage dans le fichier $fredir_tee
############################################################## ##############################################################
open(PIPE, "|tcsh -c \"time ./$lien_symbolique_HZ $commande\" | tee $fredir_tee"); open(PIPE, "|tcsh -c \"time ./$lien_symbolique_HZ $commande\" | tee $fredir_tee");
PIPE->autoflush(1);#forcer a vider le tampon (methode autoflush du package IO::Handle) PIPE->autoflush(1);#forcer a vider le tampon (methode autoflush du package IO::Handle)
@ -1533,7 +1540,6 @@ sub lancement_commande {
# => il faut les renommer (notamment on aura besoin du .BI et .PI si on doit faire des restarts pour les prochaines .CVisu[i], du _princ.maple pour la comparaison et meme des fichiers _Gmsh un jour peut-etre) # => il faut les renommer (notamment on aura besoin du .BI et .PI si on doit faire des restarts pour les prochaines .CVisu[i], du _princ.maple pour la comparaison et meme des fichiers _Gmsh un jour peut-etre)
renommage_arborescence('.', $racine_lien_symbolique_finfo, $racine_finfo); renommage_arborescence('.', $racine_lien_symbolique_finfo, $racine_finfo);
return $status_calcul; return $status_calcul;
}#sub lancement_commande }#sub lancement_commande

File diff suppressed because it is too large Load diff