Pull records out of flat file and put resulting record in 'used' file

git-svn-id: file:///Users/dpage/pgweb/svn-repo/trunk@2613 8f5c7a92-453e-0410-a47f-ad33c8a6b003

diff --git a/portal/tools/pwn/2pick b/portal/tools/pwn/2pick
new file mode 100755 (executable)
index 0000000..ff8d8ef
--- /dev/null
+++ b/portal/tools/pwn/2pick
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Tie::File;
+
+die "Usage: $0 newfile usedfile" unless (-f $ARGV[0] && -f $ARGV[1]);
+tie my @new, "Tie::File", $ARGV[0], recsep => "\n\n";
+if (@new) {
+    my $rec= shift @new;
+    print "$rec\n\n";
+    tie my @old, "Tie::File", $ARGV[1], recsep => "\n\n";
+    push @old, $rec;
+    untie @old;
+}
+untie @new;