simple_whois типа, не для слабонервных =)

Sergey M. 19.03.2004 14:47

ещё один пример из моей знаменитой книги "1001 извращение на Парсере" :)

@whois[query][resp]
$resp[^file::load[text;http://www.ripe.net/perl/whois?searchtext=$query]]
$resp[^resp.match[<pre>(.+?)</pre>][ig]]
$result[^resp.menu{<pre>^resp.1.match[</? \w+\s? .*? /? >][igx]{}</pre>}]

вызываем примерно так:

^whois[parser.ru]

---