How to Swap 30 & 40 in IP address 192.30.40.1 using TCL
script?
- 8 Answers
- 27866 Views
- HCL, ONGC, I also Faced
- E-Mail Answers
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 ? | 15 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 TCL works
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 }
1.What are the different ways to initialize a variable. How to differentiate global and local variables, explain it through a simple tcl program. 2.Create a list of week days and print the first and last character of each day using foreach command 3.Can you write a small program to verify the given input is file or directory.Before checking, just ensure that the file/dir exists or not in the given path. If the given input is a file, findout the size and verify that the file has all read ,write and execute permission.
how to write the startup scripts in winrunner? can any body explain with example code?
How to run a package in tcl
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
Problems with utf-8 between Mac and PC
how to increment eacl element in a list ? eg: incrlist {1 2 3} =>2 3 4
write a regular expressions to fetch all the valid ip's
How do you find the length of a string without using string length command in TCL??
{Anu Anudeep Anukumar Amar Amaravathi Aruna} is their any possibility to find the letter "a"in the given list? if yes how?
How to Swap 30 & 40 in IP address 192.30.40.1 using TCL script?
ASP 
