summaryrefslogtreecommitdiff
path: root/generate_text.pl
blob: 845fb440327963ad0801df9dfbc3fd79ac8f8c05 (plain)
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";
}