Help for this page

Select Code to Download


  1. or download this
    while ($client) {
    sysread($client, $incoming, 1024);
...
    undef $incoming;
    sleep 1;
}
  2. or download this
    Use of uninitialized value in pattern match (m//) at ./monkcb line 215.
  3. or download this
    sub process_incoming {
    my (@incoming) = @_;
...
    for my $incoming (@incoming) {
        if ($incoming =~ /^JOIN (#\w+)/i) {
        .........