3 my $offset = shift @ARGV;
6 # next unless / \d\d bdev /;
9 while ($rest =~ /([\da-f]+)[~\+]([\da-f]+)/) {
10 my ($o, $l) = $rest =~ /([\da-f]+)[~\+]([\da-f]+)/;
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));
18 print join(',',@hit) . "\t$_" if @hit;