mirror of
https://github.com/ceph/ceph
synced 2025-02-13 13:59:22 +00:00
42 lines
885 B
Perl
42 lines
885 B
Perl
|
#!/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}
|
||
|
|
";
|
||
|
|
}
|