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 $!;