"John W. Krahn" wrote:
>
> Jon Hans wrote:
> >
> > #ugly
> > if ( defined $frequency{$datalist[$first]} &&
> > defined $frequency{$datalist[$first+1]} &&
> > $frequency{$datalist[$first+2]} &&
> > $frequency{$datalist[$first+3]} &&
> > $frequency{$datalist[$first+4]} &&
> > $frequency{$datalist[$first+5]} &&
> > $frequency{$datalist[$first+6]} &&
> > $frequency{$datalist[$first+7]} &&
> > $frequency{$datalist[$first+8]} &&
> > $frequency{$datalist[$first+9]} ) {
>
> if ( (grep defined $frequency{ $_ }, @datalist[ $first .. $first + 9 ]) == 10 ) {
This can also be written as:
if ( (grep defined, @frequency{ @datalist[ $first .. $first + 9 ] }) == 10 ) {
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
