- or download this
my %lookfor: shared; @lookfor{ @ARGV } = ();
- or download this
$line =~ $_ and $lookfor->{ $_ } = $line for keys %{ $lookfor };
- or download this
last if keys %$lookfor == grep defined, values %$lookfor;
- or download this
my @dones : shared = ( 0 ) x @cmds;
- or download this
\$dones[ $_ ],
- or download this
$$doneRef = 1;
- or download this
sleep 1 while grep( $_, @dones ) < @cmds;
- or download this
## Set the quitNow if the value indicates this
$$quitNow = ( $lookfor->{ $_ } eq '1' );
- or download this
#! perl -slw
use strict;
...
412014 : was not found.
junk\.htm$ : was not found.
copyrght : was found at ' R R:\cookbook\copyrght.
+htm'