Discussion :

[sone47]

Bonsoir á tous,

Est t il possible de modifier un handle de fichier ?

Je parcours un fichier binaire et selon la donnée reçue, je dois lire les x données qui suivent.

j'ai essayé de passer directement le handle via une variable dans ma sous routine puis d'updater le handle d'origine après mais cela ne passe pas.

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
 
...
while (<FIC>){
         $value = $_;  
         $fic     = FIC;
         switch($timer_choice){
         case 0 {}
         case 1 {FIC = &func_timer_1($fic)}
         case 2 {FIC = &func_timer_2($fic)}
         case 3 {FIC = &func_timer_3($fic)}
         else   {}
       }
}
 
sub func_timer_1{
  $ficTemp = $_[0];
  $timer     = <$ficTemp>;
  print "   - timer 1   : $timer\n"; 
  return $ficTemp;
}

Le probleme est que selon les timers choisis il y a plusieurs données á lire (1 pour le 1, 2 pour le 2 et 3 pour le 3) donc il faut que j'update en sortie de sous routine le handle utilisé dans la boucle while.

Merci d'avance,

guillaume

[Jedai]

Je rappelle qu'utiliser switch() en Perl est rarement une bonne idée (sauf si on est en 5.10 et qu'on peut utiliser given()...when() ) ... Ici par exemple un tableau de fonction devrait avantageusement le remplacer.

Par ailleurs ça fait un moment que l'on peut utiliser des variables lexicales plutôt que des globs pour contenir les handles de fichier :

Code :

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

1
2
3
4
5
6
7
8
open my($file), '<', $filename
  or die "Error opening $filename : $!\n";
 
while( <$file> ) {
  # blabla
  function( $file );
  # blabla
}

Cela présente de nombreux avantages (fermeture automatique lorsque le fichier n'est plus référencé, syntaxe plus régulière, handle localisé automatiquement ...) et est donc recommandé à partir du moment où on a un Perl assez récent (5.8, disponible depuis plus de 6 ans maintenant).

Sinon, pour passer un glob à l'ancienne à une fonction, il faut faire quelque chose comme :

Code :

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

function(\*HANDLE);

--
Jedaï

[sone47]

Bonjour,

merci pour cette réponse cela fonctionne parfaitement.

Concernant le switch, pourquoi est ce déconseillé ?
Je peux passer par des conditions mais cela fait vite brouillon.
Peux tu m'expliquer ce que tu sous entends par tableau de fonction ?

Je pourrais selon la valeur de mon choix aller taper dans une table á l'index choix mais pour que cette case du tableau contienne mon:
FIC = &func_timer_1(FIC)
je ne vois pas.

Merci d'avance

[sone47]

Je suis en 5.10 mais je n'avais pas testé mon switch, il semblerait que seulement la première entrée soit possible..
Pour l'instant je suis passé par une suite d'if-elsif..

[Jedai]

switch() n'existe pas en Perl, given() when() est une syntaxe introduite en 5.10 plus puissante qu'un switch(), ton script devrait être écrit :

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
21
22
23
24
25
26
27
28
29
#!/usr/bin/perl
use strict; use warnings;
use feature ":5.10";
 
my $filename = "blabla";
my $timer_choice = 1;
 
open my($file), '<', $filename
  or die "Opening $filename : $!\n";
 
while (my $value = <$file>){
  given ($timer_choice){
    when(1){ func_timer_1($file) }
    when(2){ func_timer_2($file) }
    when(3){ func_timer_3($file) }
  }
}
 
close $file;
 
#blabla
 
sub func_timer_1 {  
  $temp_file = shift;
  $timer     = <$temp_file>;
  say "   - timer 1   : $timer";
}
 
__END__

(inutile de renvoyer le handle, un handle sait toujours où il en est dans le fichier, pas besoin de le "mettre à jour")

Sinon, une façon de faire sans given(), et donc compatible avec la plupart des Perl est d'utiliser un tableau de fonction :

Code :

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

1
2
3
4
5
6
7
my @timer_functions = (undef, \&funct_timer_1, \&func_timer_2, \&func_timer_3);
 
while (my $value = <$file>){
  if( 0 < $timer_choice && $timer_choice < @timer_functions) {
    $timer_functions[$timer_choice]->($file);
  }
}

--
Jedaï