On Sep 26, Jerry Preston said:
>I guess it an old 'c' habit. I do this to check each line for the item I am
>looking for.
>
>I there a better way and why?
my $found = 0; # have we found 'jeff'?
while (<FILE>) { # reads ONE LINE at a time, and stores it in $_
if (/jeff/) { # if the line has 'jeff' in it
$found = 1; # set $found to true
last; # and stop processing the file
}
}
is more likely to be more efficient than
my $found = grep /jeff/, <FILE>;
or
my @lines = <FILE>;
my $found = grep /jeff/, @lines;
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
** Look for "Regular Expressions in Perl" published by Manning, in 2002 **
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
