Interested to Buy Any Domain ? << Click Here >> for more details...
Set ip address as 10.30.20.1
write a script to replace the 30 with 40 ?
- 9 Answers
- 21542 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / s.gun
% set ip 10.30.20.1
10.30.20.1
% regsub -all {30} $ip {40} ip
1
% puts $ip
10.40.20.1
%
| Is This Answer Correct ? | 7 Yes | 3 No |
In above answer if you have IP like 10.30.30.1 then it replace for all 30 with 40.But here i guess intention is just to replace one octet with 40.So following solves that issue:
set a 10.30.2.1
set b [ string replace $a 3 4 40 ]
puts $b
| Is This Answer Correct ? | 4 Yes | 1 No |
Answer / satyanarayana
here you can do this in multiple ways
1.regsub 30 $data 40 a
puts $a
this will give you the replaced string
2.string replace $data 3 4 40
this also will give you the replaced value
| Is This Answer Correct ? | 3 Yes | 2 No |
Answer / srinubalsu
set ip 10.30.20.1
puts [join [lreplace [split $ip .] 1 1 40] .]
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / siddalingesha
set i "10.30.20.1"
set n [split $i "."]
set k [lreplace $n 1 1 40]
set s [join $k "."]
puts "$s"
| Is This Answer Correct ? | 1 Yes | 1 No |
Answer / guest
set ip "10.30.20.1"
regsub -all {m\30\M} $ip 40 ip_new
puts $ip_new
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / 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 |
Answer / sat
Set ip 10.30.20.1
split ip using split .
from the resultant list, use lreplace command to replace
element 30 with 20.
| Is This Answer Correct ? | 3 Yes | 4 No |
How do you find the length of a string without using string length command in TCL??
How increment a character? For example, I give 'a' and I should get 'b'.
how to remote log in to a system A to system B ,execute commands in it and collect the log in system A from B using TCL script??
1 Answers Global Edge, Sandvine,
Which scripting language is better among TCL Perl and Python and why?
{Anu Anudeep Anukumar Amar Amaravathi Aruna} is their any possibility to find the letter "a"in the given list? if yes how?
What does Tcl stand for?
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 }
write a program to the given ip is valid private address or not(192.168.1.1)?
write a regular expressions to fetch all the valid ip's
Write a program to increment IP address to +10 and verify it is correct ip or not ?? example my ip is 172.122.132.143 increment this ip to +10 and verify it is valid ip or not
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
ASP 
