Help for this page

Select Code to Download


  1. or download this
    my $answer = <$remote> || '---';
  2. or download this
    my $header;
$remote->read($header, 8);
($op, $hvers, undef, undef, $count) = unpack "C4N", $header;
my $data;
$remote->read($data, $count);
  3. or download this
    my $header;
$remote->read($header, 8);
($op, $hvers, undef, undef, $count) = unpack "C4N", $header;
my $data = <$remote>;