mirror of
https://github.com/ceph/ceph
synced 2025-02-15 23:07:55 +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;
|
||
|
|
}
|