|
ru.unix.bsd- RU.UNIX.BSD ------------------------------------------------------------------ From : Alexander Lunyov 2:50/551.3 25 Apr 2003 12:36:36 To : vasiliy Subject : Redirect -------------------------------------------------------------------------------- * hi ** vasiliy => All > У меня firewall+NAT+SQUID > Прицепил скрипт редиректа к squd-у > Пример тестовый на один УРЛ > ------------------------------------------------- > #!/usr/bin/perl5 -w ^^^^^^^^^^^^^^ У тебя система какая? > $|=1; > while (<>) > { > s@http://www.mail.ru@http://info.alkar.net@; > print; > } > ------------------------------------------------- Попробуй такой цикл while (<>) { ($url, $who, $ident, $method) = /^(\S+) (\S+) (\S+) (\S+)$/ ; $url = "http://info.alkar.net" if $url =~ m%mail\.ru% ; print "$url $who $ident $method\n" ; } Это взято из моей старой баннерорезки, цикл и сам скрипт там больше, но принцип такой. * bye --- * Origin: no sex until marriage! (c) Front242 (2:50/551.3) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.unix.bsd/22493ea9034b.html, оценка из 5, голосов 10
|