> 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=<CFG>;
> close CFG;
> if ( grep /$searchstring/i, @data ) {
> print "$searchstring found\n";
> }
>
This sorta worked. Needed a minor change.
> unless ( grep /$searchstring/i, @data ) {
> print "$searchstring not found\n";
Thanks.
> If you negate the grep like this:
>
> @data = grep !/$searchstring/i, @data;
>
> ... you can remove the searchstring from your array (file-text).
>
>
> I am looking for a simple way to test if a file does not contain a
> string. This is on a linux box.
>
> if myfile does not contain mystring {
> #do_something;
> }
>
> The file is basically a list of names and I want to test that a
> certain name is not in there. Is there an easy way to do that?
>
> --
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
