Next Trivial Utilities 160

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};
          Undefined subroutine &main::shuffle called at /home/mjd/bin/runN line 8.


Next Menu Copyright © 2012 M. J. Dominus