fork(1) download
copy 
  1. set int "Ethernet8/34"
  2. regexp -nocase "(.*t)((\\d+)\/(\\d+)(?:/(\\d+))?)" $int - int_type int_num mod_num port broken_port
  3. puts $int_type
  4. puts $int_num
  5. puts $mod_num
  6. puts $port
  7. puts $broken_port
Success #stdin #stdout 0s 15856KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Ethernet
8/34
8
34
https://ideone.com/J4v0qD
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!