mirror of
git://projects.qi-hardware.com/wernermisc.git
synced 2025-04-21 12:27:27 +03:00
labsw/mech/: added process to mill front plate
This commit is contained in:
17
labsw/mech/filter
Executable file
17
labsw/mech/filter
Executable file
@@ -0,0 +1,17 @@
|
||||
#!/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;
|
||||
}
|
||||
Reference in New Issue
Block a user