Write a proc to increment the ip by the given no. of times.
The incremented IPs should be a valid one.
Ex: proc <name> {ip no_of_incrments} {
body
}
Answers were Sorted based on User's Feedback
Thanks jasmin for your valuable script.
small correction for "if" conditions .
proc increment_ip {ip no_of_inc} {
puts "Ip address --- $ip"
for {set inc 1} {$inc<=$no_of_inc} {incr inc} {
set ip_list [split $ip "."]
set oct1 [lindex $ip_list 0]
set oct2 [lindex $ip_list 1]
set oct3 [lindex $ip_list 2]
set oct4 [lindex $ip_list 3]
incr oct4
if {$oct4>255} {
set oct4 0
incr oct3
}
if {$oct3>255} {
set oct3 0
incr oct2
}
if {$oct2>255} {
set oct2 0
incr oct1
}
if {$oct1>255} {
incr oct1 -1
puts "cannot increment ip"
exit
}
set ip $oct1.$oct2.$oct3.$oct4
puts "next ip -- $ip"
}
}
increment_ip 1.1.1.1 10
Is This Answer Correct ? | 2 Yes | 1 No |
Answer / jasmin
proc increment_ip {ip no_of_inc} {
puts "ip..... $ip"
for {set inc 1} {$inc<=$no_of_inc} {incr
inc} {
set ip_list [split $ip .]
set oct1 [lindex $ip_list 0]
set oct2 [lindex $ip_list 1]
set oct3 [lindex $ip_list 2]
set oct4 [lindex $ip_list 3]
incr oct4
if {$oct4>255} {
set oct4 0
incr oct3
if
{$oct3>255} {
set oct3 0
incr oct2
if {$oct2>255} {
set oct2 0
incr oct1
if {$oct1>255} {
incr oct1 -1
puts "cannot increment
ip"
exit
}
}
}
}
set ip $oct1.$oct2.$oct3.$oct4
}
puts "new ip .... $oct1.$oct2.$oct3.$oct4"
}
increment_ip 10.10.10.1 10
Is This Answer Correct ? | 1 Yes | 3 No |
How do you find the length of a string without using string length command in TCL??
Problems with utf-8 between Mac and PC
how to increment eacl element in a list ? eg: incrlist {1 2 3} =>2 3 4
if i give in numbers output should be in characters example : set a 23 o/p twentythree
How to get the next ip for given ip ex: 10.10.10.1 -> 10.10.10.2 ex: 10.10.10.255 -> 10.10.11.0
Write a proc to increment the ip by the given no. of times. The incremented IPs should be a valid one. Ex: proc <name> {ip no_of_incrments} { body }
How TCL works
Which scripting language is better among TCL Perl and Python and why?
how to write the startup scripts in winrunner? can any body explain with example code?
write a program to the given ip is valid private address or not(192.168.1.1)?
Where can find the sample tcl programs?
How do you check whether a string is palindrome or not using TCL script?