Help for this page

Select Code to Download


  1. or download this
    my $dir = "/data/input";
my $data = `cat $dir/cdr-data.dat |sed 's/ //g'`;
my $binary = pack ("H*", $data);
  2. or download this
        $hispaddr = recv(SOCKET, $rtime, 4, 0) || die "recv: $!";
  3. or download this
        $socket->recv($response, 1024);
    defined($response) || die "recv: $!";
  4. or download this
        $socket->recv($response, 1024) || die "recv: $!";