Copyright (C) 2000-2012 |
Manpages EVENTLOOPSection: User Contributed Perl Documentation (1)Updated: 2000-04-18 Index Return to Main Contents NAMETk::Event - ToolKit for EventsSYNOPSISuse Tk::Event; Tk::Event->fileevent(\*FH, 'readable' => callback); Tk::Event->lineavail(\*FH, callback); use Tk::Event::Signal qw(INT); $SIG{'INT'} = callback; use Tk::Event::process; Tk::Event->proc($pid, callback); QueueEvent(callback [, position]) DESCRIPTIONThat is better than nothing but still hard to use. Most scripts want higher level result (a line, a ``block'' of data etc.)So it has occured to me that we could use new-ish TIEHANDLE thus: my $obj = tie SOMEHANDLE,Tk::Event::IO;
while (<SOMEHANDLE>)
Then the READLINE routine registers a callback and looks something like:
sub READLINE
This is using the scalar part of the glob representing the _inner_ IO as a buffer in which to accumulate chars.
IndexThis document was created by man2html, using the manual pages. Time: 09:05:15 GMT, April 19, 2024 |