Помогите пожалуйста с регулярным выражением

[XXL]

Ситуация вот какая... На локальном трекере, ну который у нас в локальной сети находится, админ решил денешек срубить, поставил рекламу в обмен за гигабайты аплоада... Вот код

Код:

function PopShow()
{
CookieTest=navigator.cookieEnabled;
if(CookieTest)
{
ClickUndercookie = GetCookie('clickunder');
if (ClickUndercookie == null)
{
var ExpDate = new Date ();
ExpDate.setTime(ExpDate.getTime() + (24 * 60 * 60 * 1000));
SetCookie('clickunder','1',ExpDate, "/");
window.open("http://10.178.14.15/js/click.php?hash=46f6d&id=3&t=newtime","PopWin","resizable=1,toolbar=1,location=1,menubar=1,status=1,scrollbars=1'");
window.focus();
}
}
}
function GetCookie (name) {
var arg = name + "=";
var alen = arg.length;
var clen = document.cookie.length;
var i = 0;
while (i < clen) {
var j = i + alen;
if (document.cookie.substring(i, j) == arg)
return getCookieVal (j);
i = document.cookie.indexOf(" ", i) + 1;
if (i == 0) break;
}
return null;
}
function SetCookie (name, value) {
var argv = SetCookie.arguments;
var argc = SetCookie.arguments.length;
var expires = (argc > 2) ? argv[2] : null;
var path = (argc > 3) ? argv[3] : null;
var domain = (argc > 4) ? argv[4] : null;
var secure = (argc > 5) ? argv[5] : false;
document.cookie = name + "=" + escape (value) +
((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
((path == null) ? "" : ("; path=" + path)) +
((domain == null) ? "" : ("; domain=" + domain)) +
((secure == true) ? "; secure" : "");
}
document.onmouseup=PopShow;

Прошу помочь составить регулярку для отлова строки httр://10.178.14.15/click.php?hash=46f6d&id=3&t=newtime, а то совсем прямо я измучился, смотрел примеры в сети, но ничего не выходит... Заранее огромное и человеческое спасибо за любую помощь!

[RXL]

Зачем вообще тут регулярное выражение, если ищется константная строка?

Совершенно не понятно, чем собираешься искать и где. Т.ч. не вижу связи с Perl и перенес сюда.

[XXL]

А регулярное выражение затем, чтобы эту строку из мусора кода захватить, вон я смотрел в других темах, там похоже...


Я имею ввиду, что строка не совсем константная, она меняется, меняется значение хеша в строке и т.п.

[RXL]

Вот тебе пример: "aaaaa bbbb ccccc". Разве для того, чтобы проверить, есть ли подстрока "bbbb", нужено регулярное выражение? Простой поиск и не более.

[XXL]

Вот тебе пример: "aaaaa bbbb ccccc". Разве для того, чтобы проверить, есть ли подстрока "bbbb", нужено регулярное выражение? Простой поиск и не более.

А кодом нельзя помочь? Будьте так любезны, а то я что то не совсем соображаю, как все это выглядеть должно...

[RXL]

XXL, каким кодом? Ты ж ничего не говоришь...

[XXL]

Простите недоумка...

Код:

#!/usr/bin/perl

use strict;
use warnings;

my $t_string = "
function PopShow()
{
CookieTest=navigator.cookieEnabled;
if(CookieTest)
{
ClickUndercookie = GetCookie('clickunder');
if (ClickUndercookie == null)
{
var ExpDate = new Date ();
ExpDate.setTime(ExpDate.getTime() + (24 * 60 * 60 * 1000));
SetCookie('clickunder','1',ExpDate, "/");
window.open("http://10.178.14.15/js/click.php?hash=46f6d&id=3&t=newtime","PopWin","resizable=1,toolbar=1,location=1,menubar=1,status=1,scrollbars=1'");
window.focus();
}
}
}
function GetCookie (name) {
var arg = name + "=";
var alen = arg.length;
var clen = document.cookie.length;
var i = 0;
while (i < clen) {
var j = i + alen;
if (document.cookie.substring(i, j) == arg)
return getCookieVal (j);
i = document.cookie.indexOf(" ", i) + 1;
if (i == 0) break;
}
return null;
}
function SetCookie (name, value) {
var argv = SetCookie.arguments;
var argc = SetCookie.arguments.length;
var expires = (argc > 2) ? argv[2] : null;
var path = (argc > 3) ? argv[3] : null;
var domain = (argc > 4) ? argv[4] : null;
var secure = (argc > 5) ? argv[5] : false;
document.cookie = name + "=" + escape (value) +
((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
((path == null) ? "" : ("; path=" + path)) +
((domain == null) ? "" : ("; domain=" + domain)) +
((secure == true) ? "; secure" : "");
}
document.onmouseup=PopShow;";

if ($t_string =~ m/\d+\.\d+/)
{
  print "Yes: $&\n";
}
else
{
  print "No.\n";
}

Вот как-то так планировал, шаблоном задать поиск строки http://10.178.14.15/js/click.php?hash=46f6d&id=3&t=newtime, а в качесвте константы использовать window.open

[RXL]

Эх-хе-хех...

Ну, хорошо, я понял, что ты хочешь получить код на Perl. Свой код можешь сразу стереть - смысла в нем нет, а ошибок синтаксиса - гора.


Давай пока разберемся, что надо найти.

шаблоном задать поиск строки http://10.178.14.15/js/click.php?hash=46f6d&id=3&t=newtime

Тебе нужно найти именно эту строку или в ней есть переменные части? Какие части тут переменные? Опиши их подробнее.

[XXL]

Ну да, именно эту строку... А переменная в ней только одна, хеш какой то, т.е., в строке http://10.178.14.15/js/click.php?hash=46f6d&id=3&t=newtime будет меняться только этот параметр ?hash=....

[RXL]

Хеш из каких символов может состоять? На примере похоже на шестнадцатеричные цифры, но стоит уточнить.

[XXL]

6c6c3f3328af8e769d37eecb681d8ec8
330d6f407ddd2b4890f9b1a5447c375f
99ce259016f2875341409c1f016e7740
ce78da7bb0887a08d24fba71c578b696

Вот какого вида может быть хэш...

[RXL]

Гуд.

Код:

my $fd;

open $fd, '<links.txt' or die;

while (<$fd>)
{
    next unless m%(http://10\.178\.14\.15/js/click\.php\?hash=[[:xdigit:]]{32}&id=3&t=newtime)%;

    print "$1\n";
}

close $fd;

[XXL]

Спасибо, сейчас затестим...

Добавлено через 9 минут и 4 секунды:
  Спасибо большое, все работает...