Perl: Все что я хотел узнать про Perl

May 20, 2010 16:57

Конечно это не все, что мне бы следовало знать, но для начала веб-разработок почти достаточно.

Прежде всего необходимы: подключение к базе данных и возможность использования стандартизированного шаблонизатора XSLT. Весь нижеуказанный код проверен на сервере виртуального хостинга SpaceWeb. На счет других хостингов я не уверен, но скорее всего все будет работать.

Для подключения к базе данных подходит модуль DBI, а для XSLT трансформаций XML::LibXSLT.

#!/usr/bin/perl
use DBI;
use XML::LibXSLT;

# Data Source
$dsn = "DBI:mysql:mydatabase";
$username = "myuser";
$password = "p@ssw0rd";

# DataBase connection
$dbh = DBI->connect(
    $dsn,
    $username,
    $password) || print "Could not connect to database: $DBI::errstr";
$dbh->do('SELECT * FROM `mytable`');
$dbh->disconnect();

my $xslt       = XML::LibXSLT->new;
my $stylesheet = $xslt->parse_stylesheet_file('test.xsl');
my $results    = $stylesheet->transform_file('test.xml');

print "Content-type: text/html\n\n";
print $stylesheet->output_string($results);

Оказалось, что Perl очень похож на PHP.

xsl, dbi, perl, xslt, mysql

Previous post Next post
Up