*** empty log message ***

git-svn-id: https://ceph.svn.sf.net/svnroot/ceph@547 29311d96-e01e-0410-9327-a35deaab8ce9

diff --git a/ceph/script/grepblock b/ceph/script/grepblock
new file mode 100755 (executable)
index 0000000..f5acf95
--- /dev/null
+++ b/ceph/script/grepblock
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+use strict;
+
+my $block = shift ARGV;
+die unless int $block;
+
+while (<>) {
+       my $yes = 0;
+       for my $x (/(\d+\~\d+)/) {
+               my ($s,$l) = split(/\~/,$x);
+               $yes = 1 if ($block >= $s && $block < $s+$l);
+       }       
+       print if $yes;
+}