Interested to Buy Any Domain ? << Click Here >> for more details...
How to Swap 30 & 40 in IP address 192.30.40.1 using TCL
script?
- 8 Answers
- 29679 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 do you check whether a string is palindrome or not using TCL script?
How to Swap 30 & 40 in IP address 192.30.40.1 using TCL script?
how to write a startup script in winrunner
Problems with utf-8 between Mac and PC
Test case on windows calculator?
how to write the startup scripts in winrunner? can any body explain with example code?
What does Tcl stand for?
How to run a package in tcl
How TCL works
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,
Where can find the sample tcl programs?
Which scripting language is better among TCL Perl and Python and why?
ASP 
