Help for this page

Select Code to Download


  1. or download this
    my @range = map { unpack "N", pack "C4", split /\./ } ($ARGV[0], $ARGV
    +[1]);
    print "@range\n"; # the numbers themselves
    ...
    for (my $i = $range[0]; $i <= $range[1]; $i++) {
      print join(".", unpack "C4", pack "N", $i), "\n";
    }
    
  2. or download this
    Range iterator outside integer range