From 3c26aae11e1f8e8afc788eb8694cac152db7f4fc Mon Sep 17 00:00:00 2001 From: Toby Goodwin Date: Sat, 16 May 2015 11:31:54 +0100 Subject: remove some old / odd files --- random.pl | 15 --------------- 1 file changed, 15 deletions(-) delete mode 100644 random.pl (limited to 'random.pl') 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; -} -- cgit v1.2.3