Discussion :

[TheDrev]

Bonjour !
J'ouvre un file handler avec la fonction open pour la création de log. Comment faire pour que ce file hanler soit visible dans d'autres scripts .pl ?

J'ai bien penser a la passer en paramètres de fonction, mais cela ferai beaucoup de modifications et je préfère que ces fonctions s'occupent uniquement du traitement.

[Philou67430]

Il serait nettement plus "propre" de le passer en paramètre, mais si tu n'y tiens pas, tu peux fournir dans ton module qui créée le file handle, un accesseur qui le retourne :

Code :

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

1
2
3
4
5
6
open my $LOG, ">", "log.txt";
...
 
sub get_log_fh {
  return $LOG;
}

mieux : le module qui créée le file handle fourni également une fonction d'écriture :

Code :

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

1
2
3
4
5
6
sub printf_log {
  printf $LOG @_;
}
sub print_log {
  print $LOG @_;
}

[TheDrev]

en fait je n'utilise pas les modules pour le moment (je n'ai pas totalement compris comment cela se structure en perl), je suis tout en procédurale, avec un main.pl qui inclut quelques autres .pl...

J'ai essayé d'inclure main.pl depuis un autre script, mais le code est alors exécuté 2 fois !

Il faurdai que le handler soit ai une portée globale a tout les scripts... peut être qu'il faudra que je le vire du main.pl ?

[thierry.chich]

Raaaah mais c'est laid ! Blague à part, les modules ne sont pas très compliqués à élaborer, et offrir l'accès via une méthode particulière serait quand même un gagae de réussite du projet.

[Jasmine80]

Il faurdai que le handler soit ai une portée globale a tout les scripts

Peut-être peux-tu créer ton handle dans un script.pm puis l'appeler à partir de tous les autres scripts.

OpenFh.pm

Code :

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

1
2
3
4
5
6
7
8
9
10
package OpenFh;
 
use base 'Exporter';
 
our @EXPORT = qw($fh); # noms exportés par défaut
 
 
open our $fh, '<', 'chemin/fichier' or die $!;   # ouverture fichier
 
1;     # important, pour signaler que le module s'est bien chargé correctement

main.pl

Code :

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

1
2
3
4
5
6
7
8
9
10
#!usr/bin/perl -w
 
use strict;
use warnings;
 
use OpenFh;
 
while (my $line = <$fh>){
	print $line;
}

Perldoc :Exporter

[Philou67430]

TheDrev, si tu n'utilises pas les modules, peux-tu nous expliquer comment tu fais inter-agir tes différents scripts actuellement ?

Comme dit thierry.chich, les modules (les plus simples, comme celui de Jasmine80) ne sont pas si compliqués, et sont quasiment la seule manière de concevoir une application perl réparties dans plusieurs sources différents (je connais encore "do", et c'est à peu près tout à ma connaissance).
Et tant qu'à utiliser un module, autant créer des accesseurs plutôt que de fournir un accès aux variables, afin de limiter les effets de bord.