mirror of
https://github.com/ceph/ceph
synced 2025-01-11 13:41:02 +00:00
07ac5d3e74
git-svn-id: https://ceph.svn.sf.net/svnroot/ceph@1068 29311d96-e01e-0410-9327-a35deaab8ce9
42 lines
885 B
Perl
Executable File
42 lines
885 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
my %pin;
|
|
my %hist;
|
|
my $l = 1;
|
|
my @pins;
|
|
while (<>) {
|
|
|
|
# cinode:auth_pin on inode [1000000002625 /gnu/blah_client_created. 0x89b7700] count now 1 + 0
|
|
|
|
if (/path_pinned /) {
|
|
my ($dname, $dir) = /\[dentry (\S+) .* in \[dir (\d+) /;
|
|
$what = "$dname $dir";
|
|
#print "$l pin $what\n";
|
|
$pin{$what}++;
|
|
$hist{$what} .= "$l: $_";
|
|
push( @pins, $what ) unless grep {$_ eq $what} @pins;
|
|
}
|
|
|
|
# cinode:auth_unpin on inode [1000000002625 (dangling) 0x89b7700] count now 0 + 0
|
|
|
|
if (/path_unpinned/) {
|
|
my ($dname, $dir) = /\[dentry (\S+) .* in \[dir (\d+) /;
|
|
$what = "$dname $dir";
|
|
#print "$l unpin $what\n";
|
|
$pin{$what}--;
|
|
$hist{$what} .= "$l: $_";
|
|
unless ($pin{$what}) {
|
|
delete $hist{$what};
|
|
delete $pin{$what};
|
|
@pins = grep {$_ ne $what} @pins;
|
|
}
|
|
}
|
|
$l++;
|
|
}
|
|
|
|
for my $what (@pins) {
|
|
print "---- count $pin{$what} on $what
|
|
$hist{$what}
|
|
";
|
|
}
|