Détection Evènement fileevent

Version imprimable

Bonjour,

Je n'arrive pas à faire fonctionner fileevent. Je suis sous Windows. Je ne passe pas du tout dans la fonction action_lecture.

Quelqu'un aurait une idée ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
sub sauvegarde {
  my ($roText,$h) ;
  $f->destroy if Exists($f) ;
  $f = $mw->Frame(-background => 'white')->pack ;
  $roText = $f->Scrolled('ROText')->pack ;
 
 
  open $h, "perl boucle.pl|" or die "Echec tube $!";
 
  $mw->fileevent($h,'readable', [ \&action_lecture , $h , $roText ] ) ;
}
 
sub action_lecture {
  my ($h,$roText) = @_ ;
                                           print STDERR "ici\n" ;
                                           my $ligne = <$h> ;
                                           print 'Ligne lue : ' . $ligne ;
                                           $roText->insert('end',$ligne) ;
}

Merci

23/04/2010, 15h05
djibril

As tu avancé sur ton souci ?

Oui j'ai avancé. D'après Mastering perltk, cela ne fonctionne pas sous windows.
Et ça n'a pas changé depuis la parution du bouquin visiblement.
Ou alors qqchose m'a échappé, c'est une autre possibilité.

Mais j'ai résolu le pb facilement en utilisant un repeat qui va lire toutes les n millisecondes.

Il s'agit de lancer une sauvegarde non bloquante :

Extrait :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 $f = $frameBg->Frame(-background => 'white')->pack ;
  $f->Label(-text => 'Commandes -> Sauvegarder', -anchor => 'w')->pack(-fill=>'both') ;
  $roText = $f->Scrolled('ROText')->pack ;
 
  $pid = open $h, "perl sauvegarde.pl|" ;
  die "Echec tube $!" unless $pid ;
  print "PID : $pid" ;
 
  if ($^O =~ /MSWin32/) {
    $idRepeat = $mw->repeat(2000 => [ \&action_lecture , $h , $roText ] )
  } else {
    $mw->fileevent($h,'readable', [ \&action_lecture , $h , $roText ] ) ;
  }

La lecture :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
sub action_lecture {
  my ($h,$t) = @_ ;
  my ($status, $datas) ;
 
  ($status = sysread( $h, $datas, 4096)) ;
  # Fin de fichier ou erreur
  if ( ! $status) {
    if ($^O =~ /MSWin32/ ) {
      # Annuler le repeat
      $mw->afterCancel($idRepeat) ; 
    } else { # unix/linux
      # Annuler fileevent
      $mw->fileevent($h,'readable', "" ) ;
      $t->insert('end',"\nSauvegarde terminée\n") ;
    }
  } else { $t->insert('end',$datas) ; }
}