From 071bba22cb23c81f81f68505e4a77a3bb2f70681 Mon Sep 17 00:00:00 2001
From: wangdi <wangdi>
Date: Thu, 8 Jul 2004 11:18:25 +0000
Subject: [PATCH] some fix in llanalyze
---
lustre/utils/llanalyze | 28 ++++++++++++++++++++++------
1 file changed, 22 insertions(+), 6 deletions(-)
diff --git a/lustre/utils/llanalyze b/lustre/utils/llanalyze
index 64c027d189..9607679dfc 100644
--- a/lustre/utils/llanalyze
+++ b/lustre/utils/llanalyze
@@ -67,7 +67,7 @@ sub extractpid
{
$line = shift;
# print "$_\n";
- if ($line =~ m/\d+:\d+:\d+:\d+\.\d+:\d+:\d+:*$/) {
+ if ($line =~ m/(\d+):(\d+):(\d+):(\d+\.\d+):(\d+):(\d+):.*$/) {
return $6;
}
}
@@ -76,10 +76,27 @@ sub extracthostpid
{
$line = shift;
# print "$_\n";
- if ($line =~ m/\d+:\d+:\d+:\d+\.\d+:\d+:\d+:\d+:*$/) {
+ if ($line =~ m/(\d+):(\d+):(\d+):(\d+\.\d+):(\d+):(\d+):(\d+):.*$/) {
return $7;
}
}
+sub extractsubsys
+{
+ $line = shift;
+# print "$_\n";
+ if ($line =~ m/(\d+):(\d+):(\d+):(\d+\.\d+):(\d+):(\d+):(\d+):.*$/) {
+ return hex($1);
+ }
+}
+
+sub extractmask
+{
+ $line = shift;
+# print "$_\n";
+ if ($line =~ m/(\d+):(\d+):(\d+):(\d+\.\d+):(\d+):(\d+):(\d+):.*$/) {
+ return hex($2);
+ }
+}
sub entering_rpc
{
@@ -284,11 +301,10 @@ while (<LOG>) {
}
$linepid = extractpid($_);
- $linehpid = extracthostpid($_);
- $linemask = getmask($_);
- $linesubsys = getsubsys($_);
-# printf "---> mask %x subsys %x\n", $linemask, $linesubsys;
+ $linehpid = extracthostpid($_);
+ $linesubsys = extractsubsys($_);
+ $linemask = extractmask($_);
if (leaving($_)) {
chop $prefix->{$linepid};
--
GitLab