Help for this page

Select Code to Download

Select or download this

c:\test>p1
$ips="30..39,50..59";;
...

print "@array";;
30 31 32 33 34 35 36 37 38 39 50 51 52 53 54 55 56 57 58 59

Select or download this


@a = map{ my( $s, $e ) = split '\.\.'; $s .. $e } split ',', $ips;;

print "@a";;
30 31 32 33 34 35 36 37 38 39 50 51 52 53 54 55 56 57 58 59