Что может помочь мне в даннм случае?

[VanDama]

Ситуация такая.
Заказал сделать сайт. Мне его сделали. Используется activeperl,mySQL,FastCGI.

У разработчика всё на его хостинге (valuehost) прекрасно работает. Я закачал результаты работы себе на локальный вин2к, что надо поставил, тоже работает. За работу расплатился по полной.

Но на том хостере, где я хостюсь - этот сайт не работает.

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

Чем я прошу помочь?
Никто не подскажет что должно быть у разработчика, утилиты там, программы, которые помогут ему выяснить в чём проблема?

Может кто подскажет какие версии Perl и прочего софта работают на valuehost, можно ли откуда их скачать?


Спасибо!

[NeoNox]

Хмм..
1. Версия Perl
2. Установленные модули.
3. Спецефические установки сервера.

На все эти вопросы ответят логи сервера.

[Kwazar]

Надо копаться. Либо разработчику, либо вам. Хостер ни при чем.
Советую начать с языка, далее посмотрите установленные нв валуе модули. У них они постоянно глючат. были ситуации, что я звонил в тех. поддержку, ругаясь на модуль, мне в ответ отвечали что его вообще нету, хотя он работал, правда криво.
Ну и естественно какой хочтинг - винда или *никс.

[VanDama]

Да на валуе как раз работает
А у моего хостера (linux) сайт не работает...

В логах вот такую ошибку кажет

[Thu Apr 10 04:06:34 2003] [error] [client 213.135.112.162] Unmatched [ in regex; marked by <-- HERE in m/\\*(>|]|<|[ <-- HERE |enter|
[Thu Apr 10 04:06:34 2003] [error] [client 213.135.112.162] )\\*/ at _parser.pl line 360.

и ругается, как думает разработчик, вот на эту строку

$params[1] = substr ((split /$params[0]\\s*\\[/)[1], 0, -1);

но говорит, что в строке ничего ошибочного нет, а возможно, что perl кривой стоит... такое может быть?

Спасибо за отклики!

[scalar]

Не факт что там ругаются именно на эту строку!
Попробуйте заменит её на похожую по действию конструкцию
$_=~m/$params[0]\\s*\\[(.+)\\]/;
$params[1] = $1;

Убедится что они похожи можно выполнив
$params[0]=\'test\';
$_=\'test [testvalue]\';
m/$params[0]\\s*\\[(.+)\\]/;
$params[1] = $1;
print "1   $params[1]\\n";
$params[1] = substr ((split /$params[0]\\s*\\[/)[1], 0, -1);
print "2   $params[1]\\n";

ЗЫ А можно ещё строчек несколько вверх от это строки

[Mog.]

или заменить её на
@special_params=split /$params[0]\\s*\\[/, $_;
$params[1] = substr ($special_params[1], 0, -1);
и посмотреть, на какую будет ругаться (а может и не будет )

[КшЫуфксрук]

Скопируй сюда 3-4 строки до 360 (с номерами желательно). Иначе можно только гадать.

[VanDama]

Да... спасибо. Действительно, надо весь блок.

итак, в логах следующее...
[Thu Apr 10 04:06:34 2003] [error] [client 213.135.112.162] Unmatched [ in regex; marked by <-- HERE in m/\\*(>|]|<|[ <-- HERE |enter|
[Thu Apr 10 04:06:34 2003] [error] [client 213.135.112.162] )\\*/ at _parser.pl line 360.


а вот листинг

 358       { $params[1] = substr ((split /$params[0]\\s*/)[1], 0, -1);
 359       push @dsgn_load_log, sprintf ("%04d ", $dsgn_line) . "#ptrn $params[0] (inline)";
 360        $params[1] =~ s/\\*($replace_mask)\\*/$replace_sym{$1}/ig;
 361       $d_pointer -> {$params[0]} = $params[1];
 362      }


Честно говоря, я не понял, почему разработчик сказал, что ругается именно на строку   $params[1] = substr ((split /$params[0]\\s*/)[1], 0, -1);

И главное, у его хостера это работает

Большое спасибо за помощь!!!

[КшЫуфксрук]

Что находится в $replace_mask?

[VanDama]

Что находится в $replace_mask?

%replace_sym      = ("enter" => "\\n",
           "<"     => "[",
           ">"     => "]");
$replace_mask     = join "|", %replace_sym;


Спасибо за помощь всем, кто откликнулся!

Вообще то проблема решилась. Разработчик поправил что-то... а мне объяснил вот так

аа... не знаю... глюки перла... у меня было написано "[" а надо было "\\\\\\["
чет какие-то гоны с регулярными выражениями... по идее такого быть не должно.... в общем то мой перл нормально ситуацию разруливал, а тот что у твоего хостера считал это ошибкой....

Ещё раз всем спасибо!

[КшЫуфксрук]

> по идее такого быть не должно

А он в курсе, что "[" и "]" являются особыми символами в регулярных выражениях и их нужно экранировать? Если нет, то что еще он не знает? Это же основы. То, что его Перл не выдал ошибку, это просто случайность, но работать правильно скрипт при этом не мог.

[NeoNox]

VanDama:
аа... не знаю... глюки перла

глюк находится между клавиатурой и стулом...

[VanDama]

Спасибо ещё раз, я обязательно передам, наверняка разработчику будет полезно!

[Mog.]

КшЫуфксрук:
Что находится в $replace_mask?

А по большому счету не все ли равно, что там? Или если $replase_mask="[" то s/$somebody/$replase_mask/ будет сбоить?

[NeoNox]

Mog.
В логах зеленым по черному написано:

[Thu Apr 10 04:06:34 2003] [error] [client 213.135.112.162] Unmatched [ in regex; marked by <-- HERE in m/\\*(>|]|<|[ <-- HERE |enter|
[Thu Apr 10 04:06:34 2003] [error] [client 213.135.112.162] )\\*/ at _parser.pl line 360.

Ответил?