diff options
Diffstat (limited to 'random.pl')
| -rw-r--r-- | random.pl | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/random.pl b/random.pl deleted file mode 100644 index 90998d5..0000000 --- a/random.pl +++ /dev/null @@ -1,15 +0,0 @@ -#! /usr/bin/perl - -$count = 10; -$size = rand(1000); - -for ($i = 0; $i < $count; ++$i) { - open OUT, "> t$i" or die; - for ($j = 0; $j < $size; ++$j) { - printf OUT "%c", rand(256); - } - close OUT; - $cmd = "./rc t$i"; - print $cmd, "\n"; - system $cmd; -} |