1
0
mirror of git://projects.qi-hardware.com/wernermisc.git synced 2024-12-23 12:32:24 +02:00
wernermisc/labsw/mech/filter

18 lines
242 B
Plaintext
Raw Normal View History

#!/usr/bin/perl
$on = 1;
while (<STDIN>) {
$line = $_;
if (/^#%id=/) {
chop($id = $');
$on = 1;
for (@ARGV) {
if ($_ =~ /^!/) {
$on = 0 if $id =~ $';
} else {
$on = 0 unless $id =~ $_;
}
}
}
print $line if $on;
}