for my $i ( $E{$ID} .. $#chat ) { $chat[$i] =~ /(.+?)\s(.+)[\n\r]+/; # print $socket $2, $EOL if ( $1 ne $ID && $2 ne $kill); print $socket $chat[$i], $EOL if ( $1 ne $ID && $2 ne $kill); #print "> $i\t$1\t$2\n" if ( $1 ne $ID && $2 ne $kill); }
So I have it working fine to my satisfaction, unless I see something else as I keep testing it. If so I'll let you know.
In reply to Re: thread:shared
by zentara
in thread thread:shared
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |