romuald/timing.pl

Created March 24, 2021 10:19

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/romuald/b10635936502a5cd7c14b8032ed03d46.js"></script>
Save romuald/b10635936502a5cd7c14b8032ed03d46 to your computer and use it in GitHub Desktop.

Download ZIP

Revisions

romuald created this gist Mar 24, 2021.

timing.pl

-Original file line number
+Diff line change
@@ -0,0 +1,11 @@
+    #!/bin/env perl
+    # Usage: anycommand | timing.pl
+    use strict;
+    use warnings;
+    use Time::HiRes qw/time/;
+    my $start  = time();
+    while (<>) {
+        printf "%.3f ", time() - $start;
+        print;
+    }