Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pozivanje mySQL-a iz perla

[es] :: Perl :: Pozivanje mySQL-a iz perla

Strane: 1 2

[ Pregleda: 10180 | Odgovora: 35 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Zoran Rašković
Serbia

Član broj: 95
Poruke: 1360
207.62.25.*



+1 Profil

icon Pozivanje mySQL-a iz perla05.03.2001. u 18:58 - pre 280 meseci
Uz pomoc cega se poziva mySQL iz perla i na koji nacin? Ja sam cuo za DBI i tako nesto ali ne znam kako se to ostvaruje ?
 
Odgovor na temu

UroS
uros.net inc. Head manager
yu/sr/bgd

Član broj: 3
Poruke: 1953
*.verat.net

ICQ: 44960289
Sajt: www.uros.net


+1 Profil

icon Re: Pozivanje mySQL-a iz perla05.03.2001. u 19:16 - pre 280 meseci
evo ti jedan primer...

#! /usr/local/bin/perl
#############################################
# (C)2000 by UroS, [email protected]
# PerlDBI -> MySQL Guestbook
#############################################

use DBI;

my () = "DBI:mysql:TvojaBaza:Tvoj.Host.Domain";
my () = "TvojUsername";
my () = "TvojPassword";
my (, , , , );
my (@ary);

print ("Content-type: text/htmlnn");

= DBI->connect(, , , { RaiseError => 1 });

= ("SELECT name, email, message, timestamp, ip_address FROM main_guestbook ORDER BY timestamp LIMIT 30");
();

while (@ary = ())
{
(, , , , ) = @ary;
=~ s!(....)(..)(..)(..)(..)(..)!$3.$2.$1!;
print qq{<tr> };

if ( ne "") {
print qq{ <td width="19%"><a href="mailto:"></a></td> };
}
else
{
print qq{ <td width="19%"></td> };
}

print qq{
<td width="51%"></td>
<td width="16%"></td>
<td width="14%" align="center"><a href="#" onClick="javascript:ipshow()">*recorded</a></td>
</tr>};

}

();
();

exit (0);


[Ovu poruku je menjao UroS dana 03-05-2001 u 08:16 PM GMT]
one-thousand, three-hundred and thirty-seven.
 
Odgovor na temu

Zoran Rašković
Serbia

Član broj: 95
Poruke: 1360
207.62.25.*



+1 Profil

icon Re: Pozivanje mySQL-a iz perla05.03.2001. u 19:17 - pre 280 meseci
kad bi malo objasnio kod, bilo bi veoma lepo
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: Pozivanje mySQL-a iz perla05.03.2001. u 19:35 - pre 280 meseci
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]
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: Re: Pozivanje mySQL-a iz perla05.03.2001. u 19:43 - pre 280 meseci
Citat:
Judge Dred wrote:
kad bi malo objasnio kod, bilo bi veoma lepo


Uros se zezao onaj kod cak ni ne radi a ja sam ti u prethodnoj poruci dao original koji radi
 
Odgovor na temu

Zoran Rašković
Serbia

Član broj: 95
Poruke: 1360
207.62.26.*



+1 Profil

icon Re: Pozivanje mySQL-a iz perla05.03.2001. u 22:14 - pre 280 meseci
e odakle da skinem dbi ili ga vec imam sa perlom ? i kkao se instalira?
btw. gojko, da li je moguce promeniti nick ?
 
Odgovor na temu

m r v a

Član broj: 8
Poruke: 1843
*.yubc.net



Profil

icon Re: Pozivanje mySQL-a iz perla05.03.2001. u 22:28 - pre 280 meseci
eo vam code :

(.) (.)



LOL
tits
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: Re: Pozivanje mySQL-a iz perla05.03.2001. u 23:41 - pre 280 meseci
Citat:
Judge Dred wrote:
e odakle da skinem dbi ili ga vec imam sa perlom ? i kkao se instalira?
btw. gojko, da li je moguce promeniti nick ?


Pa sa CPAN mreze odatle se sve skida, Perl i sve za njega. cpan.perl.com

a nick nije, pa onda bi ja mogao da kazem nesto sve vas ispljujem i izmenim nick i onda nemate pojma ko sam u stvari.
ne moze da se menja nick. registruj se kao nov user ako bas moras.. ali ostaje stari..
 
Odgovor na temu

Zoran Rašković
Serbia

Član broj: 95
Poruke: 1360
216.34.244.*



+1 Profil

icon Re: Pozivanje mySQL-a iz perla06.03.2001. u 05:42 - pre 280 meseci
ma pao mi je jedan cool nick na pamet
 
Odgovor na temu

MrYoo

