Re: searching keys
- From: yitzle@xxxxxxxxxxxxxxxxxxxxx (Yitzle)
- Date: Thu, 24 Jul 2008 04:07:16 +0000
On Thu, Jul 24, 2008 at 3:59 AM, Noah <admin2@xxxxxxxxxxx> wrote:
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 ) );
.
- Follow-Ups:
- Re: searching keys
- From: Noah
- Re: searching keys
- From: Noah
- Re: searching keys
- From: Noah
- Re: searching keys
- References:
- searching keys
- From: Noah
- searching keys
- Prev by Date: searching keys
- Next by Date: Re: searching keys
- Previous by thread: searching keys
- Next by thread: Re: searching keys
- Index(es):
Relevant Pages
|