Discussion :

[scorbo]

Salut,

J'ai un petit souci dans la gestion de fichier. J'ai fait un package contenant plusieurs fonctions permettant de créer un fichier (avec le nom que je lui donne en paramètre), d'ajouter des lignes et de fermer le fichier. Ce package me permet de gèrer un fichier log.
A un certain moment j'appelle la fonction de création et par moment celle d'ajout de ligne. Le pb c'est que le descripteur de fichier est fermé dès que la fonction de création se termine. Comment garder ce descripteur actif dans le package ?

Merci !

[elvivo]

As tu utilise la classe FileHandle ou directement les fonctions de manipulation de fichiers ?

[scorbo]

pour être plus concret voilà une partie de mes fonctions :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
sub createFile {
    my $name = shift;
 
    if(!sysopen(LOG, "./$name.xml", O_RDWR|O_CREAT)) {
        print ("can't create $name file, sorry...\n");
        return $FALSE;
    }
 
    print LOG "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
    LOG->autoflush();
}
 
sub addMessage {
   my $message = shift;
   print LOG $message;
}
 
sub closeFile {
    close(LOG);
}

et toutes ces fonctions sont appelées par un autre package. Bon ok là on voit pas forcément l'intérêt de faire un package spécialement pour ça, mais je n'ai mis qu'une partie du code pour illustrer.

[Jeh]

Ton descripteur n'est visible que dans la fonction dans laquelle il est créé.
Tu as deux solutions :

• Soit tu renvoies ton descripteur lorsque tu utilises ta fonction de création et tu passes ce descripteur à chaque autre fonction,
  

  Code :

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

  1
  2
  3
  4
  5
  6
   
  my $fichier = createFile('toto.txt');
  ...
  addMessage($fichier,'mon message');
  ...
  closeFile($fichier);

• Soit tu utilises la notion d'objet et de méthode qui me parait dans ton cas la solution la plus appropriée.
  

  Code :

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

  1
  2
  3
  4
  5
  6
   
  my $fichier = new File('toto.txt');
  ...
  $fichier->addMessage('mon message');
  ...
  $fichier->closeFile();

  => c'est quand même plus propre...

Pour plus d'infos sur l'implémentation objet avec Perl regarde par ici

[scorbo]

Effectivement, c'est quand même plus propre avec la notation objet, d'ailleurs j'avais tout développé en considérant mes packages comme des classes donc ça m'arrange. Merci