X-Git-Url: https://gerrit.opnfv.org/gerrit/gitweb?a=blobdiff_plain;f=src%2Fceph%2Fsrc%2Fscript%2Fbdev_grep.pl;fp=src%2Fceph%2Fsrc%2Fscript%2Fbdev_grep.pl;h=0000000000000000000000000000000000000000;hb=7da45d65be36d36b880cc55c5036e96c24b53f00;hp=a343aad450c9ff568722b25c0e37e57d701f743a;hpb=691462d09d0987b47e112d6ee8740375df3c51b2;p=stor4nfv.git

diff --git a/src/ceph/src/script/bdev_grep.pl b/src/ceph/src/script/bdev_grep.pl
deleted file mode 100755
index a343aad..0000000
--- a/src/ceph/src/script/bdev_grep.pl
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl
-
-my $offset = shift @ARGV;
-
-while (<>) {
-    #    next unless / \d\d bdev /;
-    my $rest = $_;
-    my @hit;
-    while ($rest =~ /([\da-f]+)[~\+]([\da-f]+)/) {
-	my ($o, $l) = $rest =~ /([\da-f]+)[~\+]([\da-f]+)/;
-	$rest = $';
-	if (hex($offset) >= hex($o) &&
-	    hex($offset) < hex($o) + hex($l)) {
-	    my $rel = hex($offset) - hex($o);
-	    push(@hit, sprintf("%x",$rel));
-	}
-    }
-    print join(',',@hit) . "\t$_" if @hit;
-}