Perl POE - Revision history

Heth: /* Timing the lifespan of a session */

2009-06-28T11:42:42Z

‎Timing the lifespan of a session

Heth: /* A simple multitasking TCP Server */

2009-05-14T18:11:55Z

‎A simple multitasking TCP Server

Heth at 08:12, 28 March 2009

2009-03-28T08:12:57Z

Heth at 08:11, 28 March 2009

2009-03-28T08:11:47Z

Heth at 07:59, 28 March 2009

2009-03-28T07:59:17Z

Heth at 07:57, 28 March 2009

2009-03-28T07:57:57Z

Heth: /* A simple multitasking TCP Server */

2009-03-28T07:56:14Z

‎A simple multitasking TCP Server

Heth: /* A simple TCP Client */

2009-03-22T09:06:29Z

‎A simple TCP Client

Heth: /* A simple multitasking TCP Server */

2009-03-22T07:46:25Z

‎A simple multitasking TCP Server

Heth: /* A simple multitasking TCP Server */

2009-03-22T07:28:54Z

‎A simple multitasking TCP Server

← Older revision		Revision as of 11:42, 28 June 2009
Line 73:		Line 73:
	sub _start_handler {		sub _start_handler {
	$_[HEAP]{ts_start} = time();		$_[HEAP]{ts_start} = time();
−	}	+	}
−	sub _stop_handler {	+
		+	sub _stop_handler {
	my $time_elapsed = time() - $_[HEAP]{ts_start};		my $time_elapsed = time() - $_[HEAP]{ts_start};
	print "Session ", $_[SESSION]->ID, " elapsed seconds: $elapsed\n";		print "Session ", $_[SESSION]->ID, " elapsed seconds: $elapsed\n";
−	}	+	}
	</source>		</source>

@@ Line 2: / Line 2: @@
 = POE Networking =
 ==A simple multitasking TCP Server ==
-This server is doing nothing useful, but are showing how to establish the server and control client connections. When Client connects they connect at line 14 and the server send a Greeting to the client. If the client send information to the server it is received in th '''ClientInput''' subroutine in line 18. If the Client sends '''Get orders''' it receives the content of hash '''%clientorder'''
+This server is doing nothing useful, but are showing how to establish the server and control client connections. When Client connects they connect at line 14 and the server send a Greeting to the client. If the client send information to the server it is received in th '''ClientInput''' subroutine in line 18. If the Client sends '''Get orders''' it receives the content of hash '''clientorder'''
 {|
-|<source lang="perl" line>
+<source lang="perl" line>
-|#!/usr/bin/perl
+#!/usr/bin/perl
-|use warnings;
+use warnings;
-|use strict;
+use strict;
-|use POE qw(Component::Server::TCP);
+use POE qw(Component::Server::TCP);
-|print "LMS";
+print "LMS";
-|my %clientorder = (	"LCnumber" => 7,
+my %clientorder = (	"LCnumber" => 7,
-|           		"LCsessions" => 10,
+           		"LCsessions" => 10,
-|                        "loadServer" => "sun.tekkom.dk",
+                        "loadServer" => "sun.tekkom.dk",
-|                        "loadPort" => 80);
+                        "loadPort" => 80);
-−
-|POE::Component::Server::TCP->new(
+POE::Component::Server::TCP->new(
-|    Port => 1234,
+    Port => 1234,
-|    ClientConnected => sub {
+    ClientConnected => sub {
-|      print "Connection from client from ",$_[HEAP]{remote_ip},"\n";
+      print "Connection from client from ",$_[HEAP]{remote_ip},"\n";
-|      $_[HEAP]{client}->put("Greetings from LMS");
+      $_[HEAP]{client}->put("Greetings from LMS");
-|    },
+    },
-|    ClientInput => sub {
+    ClientInput => sub {
-|      my $client_input = $_[ARG0];
+      my $client_input = $_[ARG0];
-|      if ($client_input =~ /Get orders/) {
+      if ($client_input =~ /Get orders/) {
-|      	$_[HEAP]{client}->put("Your orders: ",%clientorder);
+      	$_[HEAP]{client}->put("Your orders: ",%clientorder);
-|      } else {
+      } else {
-|      	print "Unknown Command received from Client\n";
+      	print "Unknown Command received from Client\n";
-|        	$_[HEAP]{client}->put("501 Unknown Command received from Client");
+        	$_[HEAP]{client}->put("501 Unknown Command received from Client");
-|      }
-|      $_[HEAP]{client}->put($client_input);
+      $_[HEAP]{client}->put($client_input);
-|    },
+    },
-|    ClientDisconnected => sub {
+    ClientDisconnected => sub {
-|      print "client from $_[HEAP]{remote_ip} disconnected\n";
+      print "client from $_[HEAP]{remote_ip} disconnected\n";
-|    },
+    },
-|  );
+  );
-|  POE::Kernel->run;
+  POE::Kernel->run;
-|  exit;
+  exit;
-|</source>
+</source>
 |}

@@ Line 8: / Line 8: @@
 |Hej
 |}
 {|
 |<source lang="perl" line>

@@ Line 3: / Line 3: @@
 ==A simple multitasking TCP Server ==
 This server is doing nothing useful, but are showing how to establish the server and control client connections. When Client connects they connect at line 14 and the server send a Greeting to the client. If the client send information to the server it is received in th '''ClientInput''' subroutine in line 18. If the Client sends '''Get orders''' it receives the content of hash '''%clientorder'''
-{| class="wikitable collapsible collapsed" width=200px
+{| class="collapsible collapsed" width=200px
 ! Click Here for Contents
 |-

@@ Line 5: / Line 5: @@
 {| class="wikitable collapsible collapsed" width=200px
 ! Click Here for Contents
 |-
 |<source lang="perl" line>
 |#!/usr/bin/perl

@@ Line 48: / Line 48: @@
 ( RemoteAddress => "192.168.1.100",
    RemotePort    => "1234",
    ServerInput   => sub {
      my $input = $_[ARG0];