ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     23 Jun 2004  14:01:24
 To : All
 Subject : Perl и Tk - fileevent
 -------------------------------------------------------------------------------- 
 

 Как сделать работающим таклй кусок под 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)
 
 

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