Help for this page

Select Code to Download


  1. or download this
       print $socket $chat[$i], $EOL if ( $1 ne $ID && $2 ne $kill);
  2. or download this
    for my $i ( $E{$ID} .. $#chat ) {
            $chat[$i] =~ /(.+?)\s(.+)[\n\r]+/;
...
            print "In writerrun \$1->$1  \$2->$2\n";
            print $socket $chat[$i],$EOL; #if ( $1 ne $ID && $2 ne $ki
+ll ); 
#what gets echoed is : Wzghb2n3   foobarfoobarfoobar