[Comm] PERL & IP

[Alexey Morsov]

On Fri, Oct 28, 2005 at 04:47:54PM +0400, Oleg Pan wrote:
 
> Есть такой кусочек:
> 
> @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);
а что у нас в $who то образуется тут?


-- 

С уважением,
Алексей Морсов
системный администратор ЗАО "ИК "Риком-Траст"

ICQ: 196-766-290
Jabber: samurai на www.fondmarket.ru
www.ricom.ru
www.fondmarket.ru

Jeff Beck - Nadia

<doc__> vsu: В открытых проектах документация обычно описывает ту
        версию, которую уже потерли с ftp за ненадобностью :)
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Тип     : application/pgp-signature
Размер  : 481 байтов
Описание: Digital signature
Url     : <http://lists.altlinux.org/pipermail/community/attachments/20051028/fd193f6f/attachment-0003.bin>