MyWackoSite: dsltcl

#!/usr/bin/tclsh
set class_b "10.10" ;
set sub 0 ;
set subnets 256 ;
set plithos 256 ;
set start_ip 0 ;
set name "dnsname" ;
set name_start 1 ;
 
for { set subnet 0 } { $subnet < $subnets } { incr subnet } {
  for { set ip $start_ip } { $ip < $plithos } { incr ip } {
        set prefix "";
        if { $name_start < 1000 } { set prefix 0 ; }
        if { $name_start < 100 } { set prefix 00 ; }
        if { $name_start < 10 } { set prefix 000 ; }
        puts "$name-$prefix$name_start\tIN\tA\t$class_b.$sub.$ip"
    incr name_start
  }
  incr sub }