Next Trivial Utilities 75

pgrep

        use Getopt::Std;
        my $opts = 'ulhIive:F:q';
        getopts($opts) or usage();
        my $pat = defined($opt_e) ? $opt_e : @ARGV ? shift : usage();
        my $qr = $opt_i ? qr/$pat/i : qr/$pat/;
        $| = 1 if $opt_u;


Next Menu Copyright © 2012 M. J. Dominus