Общие > Базы данных

Mass change in the mySQL base

<< < (2/4) > >>

Creator:
А нифига. Скрипт не отработал. Сказал, что Internal Server Error 500... Что это может быть?

Вот полный скрипт:

#!/usr/bin/perl

$sqlbase = "base_name";
$sqluser = "base_user";
$sqlpass = "base_passwd";
$table = "base_table";

use MySQL;
$db = Mysql->connect(\'localhost\', $sqlbase, $sqluser, $sqlpass);
$get = $db->query("SELECT post_id,topic_id,forum_id,post FROM $table LIMIT 0,5");
while (($post_id,$topic_id,$forum_id,$post) = $get->fetchrow) {
$post =~ s|creator\\.kiev\\.ua/iB_html|unlimit\\.kiev\\.ua/ib|ig;
$post =~ s|enola\\.kiev\\.ua/iB_html|unlimit\\.kiev\\.ua/ib|ig;
$db->query("UPDATE $table SET post=$post WHERE post_id=$post_id AND topic_id=$topic_id AND forum_id=$forum_id");
}
exit;

NeoNox:

--- Цитировать ---Сказал, что Internal Server Error 500... Что это может быть?
--- Конец цитаты ---

Это он сказал, что было бы неплохо логи почитать :)
Поставь после use MySQL;
use CGI::Carp qw(fatalsToBrowser);

ЗЫ. Кстати, а чем DBI так не нравится?

Kostya:

--- Цитировать ---Internal Server Error 500
--- Конец цитаты ---

1)в самом начале вставь
print "Content-type: text/html\\n\\n";
2) Возможно скрипт уже и отработал, а ошибка 500 только из-за отсутствия заголовков

Creator:
скоростью работы...
при большом количестве записей скорость работы сиквела несколько высше чем с дби.

Creator:
кстати, если скрипт работал с начала, с первой записи, где встречалось искомое вхождение, то он все же не отработал!

Навигация

[0] Главная страница сообщений

[#] Следующая страница

[*] Предыдущая страница