fork download 
  1. set a {
  2. NOTPLD STATS:
  3.               Bps:                    0; pps:                    0; Bytes:                    0; Packets:                    4535
  4. TPLD STATS:
  5.           Bps:                    0; pps:                    0; Bytes:                    0; Packets:                    7535
  6.  
  7. }
  8.  
  9. regexp {NOTPLD STATS:([^P]*(?:P(?!ackets:)[^P]*)*)Packets:[\s]+([0-9]+)} $a t1 t2 c
  10. puts $c
Success #stdin #stdout 0s 15904KB
comments (?)
stdin 
Standard input is empty
stdout 
4535
https://ideone.com/eUyO3l
language:
TCL (tcl 8.6)
created:
9 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!