Discussion :

[devel360]

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 :

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 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

[djibril]

As tu avancé sur ton souci ?

[devel360]

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 :

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

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 :

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
 
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) ; }
}