src/script/grepblock


1
2
3
4
5
6
7
8
9
10
11
12
13
14
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;
}