Searching keys

>
> Hi there,
>
> I loaded a bunch of configuration lines into a hash called $Input
> now I am searching the hash to make sure specific lines are there.
>
> I want to print "NO" unless there is a match to the following ""check $ip
> here";
>
> but $ip could be the range as shown below.
>
> so a key like "check 2.2.2.2 here" would be accepted and NO would *not* be
> printed and if the hash has a key with "check 2 here" then a NO *would* be
> printed.
>
> my $ip = "[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+";
> print CHANGE "NO\n" unless exists $Input{"check $ip here"};
>
>
> Cheers,
>
> Noah

> Untested code.
>
> # Always...
> use strict;
> use warnings;
>
> my %ip = ...;
>
> #Get the lines as an array.
> my @lines = keys %ip;
>
> # Slight modification to the regex. Someone else's reply will probably
> have a more elegant method.
> my $ipSearch = qr/[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}/;
>
> # Use variables for filehandles.
> open my $CHANGE, "> $changeFile" or die;
> print CHANGE "NO\n" unless ( grep ( $ipSearch, @lines ) );
>

>
> Untested code.
>
> # Always...
> use strict;
> use warnings;
>
> my %ip = ...;
>
> #Get the lines as an array.
> my @lines = keys %ip;
>
> # Slight modification to the regex. Someone else's reply will probably
> have a more elegant method.
> my $ipSearch = qr/[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}/;
>
> # Use variables for filehandles.
> open my $CHANGE, "> $changeFile" or die;
> print CHANGE "NO\n" unless ( grep ( $ipSearch, @lines ) );
>