From 5fad774f93b66706058b06dda9eeca19d56e4f52 Mon Sep 17 00:00:00 2001
From: Jason Etheridge <jason@esilibrary.com>
Date: Tue, 29 Jul 2008 19:10:21 +0000
Subject: [PATCH] sample a line-oriented file

---
 spit_sample.pl |    9 +++++++++
 1 files changed, 9 insertions(+), 0 deletions(-)
 create mode 100755 spit_sample.pl

diff --git a/spit_sample.pl b/spit_sample.pl
new file mode 100755
index 0000000..69a72db
--- /dev/null
+++ b/spit_sample.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+my @lines = <>;
+
+foreach my $i ( 1..20 ) {
+    $length = scalar( @lines );
+    $idx = int rand ($length);
+    print $lines[$idx];
+    splice(@lines,$idx,1);
+}
-- 
1.7.2.5