Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

An introduction to POE

by RMGir (Prior)
on Aug 09, 2003 at 20:05 UTC ( #282468=perltutorial: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
            #_stop     => \&handler_stop,
          }
      );
    
  2. or download this
    $poe_kernel->run();
    exit;
    
  3. or download this
    sub handler_start {
      my ($kernel, $heap, $session) = @_[KERNEL, HEAP, SESSION];
    ...
      # ask for the prompt event to get run next
      $kernel->yield('prompt');
    }
    
  4. or download this
    sub handler_prompt {
      my ($kernel, $heap, $session) = @_[KERNEL, HEAP, SESSION];
    ...
      # this will make the timeout event fire in 10 seconds
      $kernel->delay('timeout',10);
    }
    
  5. or download this
    sub handler_timeout {
      my ($kernel, $heap, $session) = @_[KERNEL, HEAP, SESSION];
    ...
      # queue is empty resulting in shutdown
      $heap->{wheel}=undef;
    }
    
  6. or download this
    sub handler_gotLine {
      my ($kernel, $heap, $session, $arg, $exception) = 
    ...
      # new prompt
      $kernel->yield('prompt');
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://282468]
help
Chatterbox?
and a log crumbles through the grate...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2017-02-28 06:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?






    Results (397 votes). Check out past polls.