Set ip address as 10.30.20.1
write a script to replace the 30 with 40 ?

Answer Posted / amarnath

set ip 10.20.30.40
set a [split $ip .]
puts $a
set oct1 [lindex $a 0]
set oct2 [lindex $a 1]
set oct3 [lindex $a 2]
set oct4 [lindex $a 3]
#set oct3 50
set ip [join "$oct1 $oct2 $oct4 $oct3" "."]
puts $ip

Is This Answer Correct ?    0 Yes 0 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

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

2528