|
EN
|
Register |
|
Help |
Working with PerlHere 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. 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(); |