сабж, прочитал про редиректор ,но чего-то не получается экспериментирую вот на этом примере:

#!/usr/bin/perl
   $|=1;
   while (<>) {
   s@.*\<script.*@<script language="JavaScript"><!-- window.close(); //--></script>@;

   print;}

может что не так с регулярным выраженем, я в них не силен  :(

• squid,  с баннерами все ясно ,а как быть с попапами? ,lionspb, 16:17 , 09-Сен-04

>сабж, прочитал про редиректор ,но чего-то не получается экспериментирую вот на этом
>примере:
>
>#!/usr/bin/perl
>   $|=1;
>   while (<>) {
>   s@.*\<script.*@<script language="JavaScript"><!-- window.close(); //--></script>@;
>
>   print;}
>
>может что не так с регулярным выраженем, я в них не силен
> :(

Видисо савсем никто незнает и попапы не режет :(