From 3d10490aef1e8ab2e89a56aac2f966142c08d744 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Mon, 10 Nov 2008 19:01:03 +0000
Subject: [PATCH] removing filter1per.pl -- looks like an older version of the miker-filter scripts

---
 filter1per.pl |   56 --------------------------------------------------------
 1 files changed, 0 insertions(+), 56 deletions(-)
 delete mode 100755 filter1per.pl

diff --git a/filter1per.pl b/filter1per.pl
deleted file mode 100755
index ff2b20f..0000000
--- a/filter1per.pl
+++ /dev/null
@@ -1,56 +0,0 @@
-#!/usr/bin/perl
-
-use Time::HiRes qw/time/;
-use MARC::Record;
-use MARC::File::XML ( BinaryEncoding => 'utf-8' );
-
-my $tag = shift;
-my $subfield = shift;
-my $idfile = shift;
-my $marcfile = shift;
-my $found = shift;
-my $notfound = shift;
-if (! ($tag && $subfield && $idfile && $marcfile && $found ) ) {
-    print "filter1per.pl <tag> <subfield> <idfile> <marcfile> <output.found> [<output.notfound>]\n";
-    exit 0;
-}
-
-my %id;
-
-open F, "<$idfile";
-while (<F>) {
-	chomp;
-	$id{$_} = 1;
-}
-
-close F;
-
-my $M;
-open $M, '<:utf8', $marcfile;
-open $I, '>:utf8', $found;
-if ($notfound) { open $S, '>:utf8', $notfound; }
-
-my $starttime = time;
-my $count = 0;
-my $icount = 0;
-my $scount = 0;
-while (<$M>) {
-
-	/tag="$tag" ind1=" " ind2=" ">.*?<subfield code="$subfield">(\d+)</;
-	if ( $id{$1} ) {
-		print $I $_;
-		$icount++;
-	} else {
-        if ($notfound) {
-    		print $S $_;
-        }
-   		$scount++;
-	}
-	$count++;
-
-	unless ($count && $count % 100) {
-		print STDERR "\r$count\t(notfoundd: $scount, found: $icount)\t". $count / (time - $starttime);
-	}
-
-}
-print STDERR "\n";
-- 
1.7.2.5