| Next | Trivial Utilities | 159 | 
        #!/usr/bin/perl
        use Getopt::Std;
        my %opt = (n => 1);
        getopts('r:n:v', \%opt) or usage();
        my @cmd = split /\s+/, shift;
        @ARGV = shuffle(@ARGV) if $opt{r};
Wow! I learned something since 2005.
| Next | Menu | ![]()  | 
    Copyright © 2012 M. J. Dominus |