mirror of
https://github.com/ceph/ceph
synced 2024-12-24 20:33:27 +00:00
9 lines
96 B
Perl
9 lines
96 B
Perl
|
#!/usr/bin/perl
|
||
|
|
||
|
my $n = 0;
|
||
|
while (<>) {
|
||
|
next unless /trace: /;
|
||
|
my $l = $'; $';
|
||
|
print $l;
|
||
|
}
|