Работа с Perl

Здесь приведены примеры листингов Perl-скриптов, которые помогут Вам начать работу с нашими серверами.

$db_server — адрес сервера базы данных для Вашего аккаунта. Узнать его можно в Панели управления услугой.
$db_login — имя пользователя для подключения к базе данных, задается при создании базы.
$db_pass — пароль для подключения к базе данных, также задается при создании. Посмотреть его можно в любое время в соответствующем разделе управления услугой.
$db_name — название базы данных, совпадает с $db_login

Листинг подключения к серверу MySQL:

#!/usr/bin/perl

use DBI;

my $db_server = 'db*.valuehost.ru';
my $db_login = 'adminlogin_test';
my $db_pass = 'MsBs1sT0';
my $db_name = 'adminlogin_test';

my($dbh,$query,$result);

print('Content-type: text/html'.$/.$/);


$dbh = DBI->connect('DBI:mysql:database='.$db_name.';host='.$db_server, $db_login, $db_pass)
	|| print('Не могу подключиться к серверу баз данных: '.$DBI::errstr).die();

$query = 'SELECT VERSION()';
$result = $dbh->prepare($query);

$result->execute()
	|| print('Не могу выполнить запрос ('.$query.'): '.$DBI::errstr).die();

print(':'.$result->fetchrow_array());
$dbh->disconnect();

Листинг подключения к серверу PostgreSQL:

#!/usr/bin/perl

use DBI;

my $db_server = 'db*.valuehost.ru';
my $db_login = 'adminlogin_test';
my $db_pass = 'MsBs1sT0';
my $db_name = 'adminlogin_test';

my($dbh,$query,$result);

print('Content-type: text/html'.$/.$/);


$dbh = DBI->connect('DBI:Pg:database='.$db_name.';host='.$db_server, $db_login, $db_pass)
	|| print('Не могу подключиться к серверу баз данных: '.$DBI::errstr).die();

$query = 'SELECT VERSION()';
$result = $dbh->prepare($query);

$result->execute()
	|| print('Не могу выполнить запрос ('.$query.'): '.$DBI::errstr).die();

print(':'.$result->fetchrow_array());
$dbh->disconnect();