fork(2) download 
  1. set text {256.256.255.1}
  2. set pattern {^(?:[0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])(?:\.(?:[0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])){3}$} 
  3. regexp $pattern $text match
  4. if {[info exists match]} {
  5. 	puts $match
  6. } else {
  7. 	puts "No match"
  8. }
Success #stdin #stdout 0s 28232KB
comments (?)
stdin 
Standard input is empty
stdout 
No match
https://ideone.com/tKHpPz
language:
TCL (tcl 8.6)
created:
6 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!