Help for this page

Select Code to Download


  1. or download this
    } elsif ($get =~ /MESSAGE ([^ ]+) (.*)\n$/) {
  2. or download this
    sub get_line {
    my ($fh) = @_;
...
    warn do { use Data::Dumper; Dumper $buff{$fh} };
    return $line;
}
  3. or download this
    sub get_line {
    my ($fh) = @_;
...
    sysread($fh, $_, BUFF_SIZE, length) for $buff{$fh};
    return get_line($fh);
}