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
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