Help for this page

Select Code to Download


  1. or download this
    foreach $client (keys %h) {
    lock($h{$client})
...
    cond_broadcast($h{$client});
}
  2. or download this
    lock($send)
$send = randLine();
cond_broadcast($send);
  3. or download this
    #!/usr/bin/perl

...
        cond_broadcast($NoC);
    }
}        #When we fall off our $socket loop, we return, ending our thr
+ead.
  4. or download this
    #!/usr/bin/perl

...
        select((select(SOCK),$|++)[0]);
        return \*SOCK; ##: Ref. to handel to the socket
    }