chiark
/
gitweb
/
~ianmdlvl
/
reprap-play.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
0a353b2f53070f387ee587d47ac5f1f95cf17ac9
[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 $!;