diff options
author | Tobias Klauser <tklauser@xenon.localdomain> | 2006-03-13 18:16:41 +0100 |
---|---|---|
committer | Tobias Klauser <tklauser@xenon.localdomain> | 2006-03-13 18:16:41 +0100 |
commit | 135b557f6d14c3ce4d60419602d8ca92316f9a71 (patch) | |
tree | cfde71b422209b1faf48bd95b544d36700d4e635 /generate_text.pl |
Initial import
Diffstat (limited to 'generate_text.pl')
-rwxr-xr-x | generate_text.pl | 12 |
1 files changed, 12 insertions, 0 deletions
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"; +} |