From: lace <> Date: Tue, 20 Jun 2006 19:37:19 +0000 (+0000) Subject: It really does not exist anywhere? X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=commitdiff_plain;h=2d1539d3a621c52ba2b1531718f62af2f5484b3d It really does not exist anywhere? --- diff --git a/bin/shuffle b/bin/shuffle new file mode 100755 index 0000000..0ff2cad --- /dev/null +++ b/bin/shuffle @@ -0,0 +1,7 @@ +#! /usr/bin/perl +# $Id$ + +use strict; +use warnings; + +print splice(@ARGV,int(rand(@ARGV)),1)."\n" while @ARGV;