fork download 
  1. set line {1.3.6.1.4.1.2076.50.3.1.3.2   2 }
  2. regexp {^(\S+)\.\d+} $line -> line 
  3. puts "$line"
  4.  
  5. set line2 {1.3.6.1.4.1.2076.50.3.1.4.1   64      127.0.0.101}
  6. regexp {^(\S+)\.\d+} $line2 -> line 
  7. puts "$line"
  8.  
Success #stdin #stdout 0.01s 5508KB
comments (?)
stdin 
Standard input is empty
stdout 
1.3.6.1.4.1.2076.50.3.1.3
1.3.6.1.4.1.2076.50.3.1.4
https://ideone.com/OeF3KT
language:
TCL (tcl 8.6)
created:
3 years ago
visibility:
public

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!