ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrew Ustinchik                     2:450/142.10   24 May 2002  20:04:22
 To : All
 Subject : Tk и fileevent on Windows
 -------------------------------------------------------------------------------- 
 

 
 хотел вьювер апачевого лога сделать с рюшками в Тк, но напоролся на
 ------------
 BUGS
 
 On windows platforms _fileevent_ is limited in the types of filehandles
 that behave correctly. Making filefhandles non-blocking is only implemented
 on a subset of UNIX platforms (see _Tk::IO_).
 ------------
 хочецца малого:
 
 open PIPE, 'c:/cygwin/bin/tail -f c:/apache/logs/access.log |';
 my $line;
 while ($line = <PIPE>) {
   next if $line =~ /\.wav|\.css|\.gif|\.jpg/;
   print $line;
 };
 
 обернуть в Тк...
 
 типа:
 
    To provide a concrete example of [815]fileevent
    usage Stephen O. Lidie wrote a wonderful little GUI tail monitor he
    calls tktail:
     #!/usr/local/bin/perl -w
     #
     # tktail pathname
 
     use English;
     use Tk;
 
     open(H, "tail -f -n 25 $ARGV[0]|") or die "Nope: $OS_ERROR";
 
     $mw = MainWindow->new;
     $t = $mw->Text(-width => 80, -height => 25, -wrap => 'none');
     $t->pack(-expand => 1);
     $mw->fileevent(H, 'readable', [\&fill_text_widget, $t]);
     MainLoop;
 
     sub fill_text_widget {
 
         my($widget) = @ARG;
 
         $ARG = <H>;
         $widget->insert('end', $ARG);
         $widget->yview('end');
 
     } # end fill_text_widget
 под _виндой_ это видёт к умиранию процесса.. :(((
 как ещё можно извернуцца?
 хочецца просто little GUI tail monitor на /apache/accsess.log
 
 ЗЫЖ сменить операционку не предлагать - на работе тачка стоит - потом моя попа
 будет на японский флаг похожа :(
 
 ЗЗЫЖ интересно, какой perl посоветует народ юзать? Активстейтовский или
 Цугвиновский?
 
                                                 С уважением, Дедушка АУ.
 
 ... выписан под наблюдение районного патологоанатома GoldED+/LNX 1.1.4.7
 --- One man and his notebook whith Linux [RegLinUser #256924]
  * Origin: Кyплю выпpямитель для pyк. Сpочно. Доpого. (2:450/142.10)
 
 

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