Discussion :

[labell]

Bonjour,

Je souhaiterai savoir si c'est possible de passer une variable d'un script Perl à un autre script Perl.
Par ex:
j'ai un script a.pl qui initialise une variable a. De plus ce script tourne en permanence (tourne en tache de fond).
Puis dans un autre script b.pl, je souhaite afficher le contenu de la variable a du script a.pl
voila
(j'ai essayé de les commandes shmget, shmread,... de Perl mais le prb c'est que je n'arrive pas à accéder à partir du script b.pl à l'adresse mémoire définit dans a.pl. )

Merci par avance

[nematoad]

Tu sais, parfois les solutions low-tech sont les meilleurs. Shared memory est bien, mais tu dois alors gerer le probleme des segments ophelins. C'est galere.

Ce qui est trivial a faire est d'ecrire le/les valeurs dans un fichier. Si le contenu est complexe, tu peux utiliser Storable ou YAML. Ensuite, dans l'autre process, tu peux stat'er le fichier pour voir s'il change, et puis l'ouvrir et charger le contenu.

Ce n'est pas aussi inefficace que ca : normalement les disk blocks sont en cache en memoire de toute facon. Il y a juste un petit souci pour eviter que le lecteur lit le fichier avant qu'il ne soit completement ecrit. Pour eviter ce probleme, fais qq chose comme

Code :

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

1
2
3
4
5
6
my $out = "data.attente";
open OUT, '>', $out or die "Ne peut ouvrir $out: $!\n";
print OUT "toto=1\n";
close OUT;
(my $new = $out) =~ s/attente$/pret/;
rename $out, $new or die "Ne peut renommer $out en $new: $!\n";

L'ideal est bien sur d'encapsuler cela dans un deux subs, pour l'ecriture, et la lecture. Ensuite, si jamais tu as des problemes de perf (ce que je doute), tu peut les reecrire en utilisant du shared memory, sans que ca ait une influence sur le reste.

N