Next Trivial Utilities 159

runN

        #!/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};


Next Menu Copyright © 2012 M. J. Dominus