Answer / saravanan6060

#169.254.0.0 through 169.254.255.255




#172.16.0.0 through 172.31.255.255 




#192.168.0.0 through 192.168.255.255

#10.0.0.0 10.255.255.255




set a "10.78.80.2" or 

// a could be any private range the below regexp will match ,if u provide other than private range it will throw an error 

regexp {^(10|169|172|192).([0-9]+|[0-9][0-9]+|1[0-9][0-9]+|2[0-4][0-9]+|25[0-5]+).([0-9]|[0-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]).([0-9]|[0-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])} $a match 




puts $match

Answer / amarnath

#10.0.0.0 through 10.255.255.255




#169.254.0.0 through 169.254.255.255




#172.16.0.0 through 172.31.255.255




#192.168.0.0 through 192.168.255.255

set ip 192.168.10.1

if {[regexp {^(10|169|172|192).([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]).([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]).([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])} $ip match 1st 2nd 3rd 4th]} {
puts $match
puts "$1st
$2nd
$3rd
$4th" }

Answer / amarnath

#!/usr/local/bin/expect



set ip 172.46.250.200

#### validate private ip add ######

if {[regexp {^(10|169|172|192).([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]).([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]).([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])$} $ip match oct1 oct2 oct3 oct4] } {
if {$oct1==10} {
puts "$ip IP is CLASS A private ip range" }
if {$oct1==169} {
if {$oct2==254} {
puts "$ip IP is internal/system private ip range " } else {
puts "$ip is public ip" } }
if {$oct1==192} {
if {$oct2==168} {
puts "$ip IP is CLASS C private ip range " } else {
puts "$ip is public ip"}}
if {$oct1==172} {
if {$oct2>=16} {
#puts "$ip is private ip "
if {$oct2<=31} {
puts "$ip IP is CLASS B private ip range " } else {
puts "$ip is public ip" } } }
} else {

puts "$ip is Invalied ip" }

Answer / saravanan6060

#10.0.0.0 through 10.255.255.255 




#169.254.0.0 through 169.254.255.255




#172.16.0.0 through 172.31.255.255 




#192.168.0.0 through 192.168.255.255




set a "10.78.80.2"
regexp {^(10|169|172|192).([0-9]+|[0-9][0-9]+|1[0-9][0-9]+|2[0-4][0-9]+|25[0-5]+).([0-9]|[0-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5]).([0-9]|[0-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])} $a match i




puts $match

if i give in numbers output should be in characters example : set a 23 o/p twentythree

1 Answers   Alcatel,

---

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.

3 Answers   ATTO, HCL,

---

how to increment eacl element in a list ? eg: incrlist {1 2 3} =>2 3 4

9 Answers   Honeywell,

---

how to write the startup scripts in winrunner? can any body explain with example code?

0 Answers  

---

How to extract "information" from "ccccccccaaabbbbaaaabbinformationabcaaaaaabbbbbbbccbb" in tcl using a single command?

12 Answers   Wipro,

---

---

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

0 Answers  

---

How do you check whether a string is palindrome or not using TCL script?

10 Answers  

---

WHAT IS TCL?

4 Answers   Airtel,

---

How TCL works

1 Answers   Cisco,

---

write a program to the given ip is valid private address or not(192.168.1.1)?

4 Answers   HCL,

---

Test case on windows calculator?

1 Answers  

---

How do you find the length of a string without using string length command in TCL??

6 Answers   Hexaware,

---