mirror of
https://github.com/ceph/ceph
synced 2024-12-24 04:14:07 +00:00
07ac5d3e74
git-svn-id: https://ceph.svn.sf.net/svnroot/ceph@1068 29311d96-e01e-0410-9327-a35deaab8ce9
9 lines
96 B
Perl
Executable File
9 lines
96 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
my $n = 0;
|
|
while (<>) {
|
|
next unless /trace: /;
|
|
my $l = $'; $';
|
|
print $l;
|
|
}
|