1
0
mirror of git://projects.qi-hardware.com/wernermisc.git synced 2024-12-25 16:33:01 +02:00
wernermisc/labsw/mech/filter
2011-09-04 20:36:30 -03:00

18 lines
242 B
Perl
Executable File

#!/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;
}