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

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

Форум техподдержки WR-Скриптов на php. Обсуждаем: основы программирования на PHP 5 - 7 версий, различные подходы к написанию скриптов на php 7 без MySQL. А также WR-скрипты: бесплатные доски объявлений, скрипты форумов, Гостевые книги, Каталог ссылок, Галерея, Фотоальбом, Счётчики, Рассылки, Анекдот и другие. Принимаются пожелания для новых версий. Сообщите какой скрипт нужен для Вашего сайта, постараемся найти или реализовать. Скачать скрипты можно бесплатно. Вместе мы сделаем бесплатные php скрипты лучше и доступнее!

Главная сайта бесплатных php скриптовГлавная сайта   ПоискПоиск  
Сегодня: 22.07.2024 - 20:50:23
Страницы:  1  

Проблемы с perl

Объявление - WR-Scriptы в UTF-8 кодировке

Активно обновляю скрипты и перевожу их в UTF-8 кодировку. Список перекодированных php скриптов доступен на главной странице сайта. Скачивайте скрипты и устанавливайте на свой сайт! В ближайшее время обновлю каталог знакомств, форум Про, фотоальбом, доски объявлений лайт и ЛЮКС.

На форуме, пожалуйста, пишите что модернизировать в скриптах в первую очередь. Постараюсь исправить большую часть пожеланий!
Планирую продолжить работы весь 2023 год.

АвторСообщение

ctpz

C
Участник форума

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

Сообщение # 1 02.07.11 - 16:53:17

ctpz

C
Участник форума

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;

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

Сообщение # 2 02.07.11 - 16:56:40

AntiGun

A
Участник форума

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

Сообщение # 3 22.07.12 - 15:31:06
Книга по PHP :Предыдущая темаСледующая тема: Что кроме апача
Страницы:  1  

Сообщение
Имя E-mail
Сообщение

Нажмите на точку возле имени для обращения к участнику

Смайлы:

Ещё смайлы
Эмодзи
         
Защитный код: (введите цифры, которые на синем фоне)
Ответ на вопрос: (Какой сейчас год?)
   
WR-Счётчик
Powered by WR-Forum Professional © 2.3 UTF-8 beta версия