You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
371 B
19 lines
371 B
4 months ago
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
|
||
|
|
sub grepa {
|
||
|
|
# Parms
|
||
|
|
# (\@boola, \@data)
|
||
|
|
# Returned value.
|
||
|
|
# Array of the @data array with a cooresponding value of @boola that is true.
|
||
|
|
my (@reta, $bool, $data, $index) ;
|
||
|
|
($bool, $data) = @_ ;
|
||
|
|
for ($index=0; $index<=$#$data ; $index++) {
|
||
|
|
push @reta, $$data[$index] if ($$bool[$index]) ;
|
||
|
|
}
|
||
|
|
return @reta ;
|
||
|
|
}
|
||
|
|
|
||
|
|
1 ; # Needed for a require file.
|
||
|
|
|