switcher.pl

サンプルプログラムです．こんな感じで利用します．

#!/usr/local/bin/perl

require 'switcher.pl';

# Must be defined sw_start, sw_end and sw_main.
sub sw_start
{
    # Do nothing to initialize.
}

sub sw_end
{
    # Do nothing.
}

sub sw_main
{
    print switcher::SW "Hi there, this is server $switcher::sw_id. (PID = $$)\n";
    print switcher::SW "Connection file discripter number is ", fileno(SW), "\n";
    print switcher::SW "Good by\n";
}

# TCP の port 番号 11910 のサーバを 4 台並列に動かす．
# port 番号にファイル名を指定すると，UNIX ドメインソケットを用います．
&switcher::launch(11910, 4, \&sw_main,
	'Start' => \&sw_start,
	'End' => \&sw_end);