Answer / thiru

set ip "10.255.255.255"
set list [split $ip "."]
set oct1 [lindex $list 0]
set oct2 [lindex $list 1]
set oct3 [lindex $list 2]
set oct4 [lindex $list 3]

if {$oct4>254} {
set oct4 0
set oct3 [expr $oct3+10]
if {$oct3>255} {
set oct3 0
set oct3 [expr $oct3+10]
if {$oct2>255} {
set oct2 0
set oct3 [expr $oct1+10] }
if {$oct1>255} {
set oct1 0
}}} else {
set oct4 [expr $oct4+10]
}
puts "$oct1.$oct2.$oct3.$oct4"

How to run a package in tcl

2 Answers  

---

Hi all, Is there any certification exams available for TCL and Perl. If so please let me know, my mailid is vpbharathi@gmail.com. Thanks in advance, Bharathi.P

1 Answers  

---

How do you find the length of a string without using string length command in TCL??

6 Answers   Hexaware,

---

how to increment eacl element in a list ? eg: incrlist {1 2 3} =>2 3 4

9 Answers   Honeywell,

---

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

5 Answers   Cisco, HCL,

---

How to Swap 30 & 40 in IP address 192.30.40.1 using TCL script?

8 Answers   HCL, ONGC,

---

Where can find the sample tcl programs?

3 Answers  

---

How TCL works

1 Answers   Cisco,

---

write a program to the given ip is valid private address or not(192.168.1.1)?

4 Answers   HCL,

---

Test case on windows calculator?

2 Answers  

---

Problems with utf-8 between Mac and PC

1 Answers  

---

What does Tcl stand for?

2 Answers  

---