Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl

use strict;
use warnings;
use Carp;
use English;
  2. or download this
    my ($ipfname, $portfname, $resultfname) = @ARGV;

open(my $ipfh, '<', $ipfname) or croak($ERRNO);
open(my $portfh, '<', $portfname) or croak($ERRNO);
open(my $resultfh, '>', $resultfname) or croak($ERRNO);