How to Swap 30 & 40 in IP address 192.30.40.1 using TCL
script?
Answers were Sorted based on User's Feedback
Answer / gagik sukiasyan
set ip "192.30.40.1"
regsub {(\d+)\.(\d+)\.(\d+)\.(\d+)} $ip "\\1.\\3.\\2.\\4" new_ip
puts $new_ip
Is This Answer Correct ? | 19 Yes | 0 No |
There are three solutions.
set a 192.30.40.1
set b [ string range $a 3 4 ]
set c [ string range $a 6 7 ]
set d [ string replace $a 3 4 $c ]
set e [ string replace $d 6 7 $b]
puts $e
===OR=====
set a 192.30.40.1
set b [ split $a .]
set u [lindex $b 0]
set v [lindex $b 3]
set x [lindex $b 1]
set y [lindex $b 2]
set z [join "$u $y $x $v" .]
puts $z
====OR====
set ip 192.30.40.1
regexp {([0-9]+\.)([0-9]+\.)([0-9]+\.)([0-9]+)} $ip match 1st 2nd 3rd 4th
append new_ip $1st $3rd $2nd $4th
puts $new_ip
Is This Answer Correct ? | 19 Yes | 4 No |
Answer / hereiam
set x 192.30.40.1
set srcStr {([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)}
regexp $srcStr $x - d1 d2 d3 d4
regsub $srcStr $x "$d1.$d3.$d2.$d1" x
puts $x
Is This Answer Correct ? | 14 Yes | 3 No |
Answer / srinubalsu
set a 192.30.40.1
puts "Before swaping a: $a"
set a [split $a .]
set a [join "[lindex $a 0] [lindex $a 2] [lindex $a 1] [lindex $a 3]" .]
puts "After swaping a: $a"
Is This Answer Correct ? | 8 Yes | 0 No |
Answer / siddalingesha
set ip 192.30.40.1
set sp [split $ip "."]
set l [lindex $sp 1]
set m [lindex $sp 2]
set n [lreplace $sp 1 2 $m $l]
set sip [join $n "."]
puts "$sip"
Is This Answer Correct ? | 8 Yes | 0 No |
Answer / ram
set a 192.30.40.1
set a [split $a .]
set b [lreplace $a 1 2 "40" "30"]
puts [join $b .]
Is This Answer Correct ? | 8 Yes | 3 No |
Answer / mahesh
# 6 set ip "192.30.40.1"
regsub {(\d+)\.(\d+)\.(\d+)\.(\d+)} $ip "\\1.\\3.\\2.\\4"
new_ip
puts $new_ip
Is This Answer Correct ? | 6 Yes | 1 No |
Answer / ritu gupta
set ip 192.30.40.1
set updatedIp [ string map {30 40 40 30 } $ip ]
Is This Answer Correct ? | 6 Yes | 3 No |
How to Swap 30 & 40 in IP address 192.30.40.1 using TCL script?
{Anu Anudeep Anukumar Amar Amaravathi Aruna} is their any possibility to find the letter "a"in the given list? if yes how?
how to write the startup scripts in winrunner? can any body explain with example code?
write a regular expressions to fetch all the valid ip's
Set ip address as 10.30.20.1 write a script to replace the 30 with 40 ?
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
Where can find the sample tcl programs?
write a program to the given ip is valid private address or not(192.168.1.1)?
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
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,
How do you check whether a string is palindrome or not using TCL script?
How do you find the length of a string without using string length command in TCL??