Help for this page

Select Code to Download


  1. or download this
    my $DONT = pack 'ss', 1, 0;
setsockopt( $svr, SOL_SOCKET, SO_LINGER, $DONT ) or warn $^E;
...
my $QUERY = getsockopt( $svr, SOL_SOCKET, SO_LINGER ) or warn $^E;
printf "\n\n%u %u\n\n", unpack 's2', $QUERY;
  2. or download this
    C:\test>junk79 12345
server:154323 client:154324 cycles: 385.846/secUse of uninitialized va
+lue $in in concatenation (.) or s
server:682262 client:682261 cycles: 358.073/secUse of uninitialized va
+lue $in in concatenation (.) or s
server:720436 client:720434 cycles: 340.687/secUse of uninitialized va
+lue $in in concatenation (.) or s
server:1121215 client:1121216 cycles: 350.004/secTerminating on signal
+ SIGINT(2)