1
2
3
4
5
6
7
8
9
proc getNumber {prjowner prjnum} {
     # calculates checksum for addres and retruns whole address
     set prjowner [string toupper $prjowner]
     scan $prjowner "%c%c%c" prjowner1 prjowner2 prjowner3
     set prjnum [string toupper $prjnum]
     scan $prjnum "%1s%1s%1s" pn1 pn2 pn3
     if {![regexp {[0-9]} $pn1]} {scan $pn1 "%c" pn1}
     if {![regexp {[0-9]} $pn2]} {scan $pn2 "%c" pn2}
     if {![regexp {[0-9]} $pn3]} {scan $pn3 "%c" pn3}
 ...

1
2
3
4
5
6
7
8
9
proc getNumber {prjowner prjnum} {
     # calculates checksum for addres and retruns whole address
     set prjowner [string toupper $prjowner]
     scan $prjowner "%c%c%c" prjowner1 prjowner2 prjowner3
     set prjnum [string toupper $prjnum]
     scan $prjnum "%1s%1s%1s" pn1 pn2 pn3
     if {![regexp {[0-9]} $pn1]} {scan $pn1 "%c" pn1}
     if {![regexp {[0-9]} $pn2]} {scan $pn2 "%c" pn2}
     if {![regexp {[0-9]} $pn3]} {scan $pn3 "%c" pn3}
 ...

1
2
3
4
5
6
7
8
9
proc getNumber {prjowner prjnum} {
     # calculates checksum for addres and retruns whole address
     set prjowner [string toupper $prjowner]
     scan $prjowner "%c%c%c" prjowner1 prjowner2 prjowner3
     set prjnum [string toupper $prjnum]
     scan $prjnum "%1s%1s%1s" pn1 pn2 pn3
     if {![regexp {[0-9]} $pn1]} {scan $pn1 "%c" pn1}
     if {![regexp {[0-9]} $pn2]} {scan $pn2 "%c" pn2}
     if {![regexp {[0-9]} $pn3]} {scan $pn3 "%c" pn3}
 ...

1
2
3
4
5
6
7
8
9
proc getNumber {prjowner prjnum} {
     # calculates checksum for addres and retruns whole address
     set prjowner [string toupper $prjowner]
     scan $prjowner "%c%c%c" prjowner1 prjowner2 prjowner3
     set prjnum [string toupper $prjnum]
     scan $prjnum "%1s%1s%1s" pn1 pn2 pn3
     if {![regexp {[0-9]} $pn1]} {scan $pn1 "%c" pn1}
     if {![regexp {[0-9]} $pn2]} {scan $pn2 "%c" pn2}
     if {![regexp {[0-9]} $pn3]} {scan $pn3 "%c" pn3}
 ...

1
2
3
4
5
6
7
8
9
proc getNumber {prjowner prjnum} {
     # calculates checksum for addres and retruns whole address
     set prjowner [string toupper $prjowner]
     scan $prjowner "%c%c%c" prjowner1 prjowner2 prjowner3
     set prjnum [string toupper $prjnum]
     scan $prjnum "%1s%1s%1s" pn1 pn2 pn3
     if {![regexp {[0-9]} $pn1]} {scan $pn1 "%c" pn1}
     if {![regexp {[0-9]} $pn2]} {scan $pn2 "%c" pn2}
     if {![regexp {[0-9]} $pn3]} {scan $pn3 "%c" pn3}
 ...

1
2
3
4
5
6
7
8
9
proc getNumber {prjowner prjnum} {
     # calculates checksum for addres and retruns whole address
     set prjowner [string toupper $prjowner]
     scan $prjowner "%c%c%c" prjowner1 prjowner2 prjowner3
     set prjnum [string toupper $prjnum]
     scan $prjnum "%1s%1s%1s" pn1 pn2 pn3
     if {![regexp {[0-9]} $pn1]} {scan $pn1 "%c" pn1}
     if {![regexp {[0-9]} $pn2]} {scan $pn2 "%c" pn2}
     if {![regexp {[0-9]} $pn3]} {scan $pn3 "%c" pn3}
 ...

1
2
3
4
5
6
7
8
9
proc getNumber {prjowner prjnum} {
     # calculates checksum for addres and retruns whole address
     set prjowner [string toupper $prjowner]
     scan $prjowner "%c%c%c" prjowner1 prjowner2 prjowner3
     set prjnum [string toupper $prjnum]
     scan $prjnum "%1s%1s%1s" pn1 pn2 pn3
     if {![regexp {[0-9]} $pn1]} {scan $pn1 "%c" pn1}
     if {![regexp {[0-9]} $pn2]} {scan $pn2 "%c" pn2}
     if {![regexp {[0-9]} $pn3]} {scan $pn3 "%c" pn3}
 ...

1
2
3
4
5
6
7
8
9
proc getNumber {prjowner prjnum} {
     # calculates checksum for addres and retruns whole address
     set prjowner [string toupper $prjowner]
     scan $prjowner "%c%c%c" prjowner1 prjowner2 prjowner3
     set prjnum [string toupper $prjnum]
     scan $prjnum "%1s%1s%1s" pn1 pn2 pn3
     if {![regexp {[0-9]} $pn1]} {scan $pn1 "%c" pn1}
     if {![regexp {[0-9]} $pn2]} {scan $pn2 "%c" pn2}
     if {![regexp {[0-9]} $pn3]} {scan $pn3 "%c" pn3}
 ...

1
2
3
4
5
6
7
8
9
proc getNumber {prjowner prjnum} {
     # calculates checksum for addres and retruns whole address
     set prjowner [string toupper $prjowner]
     scan $prjowner "%c%c%c" prjowner1 prjowner2 prjowner3
     set prjnum [string toupper $prjnum]
     scan $prjnum "%1s%1s%1s" pn1 pn2 pn3
     if {![regexp {[0-9]} $pn1]} {scan $pn1 "%c" pn1}
     if {![regexp {[0-9]} $pn2]} {scan $pn2 "%c" pn2}
     if {![regexp {[0-9]} $pn3]} {scan $pn3 "%c" pn3}
 ...

1
2
3
4
5
6
7
8
9
import string
 
file = ('A quick brown fox jumps over the lazy dog','A slow yellow fox crawls under the proactive dog')
for phrase in file:
        result = ''
        for x in list(string.lowercase[:26]):
                if file[0].find(x) >= 0:
                        pass
                else:
 ...

1
2
3
4
5
6
7
8
9
set j 223
set k 3
for { set i 2984} { $i <= 3000 } { incr i } {
        if { $j == 255 } {
                set j 1
                incr k
        }
        puts "int vlan $i"
        puts "ip address 110.1.$k.$j 255.255.0.0"
 ...

1
2
3
4
5
6
7
8
9
set j 1
set k 0
for { set i 2000} { $i <= 3000 } { incr i } {
        if { $j == 255 } {
                set j 1
                incr k
        }
        puts "int vlan $i"
        puts "ip address 110.1.$k.$j 255.255.0.0"
 ...

1
2
3
4
5
6
7
8
9
set j 1
set k 0
for { set i 2000} { $i <= 3000 } { incr i } {
        if { $j == 255 } {
                set j 1
                incr k
        }
        puts "ip address 110.1.$k.$j 255.255.0.0"
        incr j

1
2
3
4
5
6
7
8
9
set j 1
set k 0
for { set i 2000} { $i <= 2010 } { incr i } {
        if { $j == 255 } {
                set j 1
                set k [expr {k+1}]
        }
        puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
7
8
9
set j 1
set k 0
for { set i 2000} { $i <= 2010 } { incr i } {
        if { $j == 255 } {
                set j 1
                set k [expr {k+1}]
        }
        ios_config "config t" "interface vlan $i" "ip address 110.1.$k.$j 255.255.0.0" "exit"
}

1
2
3
4
5
6
7
8
9
set j 1
set k 0
for { set i 2000} { $i <= 2010 } { incr i } {
        if { j == 255 } {
                set j 1
                set k [expr {k+1}]
        }
        ios_config "config t" "interface vlan $i" "ip address 110.1.$k.$j 255.255.0.0" "exit"
}

1
2
3
4
5
6
7
set l [expr { 2000/254 }]
for { set i 2000} { $i <= 3000 } { incr i } {
        set j [expr { $i%254 }]
        set k [expr { [expr { $i/254}] - $l }]
        
        puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
7
 
 
for { set i 2000} { $i <= 3000 } { incr i } {
        set j [expr $i%254];
        set k [expr $i/254];
        puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
7
 
 
for { set i 2000} { $i <= 3000 } { incr i } {
        set j [expr $i%254];
        set k [expr $i/254];
        puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
for { set i 2000} { $i <= 3000 } { incr i } {
        set j [expr { $i%254 }]
        set k [expr { $i/254 } - $i + 1 ]
        
        puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
for { set i 2000} { $i <= 3000 } { incr i } {
        set j [expr { $i%254 }]
        set k [expr { $i/254 - $i + 1 }]
        
        puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
7
 
 
for { set i 2000} { $i <= 3000 } { incr i } {
        set j [expr $i%254];
        set k [expr $i/254];
        puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
7
8
 
 
for { set i 2000} { $i <= 3000 } { incr i } {
#set j $i%254
#set k $i/254
puts "hi"
#puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
for { set i 2000} { $i <= 3000 } { incr i } {
        set j [expr { $i%254 }]
        set k [expr { $i/254 }]
        
        puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
for { set i 2000} { $i <= 3000 } { incr i } {
        set j expr { $i%254 }
        set k expr { $i/254 }
        
        puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
for { set i 2000} { $i <= 3000 } { incr i } {
        set j $i%254
        set k $i/254
        
        puts "ip address 110.1."+$k+"."+$j+" 255.255.0.0"
}

1
2
3
4
5
6
for { set i 2000} { $i <= 3000 } { incr i } {
        set j $i%254
        set k $i/254
        
        puts "ip address 110.1."$k"."$j" 255.255.0.0"
}

1
2
3
4
5
6
for { set i 2000} { $i <= 3000 } { incr i } {
        set j $i%254
        set k $i/254
        
        puts "ip address 110.1.$k.$j 255.255.0.0"
}

1
2
3
4
5
6
for { set i 2000} { $i <= 2010 } { incr i } {
        set j $i%254
        set k $i/254
        
        puts "interface vlan $i" "ip address 110.1.$k.$j 255.255.0.0" "exit"
}

1
2
3
4
5
6
set a [rand()]
echo $a
set a [rand()]
echo $a 
set a [rand()]
echo $a