script/bdev_grep: update to use hex

Signed-off-by: Sage Weil <sage@redhat.com>

diff --git a/src/script/bdev_grep.pl b/src/script/bdev_grep.pl
index 42df2a66f0142d1d1afff6337eb027f7f1d1712e..f5a316b4f97ef4e6e0684f6fa0b210b8767dad0f 100755 (executable)
--- a/src/script/bdev_grep.pl
+++ b/src/script/bdev_grep.pl
@@ -6,13 +6,13 @@ while (<>) {
     #    next unless / \d\d bdev /;
     my $rest = $_;
     my @hit;
-    while ($rest =~ /(\d+)~(\d+)/) {
-       my ($o, $l) = $rest =~ /(\d+)~(\d+)/;
+    while ($rest =~ /([\da-f]+)~([\da-f]+)/) {
+       my ($o, $l) = $rest =~ /([\da-f]+)~([\da-f]+)/;
        $rest = $';
-       if ($offset >= $o &&
-           $offset < $o + $l) {
-           my $rel = $offset - $o;
-           push(@hit, $rel);
+       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;