EN 
Register

hosting: ValueHost 2.0
           

Help


Working with Perl

Here you can find examples of Perl-scripts which will help you to start working with our servers.

$db_server — database server address for your account. Can be retrieved in service Control Panel.
$db_login —  database user for connection, is being created simultaneously with database
$db_pass — password for database connection, is being set up on database creation. You can always retrieve it in corresponding section of service Control Panel.
$db_name — database name - equal to $db_login


Connecting to 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('Could not connect to database server: '.$DBI::errstr).die();

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

$result->execute()
	|| print('Could not execute query ('.$query.'): '.$DBI::errstr).die();

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

 

Connecting to 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('Could not connect to database server: '.$DBI::errstr).die();

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

$result->execute()
	|| print('Could not execute query ('.$query.'): '.$DBI::errstr).die();

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