[Comm] PERL & IP

[Comm] PERL & IP

[Oleg Pan]

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

Re: [Comm] PERL & IP

[Alexey Morsov]

[-- Attachment #1: Type: text/plain, Size: 723 bytes --]

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 за ненадобностью :)

[-- Attachment #2: Digital signature --]
[-- Type: application/pgp-signature, Size: 481 bytes --]

Re: [Comm] PERL & IP

[Vladimir Lettiev]

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

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

--
Vladimir Lettiev aka crux <theCrux@gmail.com>

Re: [Comm] PERL & IP

[Alexey Morsov]

[-- Attachment #1: Type: text/plain, Size: 649 bytes --]

On Fri, Oct 28, 2005 at 07:13:32PM +0400, Vladimir Lettiev wrote:
> - $url = 'http://adress/deny.html' if grep ($who=~/$_/i, @denied);
> + $url = 'http://address/deny.html' if grep ($who eq $_, @denied);
Неа - эт не прокатит :) Потому как $_ имеет вид 
'http://somw.domain.ru 10.1.1.201 user GET' :)



-- 
С уважением,
Алексей Морсов
Системный администратор ЗАО "ИК "РИКОМ-ТРАСТ"
ICQ#: 196-766-290
JID:  Samurai@www.fondmarket.ru

NP: music over

Вы имеете в виду XSL packaging policy ? Насколько я знаю - нет.
У меня в ближайшее время руки точно не дойдут. И потом ещё не
дойдут до определённого момента :)
		-- vyt in devel@

[-- Attachment #2: Digital signature --]
[-- Type: application/pgp-signature, Size: 481 bytes --]

Re: [Comm] PERL & IP

[Vladimir Lettiev]

29.10.05, Alexey Morsov<samurai@ricom.ru> написал(а):
> On Fri, Oct 28, 2005 at 07:13:32PM +0400, Vladimir Lettiev wrote:
> > - $url = 'http://adress/deny.html' if grep ($who=~/$_/i, @denied);
> > + $url = 'http://address/deny.html' if grep ($who eq $_, @denied);
> Неа - эт не прокатит :) Потому как $_ имеет вид
> 'http://somw.domain.ru 10.1.1.201 user GET' :)

В контексте grep, $_ будет принимать значения из массива @denied

--
Vladimir Lettiev aka crux <theCrux@gmail.com>