VPF::Mysql и проблем при выполнение скрипта в FreeBSD

tcg2

Дата 27.6.2007, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 125
Регистрация: 26.9.2006

Репутация: нет
Всего: нет

Помогите пож. разобратся с данного скрипта:

#!/usr/local/bin/perl -w
use Mysql;
$dbh = Mysql->connect(undef, "TREN", "tran", "trenpass");
$queryh = $dbh->query("SELECT Name FROM Users WHERE ID='1'");

При выполнение пишет вот такое:

Name "main::queryh" used only once: possible typo at ./simple line 6.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.8/mach/Mysq.pm line 70.

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

nitr

Дата 27.6.2007, 23:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: нет
Всего: 84

tcg2, вам не с MySQL разбираться, а с перл - так что как перенесут топик на форум Perl, тогда и помогут...

;)

да и лучше использовать DBI... читайте доку по нему...

Код


...
use DBI; 
...
my $dbh = DBI->connect("DBI:mysql:database=DATABASE_NAME;host=localhost;port=3306", "USER", "PASS") or die "$DBI::errstr \n"; 
my $result = $dbh->selectrow_arrayref("SELECT `Name` FROM `Users` WHERE ID=1");
print $result->[0] if $result;

писал прям в форум, но думаю работает, что-то в этом духе...
По вашему модулу (т.е. что вы используете) надо почитать доку perldoc Mysql, там всё написано. Если ошибка будет снова (когда исправите по примерам из документации), то стоит подумать о переустановке ;)

Код


#!/usr/bin/perl -w
use Mysql;

my $dbh = Mysql->connect(undef, 'DATABASE', 'USER', 'PASS');
my $sth = $dbh->query("SELECT `Name` FROM `Users` WHERE ID=1");
print join("\t", $sth->fetchrow) if $sth;

;)

Это сообщение отредактировал(а) nitr - 28.6.2007, 00:04

--------------------

I love ArchLinux

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MySQL \| Следующая тема »