src/ceph/src/script/bdev_grep.pl

   1 #!/usr/bin/perl
   2
   3 my $offset = shift @ARGV;
   4
   5 while (<>) {
   6     #    next unless / \d\d bdev /;
   7     my $rest = $_;
   8     my @hit;
   9     while ($rest =~ /([\da-f]+)[~\+]([\da-f]+)/) {
  10         my ($o, $l) = $rest =~ /([\da-f]+)[~\+]([\da-f]+)/;
  11         $rest = $';
  12         if (hex($offset) >= hex($o) &&
  13             hex($offset) < hex($o) + hex($l)) {
  14             my $rel = hex($offset) - hex($o);
  15             push(@hit, sprintf("%x",$rel));
  16         }
  17     }
  18     print join(',',@hit) . "\t$_" if @hit;
  19 }