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};

• Actually I learned two things:

• shuffle isn't actually implemented:

          Undefined subroutine &main::shuffle called at /home/mjd/bin/runN line 8.

• Lesson learned:

• When you're tempted to put in another feature, sublimate the urge

• Put in a stub instead, implement it later if you really need it

• 18 months later, -r is still unimplemented

Next

Menu

Copyright © 2005 M. J. Dominus