# 6 set ip "192.30.40.1" regsub {(\d+)\.(\d+)\.(\d+)\.(\d+)} $ip

How to Swap 30 & 40 in IP address 192.30.40.1 using TCL
script?

Question Posted / mahesh

8 Answers
27233 Views
HCL, ONGC, I also Faced
E-Mail Answers

Answer Posted / 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

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

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

2612