Root/prod/doc/figfilt

1#!/usr/bin/perl
2$key = shift @ARGV;
3$skip = 0;
4$skipping = 0;
5while (<>) {
6    if (/^#/ && $. != 1) {
7        $skip = $_ !~ /$key/;
8        print unless $skip;
9        next;
10    }
11    if (/^\s/) {
12        print unless $skipping;
13        next;
14    }
15    print unless $skip;
16    $skipping = $skip;
17    $skip = 0;
18}
19

Archive Download this file



interactive