Не понимаю, почему никто не провел каких-то тестов - этот перловый скрипт работает неправильно. Во-первых фраза полного блокирования сайта, которая в оригинале (у АдБлока) выглядит так:
||wmzona.com^
конвертируется в такое
++++++ wmzona.com^*
и ничего не блокирует. А блокируется оно если написать
AD *wmzona.com*
И вообще, насколько я понимаю, эти +++ это нечто образное, действительно все блокируется, если в файле adblock2bfilter.pl в самом начале вместо:my $BLOCK_PREFIX_STRONG = "++++++";
написать
my $BLOCK_PREFIX_STRONG = "AD";
попробуйте, и вы увидите разницу. А кроме того, во многих оригинальных списках строки выглядят так:
http://marketgid.com или даже так http://www.net.ru
что конвернтируется скриптом в
++++++ *http://marketgid.com* и ++++++ *http://www.net.ru*
но это же бред в 95%случаев! Зачем писать *http:// или даже *http://www. ? Что может стоять перед http:// (кроме тех 5% когда это передаваемый параметр)? Ничего. Тогда зачем там звезда? Чтобы убить побольше процессорного времени в поисках соответствий? Это все должно конвертироваться в:
++++++ *marketgid.com* и ++++++ *net.ru*
а еще лучше
AD *marketgid.com* и AD *net.ru*
или я не очень понимаю эти списки. Кроме того вызывают подозрения адреса типа
*.xbn.ru
т.е. все поддомены xbn.ru блокировать, сам домен не трогать - это нужно проверять, я не трогал, но на глаз это вызывает сомнения.
Вобщем чтобы реализовать то что я написал, нужно добавить пару строк в этот adblock2bfilter.pl, т.е.
было (строка примерно 70):
# Used to construct the output line.
my $prefix;
my $pattern;
# We process regex patterns differently from others.
стало:
# Used to construct the output line.
my $prefix;
my $pattern;
$line =~ s/\^$/\*/;
$line =~ s/^\|\|/\*/;
$line =~ s/^[\/\|]?([htps]{4,5}:\/\/www\.)|([htps]{4,5}:\/\/)([^\*])/\*$3/i;
# We process regex patterns differently from others.
Ну вот теперь оно наконец-то действительно режет рекламу.
Вариант для распечатки
Разговоры, обсуждение новостей (Public)
on 22-Мрт-09, 22:04 
