1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/env perl
# Use this to cut out the crud from make check.
# Use like this:
# make check 2>&1 | ruby ../make-check-filter.pl
# See Makefile.am
my @pats =
("^ CC",
"^ CXX",
'^(re|g)?make\[',
"^(re|g)?make ",
"Making check in",
'^[+]{2} WARN: ',
'^m4/', # doesn't work always
'^configure.ac', # doesn't work always
'^ cd \.\.', # doesn't work always
'^config.status', # doesn't work always
"^ vcd_demo.right",
'^-- ',
'^-+$',
'^##<<+$',
'^##>>+$',
'`.+\' is up to date.$',
'^\s*$');
my $pats = "(" . join("|", @pats) . ')';
# print "$pats\n";
my $skip_re = /${pats}/;
# open(STDIN, '<', '/etc/hosts')
# or die "cannot open > /etc/hosts: $!";
while (<STDIN>) {
next if $_ =~ /$pats/;
print $_;
}
|
