reformat bonnie++ latency into ms

diff --git a/public/code/get_block_latency.ms.pl b/public/code/get_block_latency.ms.pl
new file mode 100644 (file)
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;
+ }
+}
+