On 2011-03-02 19:22, Christian Marquardt wrote:
open CFG, '<', $_file || die("could not open file: $_file!");
That only dies if $_file is false.
Funny that you did use parentheses with die.
Some '$' characters were missing too:
open my $CFG, '<', $_file
or die "Error opening '$_file'
The easiest way in my opinion is to use the 'grep' function like this:
my $searchstring="whatever";
open CFG, '<', $_file || die("could not open file: $_file!");
my @data=;
close CFG;
if ( grep /$searchstring/i, @data ) {
print "$searchstring found\n";
}
If you negate the grep like this:
@data
