Выборка из БД MySQL

@Dimedrol · Регистрация: 25.04.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте ув. форумчане.
Только сегодня начал учить перл и сразу возник вопрос. Хочу вывести данные из мускула:

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
print "Content-type: text/html; charset=utf-8\n\n";
use DBI;
#start
$header = '<html><head><title>Димедрол</title></head><body>';
print $header;
my $dsn = 'DBI:mysql:project_01:localhost';
my $db_user_name = 'root';
my $db_password = 123;
my ($id, $password);
my $dbh = DBI->connect($dsn, $db_user_name, $db_password);
my $sth = $dbh->prepare(qq{'SELECT login,password,email FROM `users` LIMIT 2'});
$sth->finish();
while (my ($bd_user, $bd_password, $bd_emailr) = sth->fetchrow_array())
{
     print "$bd_user, $bd_password, $bd_email \n";
}
print '</body></html>';

Проблема в том, что выводит чистый лист!
И еще вопросик по теме:
1. Есть ли альтернатива на perl

PHP
1
error_reporting(E_ALL);

2. Альтернатива на перл

PHP
1
or die(mysql_error());

Добавлено через 16 минут

1. Есть ли альтернатива на perl

PHP
1
error_reporting(E_ALL);

Вроде, нашел.

Perl
1
use CGI::Carp qw(fatalsToBrowser);

Vovan-VE · 21.08.2010, 19:05

Сообщение от Dimedrol

PHP
1
error_reporting(E_ALL);

Параметр -w в #! Если usage изучить, может еще что похожее найдется.

PHP
1
#!/usr/bin/perl -w

Сообщение от Dimedrol

PHP
1
or die(mysql_error());

Идентично or die()

@Dimedrol · 21.08.2010, 19:25 **[ТС]**

Все получилось:

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use DBI; #для mysql
print "Content-type: text/html; charset=utf-8\n\n";
print <<HE;
<html>
<head>
<title>Димедрол</title>
<style>
label {
display:block;
}
</style>
</head>
<body>
HE
#start
my $ds = 'DBI:mysql:project_01:localhost';
my $mysql_user = 'root';
my $mysql_pass = 123;
my $db = DBI->connect($ds, $mysql_user, $mysql_pass) or die("Ошибка: $DBI::errstr");
#~~~~~~~~~~~~~
$db->do("SET NAMES utf8");
my $res = $db->prepare("SELECT * FROM `users`");
$res->execute();
if($res->err){
print $res->errstr;
} else {
my $registreted = $res->rows(),;
print 'Всего зарегистрировано: <strong>',$registreted, '</strong><br><br>';
if($registreted > 0){
print <<HEE;
<table border=1 align=center>
<tr>
<td>ID</td>
<td>login</td>
<td>email</td>
<td>registration</td>
<td>questions</td>
<td>answers</td>
<td>type</td>
</tr>
HEE
while(my @row = $res->fetchrow_array()){
print <<HEE;
<tr>
<td>$row[0]</td>
<td>$row[1]</td>
<td>$row[3]</td>
<td>$row[4]</td>
<td>$row[6]</td>
<td>$row[7]</td>
<td>$row[8]</td>
</tr>
HEE
}
print "</table>";
}
}
$res->finish();
#~~~~~~~~~~~~~
$db->disconnect();
#end
print <<GE;
</body>
</html>
GE

Сообщение от Vovan-VE

Идентично or die()

Я имел ввиду mysql_error()...И нашел:
$res->errstr;

Сообщение от Vovan-VE

Параметр -w в #! Если usage изучить, может еще что похожее найдется.

А use CGI::Carp qw(fatalsToBrowser); - это не то?

Vovan-VE · 21.08.2010, 19:35

Сообщение от Dimedrol

А use CGI::Carp qw(fatalsToBrowser); - это не то?

Думаю, что, -w включает (в терминах PHP) E_WARNING и E_NOTICE (и т.п.), а fatalsToBrowser включает рантайм E_ERROR.

@odip · 22.08.2010, 07:55

use CGI::Carp qw(fatalsToBrowser)
Это не совсем то
Это перехват ошибки и выдача ее в броузер
Если обычный perl скрипт выпадет при ошибке то в stdout будет сообщение
Если же cgi-perl скрипт выпадет при ошибке, то сообщение так же выпадет в stdout
но в броузере ничего не будет видно, потому что броузер требует определенного оформления вывода.
Модуль Carp занимается перехватом ошибок в perl-скриптах чтобы как можно раньше идентифицировать ошибку.

@Dimedrol · 22.08.2010, 11:56 **[ТС]**

odip, это значит, что для тестирования больше подходит use CGI::Carp qw(fatalsToBrowser), а для повседневной работы - -w ?

@odip · 22.08.2010, 13:32

Думаю для cgi всегда нужно включать use CGI::Carp qw(fatalsToBrowser)

@Amf3tam1N · 23.08.2010, 04:42

ага, особенно в продакшене, пусть все узнают, где скрипт валится =)

@rangerx · 24.08.2010, 00:09

Сообщение от Dimedrol

это значит, что для тестирования больше подходит use CGI::Carp qw(fatalsToBrowser), а для повседневной работы - -w ?

Да, для тестирования fatalsToBrowser, warningsToBrowser. Лицезреть эту информацию в своём браузере кроме тебя больше никому не должно быть интересно. В любом случае предупреждения и сообщения об ошибках можно посмотреть в логах.

@Dimedrol · 24.08.2010, 15:46 **[ТС]**

Не по теме:

А где в Ubuntu хранятся перловские логи? Все логи просмотрел, там перлом и не пахнет.

@Amf3tam1N · 24.08.2010, 15:48

есть логи апача у перла логов нет
tail -f -n 200 /var/log/apache2/error.log

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@odip 7176 / 3234 / 82 Регистрация: 17.06.2009 Сообщений: 14,164
	22.08.2010, 07:55
	use CGI::Carp qw(fatalsToBrowser) Это не совсем то Это перехват ошибки и выдача ее в броузер Если обычный perl скрипт выпадет при ошибке то в stdout будет сообщение Если же cgi-perl скрипт выпадет при ошибке, то сообщение так же выпадет в stdout но в броузере ничего не будет видно, потому что броузер требует определенного оформления вывода. Модуль Carp занимается перехватом ошибок в perl-скриптах чтобы как можно раньше идентифицировать ошибку. 2

@Dimedrol 2378 / 941 / 129 Регистрация: 25.04.2009 Сообщений: 2,635 Записей в блоге: 4
	22.08.2010, 11:56 [ТС]
	odip, это значит, что для тестирования больше подходит use CGI::Carp qw(fatalsToBrowser), а для повседневной работы - -w ? 0

@odip 7176 / 3234 / 82 Регистрация: 17.06.2009 Сообщений: 14,164
	22.08.2010, 13:32
	Думаю для cgi всегда нужно включать use CGI::Carp qw(fatalsToBrowser) 1

@Amf3tam1N 49 / 48 / 5 Регистрация: 18.01.2010 Сообщений: 94
	23.08.2010, 04:42
	ага, особенно в продакшене, пусть все узнают, где скрипт валится =) 1

@Dimedrol
	24.08.2010, 15:46 [ТС]
	Не по теме: А где в Ubuntu хранятся перловские логи? Все логи просмотрел, там перлом и не пахнет. 0

@Amf3tam1N 49 / 48 / 5 Регистрация: 18.01.2010 Сообщений: 94
	24.08.2010, 15:48
	есть логи апача у перла логов нет tail -f -n 200 /var/log/apache2/error.log 1

Выборка из БД MySQL

Решение