X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=public%2Fcode%2Fget_block_latency.ms.pl;fp=public%2Fcode%2Fget_block_latency.ms.pl;h=7296b3f3ffb08b0d9f323ccb0ab126d3243d99bf;hb=d8238013074fb0818f27bd0eb0e5b58bec94cb1a;hp=0000000000000000000000000000000000000000;hpb=388f8757e17f97a81690b481ca53e8ab4afe8291;p=MojoFacets.git

diff --git a/public/code/get_block_latency.ms.pl b/public/code/get_block_latency.ms.pl
new file mode 100644
index 0000000..7296b3f
--- /dev/null
+++ b/public/code/get_block_latency.ms.pl
@@ -0,0 +1,8 @@
+foreach my $col ( grep { m/latency/ } keys %$row ) {
+ foreach my $v ( @{ $row->{$col} } ) {
+  $v =~ s{(\d+)us}{$1 / 1000}e;
+  $v =~ s{(\d+)ms}{$1};
+  push @{ $update->{$col . '_ms' } }, $v;
+ }
+}
+