chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
knifeblock: wip
[reprap-play.git]
/
knifeblock-knives-filter
1
#!/usr/bin/perl -wn
2
3
use strict;
4
5
our $want;
6
7
BEGIN {
8
$want = shift @ARGV;
9
die unless $want =~ m/^\d+$/;
10
}
11
12
our $drop;
13
14
if (m/^\S/) {
15
$drop =
16
m/^2 / ||
17
m/^3 \d+ \d+ \d+ (?!$want )\d+ /;
18
}
19
20
next if $drop;
21
22
print or die $!;