Instaliras DBI, instaliras drajver za bazu koju hoces da koristis (u ovom slucaju DBD::MySQL).
Evo ti onda i primer koda, ali procitaj obavezno perldoc entry za DBI posto je bas fino napisan!
Ovo nije bas skolski pisan code ali radio je na tom sajtu za koji je pravljen.. inace samo dovlaci nesto iz baze i stavlja u tabelu.. shvatices lako je:
Code:
#! /usr/local/bin/perl
use DBI;
use strict;
my ($dsn) = "DBI:mysql:ime_baze:server.com";
my ($username) = "username";
my ($password) = "password";
my ($dbh, $sth, $id, $text, $timestamp, $thelink, $oldtimestamp, $timestamp2, $count);
my (@ary);
my ($section) = 1;
print ("Content-type: text/htmlnn");
$dbh = DBI->connect($dsn, $username, $password, { RaiseError => 1 });
$sth = $dbh->prepare ("SELECT link_id, link_text, link_time, link_link FROM main_links WHERE link_type=$section ORDER BY link_id DESC LIMIT 20");
$sth->execute();
$count = 0;
while (@ary = $sth->fetchrow_array())
{
($id, $text, $timestamp, $thelink) = @ary;
# $text =~ s!(.{70})(.{70})(.{70})(.{70})(.{70})!$1<br>$2<br>$3<br>$4<br>$5<br>!;
# $timestamp =~ s!(....)(..)(..)(..)(..)(..)!$4:$5:$6<br>$3/$2/$1!;
$timestamp =~ s!(....)(..)(..)(..)(..)(..)!$3.$2.$1!;
if ($timestamp eq $oldtimestamp) {
$timestamp2 = ""
}
else
{
$timestamp2 = $timestamp;
}
$oldtimestamp = $timestamp;
print qq{
<tr>
<td width="50"> </td>
<td width="358"><a href="$thelink" target="_blank">$text</a></td>};
if ($timestamp2 ne "") {
print qq{
<td width="53" bgcolor="#828282">$timestamp2</td>
</tr>};
}
else
{
print qq{
<td width="53"> </td>
</tr>};
}
$count++;
if ($count > 19) {
print qq{
<tr>
<td width="50"> </td>
<td width="358"><a href="#" onClick="MM_openBrWindow('showall.cgi?section=$section','mainwin','scrollbars=yes,width=300,height=650')">...</a></td>
<td width="53"> </td>
</tr>};
last;
}
}
$sth->finish();
$dbh->disconnect();
exit (0);
Ovo moze jos da se dotera ali pisano je na brzinu a bitno je bilo da radi :)
Obrati paznju na bitne stvari. Kako se pravi
database handle (oznacen sa $dbh) i
statement handle ($sth) i kako posle uzimas podatke sa fetchrow_array(). Ima mnogo drugih nacina ovaj mi je u tom trenutku izgledao najjednostavniji. Mozes i da ih uzimas kao hash, kao asociative array i jos nekih par nacina.. uglavnom, za to citaj perldoc dbi.
Samo sam morao da ugasim jos smajlije zato sam editovao poruku..
[
Ovu poruku je menjao Gojko dana 03-05-2001 u 08:39 PM GMT]
Registrovani: 129 ( Aleksandar Vasic, pile_naucnik, jsmith, zdravko vas 5051, Kernel-1, marsher, Horbi, ph4t, kizza, hiphop28, Simbad84, hardcastle, JankoNIS, psihotic, elektros, zoranru, majstor79, mali genije, MilanBatina, zeoN_Rider, Dzidza Bidza, tarla, mare_bj, Mili-CQ, Dr Boca, veljkovicdani, braker, Fitopatolog, sledgeh44, MightyOutlaw, CyberGastarbaiter, Dr. Jekyll and Mr. Hyde, lumyy010, BiiigMuzzy, kelja, Milos D, LakiKG, dikca, Miki_kos84, spulkan, New Village DC, dule.duka, X-it, veljkoE, rsinisa, spider4, Minitim, H3B3PH1k, Sc0rp10, Stefan Markic, negyxo, milan_kraljevo, smfilip, pekilit, kosovac, kuca8uk3, sead_jušić, partizanka, bluemooon, vlaksi, badam, oxan, Dali_bg, darkado, masaa, misley, mile4611, salico, dado76, Helion_Prime, kikindjanin, caleb, gojnik, Slobodan Milivojevic, mmix, feroc1ty, mischo, Flash411, WOVIMAMI, dekster2, lukkka, mirko1949, sonus70, noki@, 008, ninja, Grider, Skaarj, kazil, barum, Djordjevlasotince, ubimestruja, darecdjo, waikiki, K o Z a K, miivasti13, sabakovi, freelancer, Rekla Kazala, Nebojsa Milanovic, mdax, nindac, Ka2, momsab, DusanSukovic, loks, Darko Selakovic, Nemanja, Milan Stojanovic, banex77, mulaz, Tipster, ice00, Peđa, Predrag Glumac, oknedz, kevinsugar79, budjavlebac, gogy077, dejande, www.terra.net.ba, Milan Gligorijevic, Aleksandar Trifunović, zorg, Bik Koji Sedi, euripyd, smars, CahLe, endre )
Pozivanje mySQL-a iz perla
Re: Pozivanje mySQL-a iz perla