mettre en attente un script perl

j'ai un script en perl, qui me créer un repertoire;
j'execute de nouveau le script avec une nouvelle commande que j'ai ajouter (une commande qui fait amene d'autre repertoire dans celui que j'ai crée juste avant, et je doit le faire par etape;

le probleme est, lors de l'execution du script une 2eme fois, il refait les premiere etapes(creation du repertoire precedant);

j'aimerai savoir comment, le script pourrai se mettre en pose, jusqu'à le nouveau signal( ou l'entrée de la nouvelle commande)?

merci

imad

Bonjour,

Pouvez-vous ré-expliquer clairement ce que vous souhaitez faire avec un exemple, car votre demande est incompréhensible.

Merci

Alors,

j'execute mon script qui vas me créer un repertoire (perl script.pl -- name toto)

toto, le nom du repertoire;

puis apres avoir fait autre chose, j'execute une nouvelle fois le script (perl script.pl --dependancies), mais cette fois avec une nouvelle commande;

cette derniere copie des repertoires situé quelque part dans toto;

le probleme est qu'il ya une partie du script que je ne veux pas refaire (la partie qui crée le repertoire toto, sinon il me fait une erreur) mais je doit utilisé se que j'ai crée au debut (toto);
viola

Pourquoi ne pas ajouter une option empêchant l'exécution du code concerné ?

et ben, c'est ce que je recherche;
en gros mettre en pose le script, jusqu'à l'entrée de "-- dependancies"

Pourquoi ne pas "conditionner" cette partie du script sur un test de présence de fichier ou répertoire, en utilisant les opérateurs -f ou -d ... ?

mkpath(["$comp_nom/obj"], 1) or die ("Err. Cr. répertoire \n");

cette partie par exemple, je ne veux pas la refaire, mais je veux qu'il se "souvienne" du nom du repertoire ($comp_nom) que je lui ai donnée à l'execution precedante;

Il me semble qu'un module comme Storable est ce qu'il te faut pour définir des variables persistantes.

Personnellement, pour ce genre de besoin, j'ai adopté l'usage de Data::Dumper (voir perldoc -f do) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

use Data::Dumper;   our %config;   my $init_file = "$ENV{HOME}/.myapp.rc"; for my $file ($init_file) { unless (my $return = do $file) { warn "couldn't parse $file: $@" if $@; warn "couldn't do $file: $!" unless defined $return; warn "couldn't run $file" unless $return; } }   # ... my application   END { open my $CONFIG, ">", "$init_file" or die "Can't open $init_file for writing: $!\n"; print { $CONFIG } Data::Dumper->Dump([%config], [qw(*config)]); }

---

(merci de m'indiquer s'il y a des erreurs, je n'ai pas validé ce code).

Merci pour ta réponse,
mais j'ai pas pu voir l'utilité du dumper,

si tu pouvais m'expliquer brievement le script, sa serai sympa;

merci

La structure %config contient des données rangées comme une structure de donnée et que l'on souhaite persistante d'une exécution à l'autre.

Le Dumper va enregistrer cette structure dans un fichier qui n'est autre qu'un script perl permettant d'initialiser cette même structure en retour si on tente de l'exécuter avec la commande do.

On sauve donc la configuration en sortant (block END), et on la relit en début de script (j'aurais pu le mettre dans un block BEGIN).

Mais dans ton cas, l'usage de Storable est sans doute tout aussi adapté.

Bonjour,

j'ai un probleme, que je n'arrive pas à comprendre;

j'ai installer corectement Storable sous linux, mais quand j'execute mon script, il ne le trouve pas, alors qu'il existe (j'ai verifier, manuellement, usr/local/lib/perl/...);

comment sa se fait?

Que donne la commande suivante :

Code:

---

perl -MStorable -e '1'

---

sa ne donne rien du tout;

Ca veut dire que le module est bien installé, et accessible depuis un script perl.

Montre nous ton script, et notamment la ligne contenue le "use Storable;".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

use Storable; use storable qw(store retrieve freeze thaw dclone); store (\$comp_nom,'save') or die "Can't store %a in mycolors!\n"; # code ...   $data = retrieve ('save'); if($dependancies){ .... #j'utilise $data .... } __END__

---

Remplace ces deux lignes

Code:

---

1 2	use Storable; use storable qw(store retrieve freeze thaw dclone);

---

par

Code:

---

use Storable qw(store retrieve freeze thaw dclone);

---

(et stp, utilise les balises CODE pour insérer ton code, avec l'icone http://www.developpez.net/forums/images/editor/code.gif)

Merci,

quand je fait un retrieve :

Code:

---

1 2	my $data = retrieve ('save'); print"composant est ", $data; # juste pour tester la variable $data qui doit m'afficher toto

---

au lieu de sa elle m'affiche SCALAR(0x1f330e0);
comment avoir de nouveau toto et non un code incompréhensible;

Comme Storable est habituellement utilisé pour des structures de données, je suppose que tu dois l'utiliser ainsi :

Code:

---

1 2 3 4 5

store (\$comp_nom,'save')   ...   $data = ${ retrieve ('save') }; # il faut déréférencer

---

merci infiniment,
sa marche impec;