fork download
copy 
  1. set name " HTTP REQUEST = 1\n HTTP REQUEST(SUCCESS) = 0\nSERVER CONN = 1"
  2. set pattern {HTTP REQUEST\(SUCCESS\)}
  3. set List [split $name "\n"]
  4. foreach var $List {
  5.     set var [lindex $List 1]
  6.     #set var2 [string trim $var1 " "]
  7.  
  8. }    
  9. puts $var
  10. if {[regexp $pattern  $var match]} {
  11.     puts " matched!" 
  12.     puts $match
  13. } else {
  14.     puts " not matched!"
  15. }
Success #stdin #stdout 0s 16560KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 HTTP REQUEST(SUCCESS) = 0
 matched!
HTTP REQUEST(SUCCESS)
https://ideone.com/Rwqra3
language:
TCL (tcl 8.6)
created:
7 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!