X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=knifeblock-knives-filter;fp=knifeblock-knives-filter;h=0a353b2f53070f387ee587d47ac5f1f95cf17ac9;hb=779a304ce2ba43b18d2467807c4325b52ab4aa90;hp=0000000000000000000000000000000000000000;hpb=6009e25ae7a912e90fb41fe98dc40e7a81f5ce5d;p=reprap-play.git

diff --git a/knifeblock-knives-filter b/knifeblock-knives-filter
new file mode 100755
index 0000000..0a353b2
--- /dev/null
+++ b/knifeblock-knives-filter
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -wn
+
+use strict;
+
+our $want;
+
+BEGIN {
+      $want = shift @ARGV;
+      die unless $want =~ m/^\d+$/;
+}
+
+our $drop;
+
+if (m/^\S/) {
+    $drop = 
+	m/^2 / ||
+	m/^3 \d+ \d+ \d+ (?!$want )\d+ /;
+}
+
+next if $drop;
+
+print or die $!;