← Back to branch summary

~ubuntu-branches/ubuntu/quantal/ceph/quantal

« back to all changes in this revision

Viewing changes to src/script/grepblock

  • Committer: Package Import Robot
  • Author(s): James Page
  • Date: 2012-07-16 09:56:24 UTC
  • mfrom: (0.3.11)
  • mto: This revision was merged to the branch mainline in revision 17.
  • Revision ID: package-import@ubuntu.com-20120716095624-azr2w4hbhei1rxmx
Tags: upstream-0.48
Import upstream version 0.48

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/script/grepblock
 
1
#!/usr/bin/perl
 
2
 
 
3
use strict;
 
4
 
 
5
my $block = shift ARGV;
 
6
die unless int $block;
 
7
 
 
8
while (<>) {
 
9
        my $yes = 0;
 
10
        for my $x (/(\d+\~\d+)/) {
 
11
                my ($s,$l) = split(/\~/,$x);
 
12
                $yes = 1 if ($block >= $s && $block < $s+$l);
 
13
        }       
 
14
        print if $yes;
 
15
}