Add Tcl version

run-benchmarks.php

@@ -50,6 +50,7 @@
     'Python PyPy3' => 'pypy3 python/benchmark.py',
     'Ruby'         => 'ruby ruby/benchmark.rb',
     'Rust'         => 'rust/target/release/benchmark',
+	'Tcl'          => 'tclsh tcl/benchmark.tcl',
 ];
 
 echo '- Build' . PHP_EOL;

tcl/README.md

@@ -0,0 +1,7 @@
+# Tcl Regex Benchmark
+
+## How to run
+
+```sh
+tclsh benchmark.tcl <filename>
+```

tcl/benchmark.tcl

@@ -0,0 +1,14 @@
+namespace path {::tcl::mathop ::tcl::mathfunc}
+
+proc measure {data pat} {
+	set start [clock microseconds]
+	set match_count [regexp -all $pat $data]
+	set elapsed [/ [- [clock microseconds] $start] 1e3]
+	puts [format {%.3f - %u} $elapsed $match_count]
+}
+
+set data [read [open [lindex $argv 0]]]
+
+measure $data {[\w\.+-]+@[\w\.-]+\.[\w\.-]+}
+measure $data {[\w]+://[^/\s?#]+[^\s?#]+(?:\?[^\s#]*)?(?:#[^\s]*)?}
+measure $data {(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9])\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9])}