Next | Welcome to my ~/bin | 146 |
#!/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 © 2005 M. J. Dominus |