generate_text.pl


1
2
3
4
5
6
7
8
9
10
11
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";
}