Član broj: 30
Poruke: 198
*.infosky.net

ICQ: 47188818


Profil

icon Re: Pozivanje mySQL-a iz perla06.03.2001. u 21:04 - pre 280 meseci

Bravo Gojko onaj kod govori sam za sebe sada mu je sve jasno......))))
 
Odgovor na temu

Zoran Rašković
Serbia

Član broj: 95
Poruke: 1360
207.62.26.*



+1 Profil

icon Re: Pozivanje mySQL-a iz perla06.03.2001. u 21:13 - pre 280 meseci
ok... a koja je funkcija modula kao onaj npr. mod_perl za sta on na primer sluzi i kako se lodauje ?
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: Pozivanje mySQL-a iz perla07.03.2001. u 01:06 - pre 280 meseci
mryoo: pa ja mislim da je prva stvar koja se nauci u perlu - bas to kako se koristi CPAN posto je nezamenjlijv.. perl -MCPAN -e shell; .. u win32 je to ppm pa pratite instrukcije

mod_perl je apache module i uglavnom se koristi da bi se ubrzalo izvrsavanje perla jer je nonstop ucitan zajedno sa apacheom i ima dosta optimizacija. nije lose koristiti ako server zna da bude opterecen.
 
Odgovor na temu

Zoran Rašković
Serbia

Član broj: 95
Poruke: 1360
216.34.244.*



+1 Profil

icon Re: Pozivanje mySQL-a iz perla07.03.2001. u 05:36 - pre 280 meseci
e gojko da ne postavljam novu temu nego mi odogvori ovde ako mozes
na kom ti se serveru nalazi ovaj sajt i da li je free ili placas?
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: Pozivanje mySQL-a iz perla07.03.2001. u 10:22 - pre 280 meseci
Mislim da sam to vec napisao gore u announcementu, ali da ponovim :

Verat.net nas hostuje, for free Tj u zamenu za onaj banner dole sto ga vidis..
Kod njih je u toku martovski popust, tako da je hosting samo 1000 DIN za godinu dana..
 
Odgovor na temu

frenne
Nenad Vujic
advokat

Član broj: 7
Poruke: 479
*.ptt.yu

ICQ: 27161247
Sajt: www.vujiclaw.com


+1 Profil

icon Re: Pozivanje mySQL-a iz perla07.03.2001. u 13:51 - pre 280 meseci
sta je CPAN?

 
Odgovor na temu

Zoran Rašković
Serbia

Član broj: 95
Poruke: 1360
207.62.26.*



+1 Profil

icon Re: Pozivanje mySQL-a iz perla07.03.2001. u 15:32 - pre 280 meseci
shvatio sam ali sta mu dodje ovaj fetchrow_array ?
 
Odgovor na temu

Zoran Rašković
Serbia

Član broj: 95
Poruke: 1360
207.62.26.*



+1 Profil

icon Re: Pozivanje mySQL-a iz perla07.03.2001. u 15:47 - pre 280 meseci
jos nesto
da li moze kad se napravi .cgi da se isto ovo radi, ali samo sada znaci da to bude cgi, znaci da se otvara i prikazuje u browseru ?
ja sam probao ali mi nije nista prikazao u browseru, znaci prazan screen
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: Re: Pozivanje mySQL-a iz perla07.03.2001. u 17:23 - pre 280 meseci
frenne:
cpan je mreza distribuiranja perla i svega vezanog za njega. jedini izvor gde treba traziti perl module kao i sam perl. poseti cpan.perl.com za vise informacija.

Judge Dred:
fetchrow_array u stvari dovlaci red iz rezultata u obliku niz-a (array). vraca undef kao rezultat kada nema vise rezultata i tada se while petlja prekida.
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: Pozivanje mySQL-a iz perla07.03.2001. u 17:25 - pre 280 meseci
Judge Dred:

Ovo i jeste CGI i prikazuje se u browseru.. a moras da imas nesto u bazi da bi imao sta da prikaze.

A to da je CGI mozes da vidis i po liniji:
print ("Content-type: text/html\n\n");
 
Odgovor na temu

Zoran Rašković
Serbia

Član broj: 95
Poruke: 1360
207.62.25.*



+1 Profil

icon Re: Pozivanje mySQL-a iz perla07.03.2001. u 19:05 - pre 280 meseci
pa ja sam sinoc probao cgi ali nije hteo da prikaze
cekaj jel ovo

print ("Content-type: text/html\n\n");

mora u zagradi da bude ?
 
Odgovor na temu

[es] :: Perl :: Pozivanje mySQL-a iz perla

Strane: 1 2

[ Pregleda: 10180 | Odgovora: 35 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.