From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <wacom@narod.ru>
Date: Fri, 28 Oct 2005 16:47:54 +0400
From: Oleg Pan <wacom@narod.ru>
X-Mailer: The Bat! (v2.12.00) Business
X-Priority: 3 (Normal)
Message-ID: <1978726466.20051028164754@narod.ru>
To: ALT Linux Community <community@lists.altlinux.org>
MIME-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit
Subject: [Comm] PERL & IP
X-BeenThere: community@lists.altlinux.org
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: Oleg Pan <wacom@narod.ru>,
	ALT Linux Community <community@lists.altlinux.org>
List-Id: ALT Linux Community <community.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/listinfo/community>,
	<mailto:community-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/community>
List-Post: <mailto:community@lists.altlinux.org>
List-Help: <mailto:community-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/community>,
	<mailto:community-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Fri, 28 Oct 2005 12:48:07 -0000
Archived-At: <http://lore.altlinux.org/community/1978726466.20051028164754@narod.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

Hello ALT,

  вопрос знатокам перл:


Есть такой кусочек:

@denied = (
#'10\.1\.1\.111',
#'10\.1\.1\.20',
#'10\.1\.1\.21',
#'10\.1\.1\.22'
);

while (<>) {
    ($url, $who, $ident, $method) = /^(\S+) (\S+) (\S+) (\S+)$/ ;

    $url = 'http://adress/deny.html' if grep ($who=~/$_/i, @denied);

    print "$url $who $ident $method\n" ;
};



как надо поправить выражение чтобы при $who='10.1.1.205' не получать строку
'http://adress/deny.html'




  

-- 
Best regards,
 Oleg                          mailto:wacom@narod.ru