Проблемы с perl

•

Сейчас пишу нечто на подобии cms, где основной частью будет фрум, но однако можн будет создавать разичные страницы и т.д. Решил делать на perl. Не сразу, но почти возникло несколько проблем.

•

1. У меня не очень хорошо с сединением с базой. А именно: я не знаю, как подключать базу безопаснее, чем в этм коде:

Код:

#!/usr/bin/perl

use DBI;

my $host = "localhost"; # MySQL-сервер нашего хостинга
my $port = "3306"; # порт, на который открываем соединение
my $user = "ПОЛЬЗОВАТЕЛЬ_БД"; # имя пользователя
my $pass = "password"; # пароль
my $db = "ИМЯ_БД"; # имя базы данных

print "Content-type: text/html\n\n";

$dbh = DBI->connect("DBI:mysql:$db:$host:$port",
$user,$pass);
$sth = $dbh->prepare("select field1 from table2");
# готовим запрос
$sth->execute; # исполняем запрос

while ($ref = $sth->fetchrow_arrayref) {
print "$$ref[0]\n";
}

$rc = $sth->finish;
$rc = $dbh->disconnect;

Может я нормально соединяюсь и это все паранойя?

•

ctpz, пожалуй, паранойя. Достаточно поставить на перл-файл права 711 - и фиг кому достанутся Ваши пароли.

Бесплатные PHP скрипты - форум техподдержки

Проблемы с perl