POE/net/server_tcp_connect.pl

sub POE::Kernel::ASSERT_DEFAULT () { 1 }
sub POE::Kernel::TRACE_DEFAULT () { 1 }

      use POE qw(Component::Server::TCP);

      $bind_port = 8000;
      $bind_address = '127.0.0.1';

      # First form just accepts connections.

      POE::Component::Server::TCP->new
        ( Port     => $bind_port,
          Address  => $bind_address,    # Optional.
          Acceptor => \&accept_handler,
          Error    => \&error_handler,  # Optional.
        );
        
        

      sub accept_handler {
        my ($socket, $remote_address, $remote_port) = @_[ARG0, ARG1, ARG2];
        print "accept", "\n";
      }

      sub error_handler {
        my ($syscall_name, $error_number, $error_string) = @_[ARG0, ARG1, ARG2];
        print "error", "\n";
      }

$poe_kernel->run();
        
1	sub POE::Kernel::ASSERT_DEFAULT () { 1 }
2	sub POE::Kernel::TRACE_DEFAULT () { 1 }
3
4	use POE qw(Component::Server::TCP);
5
6	$bind_port = 8000;
7	$bind_address = '127.0.0.1';
8
9	# First form just accepts connections.
10
11	POE::Component::Server::TCP->new
12	( Port => $bind_port,
13	Address => $bind_address, # Optional.
14	Acceptor => \&accept_handler,
15	Error => \&error_handler, # Optional.
16	);
17
18
19
20	sub accept_handler {
21	my ($socket, $remote_address, $remote_port) = @_[ARG0, ARG1, ARG2];
22	print "accept", "\n";
23	}
24
25	sub error_handler {
26	my ($syscall_name, $error_number, $error_string) = @_[ARG0, ARG1, ARG2];
27	print "error", "\n";
28	}
29
30	$poe_kernel->run();
31
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26