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
- 29937 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 |
Test case on windows calculator?
how to increment eacl element in a list ? eg: incrlist {1 2 3} =>2 3 4
how to write the startup scripts in winrunner? can any body explain with example code?
How to extract "information" from "ccccccccaaabbbbaaaabbinformationabcaaaaaabbbbbbbccbb" in tcl using a single command?
Which scripting language is better among TCL Perl and Python and why?
write a program to the given ip is valid private address or not(192.168.1.1)?
Where can find the sample tcl programs?
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
Problems with utf-8 between Mac and PC
How do you find the length of a string without using string length command in TCL??
how to write a startup script in winrunner
WHAT IS TCL?
ASP 
