ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     21 Aug 2004  20:55:28
 To : All
 Subject : fileevent  в Perl и Tk
 -------------------------------------------------------------------------------- 
 

 Как сделать работающим таклй кусок под Windows ? В Linux работает, perl
 5.6.1, в Windows работает криво в AS633, в AS810 работать не хочет. Что
 я делаю неправильно? Или, как работать с последовательными портами?
 
 #----------------------------------
 #!perl -w
 use Tk;
 use Tk::widgets qw(Label);
 
 my $main = MainWindow->new();
 
 my $label = $main->Label();
 $label->pack( -fill => 'both' );
 
 $| = 1;
 
 $main->fileevent(
 
       \*STDIN,
       'readable',
       sub {
           $_ = <>;
           print if defined $_;
           $label->configure( -text => $_ );
           $label->update();
       }
 );
 
 MainLoop;
 #----------------------------------
 --- ifmail v.2.15dev5.3
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор