Help for this page

Select Code to Download


  1. or download this
    my $input = 'a6.55.45.0e';;

...

print "@tuners";;
1 2 3 8 10 14 16 18 20 22 25 26 29 31
  2. or download this
    sub mask2list { 
    ( my $hex = shift ) =~ tr[.][]d; 
...

print "@tuners";
1 2 3 8 10 14 16 18 20 22 25 26 29 31