mirror of
https://github.com/ceph/ceph
synced 2025-02-08 19:38:47 +00:00
dc48f25847
git-svn-id: https://ceph.svn.sf.net/svnroot/ceph@2100 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;
|
|
}
|