git://git.jankratochvil.net / nethome.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
+sync
[nethome.git] / bin / shuffle
1 #! /usr/bin/perl
2 # $Id$
3
4 use strict;
5 use warnings;
6
7 print splice(@ARGV,int(rand(@ARGV)),1)."\n" while @ARGV;
Unnamed repository; edit this file 'description' to name the repository.