From 135b557f6d14c3ce4d60419602d8ca92316f9a71 Mon Sep 17 00:00:00 2001
From: Tobias Klauser <tklauser@xenon.localdomain>
Date: Mon, 13 Mar 2006 18:16:41 +0100
Subject: Initial import

---
 generate_text.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 generate_text.pl

(limited to 'generate_text.pl')

diff --git a/generate_text.pl b/generate_text.pl
new file mode 100755
index 0000000..845fb44
--- /dev/null
+++ b/generate_text.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+$lines = $ARGV[0];
+$chars = $ARGV[1];
+
+die unless $lines;
+die unless $chars;
+
+while ($lines--) {
+	print int(rand(9)) x $chars;
+	print "\n";
+}
-- 
cgit v1.2.3-54-g00ecf