Help for this page

Select Code to Download


  1. or download this
    sub xlat {
      my ($octets) = @_ ;
    ...
      $s =~ s/([01]{8})(?=[01])/$1/g ;
      ranges($s) ;
    } ;
    
  2. or download this
    my $ports = '0x4000040000000200800000000000000000000002'
                .'0000000000c004000108008000000000000000000'
    ...
    }
    
    print join ',', @ports;
    
  3. or download this
    my $ports = '0x4000040000000200800000000000000000000002'
                .'0000000000c004000108008000000000000000000'
    ...
            unless((defined $start)||(defined $end)){print "$cur,";}}
    }
    }