On 02/03/2011 17:55, Matt wrote:
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?
Hey Matt
If your file is small then this subroutine will do what you need.
sub file_contains {
my $file, $string = @_;
open $file, '<', $file or die $!;
my %names = map { chomp; ($_ => 1) } <DATA>;
return $names{$string};
}
HTH,
Rob
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
