script: find high latency requests in mds log

diff --git a/src/script/check_request_latency.pl b/src/script/check_request_latency.pl
new file mode 100755 (executable)
index 0000000..d88e14c
--- /dev/null
+++ b/src/script/check_request_latency.pl
@@ -0,0 +1,46 @@
+#!/usr/bin/perl
+
+use strict;
+
+my %r;      # reqid -> start
+my %lat_req;  # latency -> request
+
+sub tosec($) {
+    my $v = shift;
+    my ($h, $m, $s) = split(/:/, $v);
+    my $r = $s + 60 * ($m + (60 * $h));
+    #print "$v = $h  $m  $s = $r\n";
+    return $r;
+}
+
+while (<>) {
+    chomp;
+    my ($stamp) = /^\S+ (\S+) /;
+
+    my ($what,$req) = /\d+ -- \S+ mds\d+ ... client\d+ \S+ \S+ client_(request|reply)\((\S+)/;
+    
+    if (defined $req) {
+       #print "$what $req at $stamp\n";
+       if ($what eq 'request') {
+           $r{$req} = $stamp;
+       } elsif ($what eq 'reply') {
+           if (exists $r{$req}) {
+               my $len = tosec($stamp) - tosec($r{$req});
+
+               #print "$req $len ($r{$req} - $stamp)\n";
+               $lat_req{$len} = $req;
+
+               delete $r{$req};
+           }
+       } else {
+           die;
+       }
+    }
+
+    
+}
+
+
+for my $len (sort {$b <=> $a} keys %lat_req) {
+    print "$len\t$lat_req{$len}\n";    
+}