[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