Mailing List Archive

Author: jm
Date: Wed Dec 13 05:51:14 2006
New Revision: 486651

URL: http://svn.apache.org/viewvc?view=rev&rev=486651
Log:
helper script to randomise lines in a log file for masses -- surprised I'd never committed this

Added:
spamassassin/trunk/masses/tenpass/randomise

Added: spamassassin/trunk/masses/tenpass/randomise
URL: http://svn.apache.org/viewvc/spamassassin/trunk/masses/tenpass/randomise?view=auto&rev=486651
==============================================================================
--- spamassassin/trunk/masses/tenpass/randomise (added)
+++ spamassassin/trunk/masses/tenpass/randomise Wed Dec 13 05:51:14 2006
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+
+srand ($$^time);
+
+@lines = ();
+while (<>) {
+ push (@lines, $_);
+}
+
+@lines = sort byrand @lines;
+@lines = sort byrand @lines;
+@lines = sort byrand @lines;
+print join ('', @lines);
+exit;
+
+sub byrand {
+ my $x = rand();
+ ($x < .3333) && return -1;
+ ($x < .6666) && return 0;
+ 1;
+}
+