Interested to Buy Any Domain ? << Click Here >> for more details...
write a program to the given ip is valid private address or not(192.168.1.1)?
- 4 Answers
- 11048 Views
- HCL, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
#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
| Is This Answer Correct ? | 0 Yes | 0 No |
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" }
| Is This Answer Correct ? | 0 Yes | 0 No |
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" }
| Is This Answer Correct ? | 0 Yes | 0 No |
#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
| Is This Answer Correct ? | 0 Yes | 1 No |
How do you find the length of a string without using string length command in TCL??
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,
Problems with utf-8 between Mac and PC
How to run a package in tcl
Where can find the sample tcl programs?
how to write a startup script in winrunner
How to Swap 30 & 40 in IP address 192.30.40.1 using TCL script?
Which scripting language is better among TCL Perl and Python and why?
how to write the startup scripts in winrunner? can any body explain with example code?
write a regular expressions to fetch all the valid ip's
how to increment eacl element in a list ? eg: incrlist {1 2 3} =>2 3 4
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
ASP 
