fork(2) download 
  1. set direction(1) {<RouteLabel>Hurdman</RouteLabel>}
  2. regexp {^.*>(.*)<} $direction(1) _ number
  3. puts $number
Success #stdin #stdout 0s 28096KB
comments (?)
stdin 
Standard input is empty
stdout 
Hurdman
https://ideone.com/UFGuUb
language:
TCL (tcl 8.6)
created:
8 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!