Stranica: 1/1.

[Perl]DBI:mysql

Postano: 08 lip 2010, 20:09
Postao/la glaskoncILLa
dakle, imam jedan eksterni file u kojem pise nesto ovako;

Kod: Označi sve

database_username='username'
database_password='password'
basepath=''
database_default='baza'
database_hostname=''
database_port=''
dbtype='mysql'
i imam neku cgi-usu u kojoj pise ovako;

Kod: Označi sve

my $dbh = DBI->connect("DBI:mysql:$config{database_default}:$config{database_hostname}:$config{database_port}",$config{database_username},$config{database_password}
situacija je sa single quoteovima iz eksternog filea, trebalo bi ih maknuti, pa ako netko zna neki super i jednostavan trik za tako nesto.
editiranje eksternog filea nije opcija.

Re: [Perl]DBI:mysql

Postano: 08 lip 2010, 20:29
Postao/la 4ndY
glaskoncILLa je napisao/la: situacija je sa single quoteovima iz eksternog filea, trebalo bi ih maknuti, pa ako netko zna neki super i jednostavan trik za tako nesto.
editiranje eksternog filea nije opcija.
Ne znam da li ti je to opcija, ali bih dodao regexp u svaki od tih stringova da maknu navodnike, no možda nije najelegantnije i najbrže rješenje... :roll:

EDIT: ne kužim se baš u perl, ali bi to ukratko bilo:

Kod: Označi sve

$string =~  s/'//g;
s time da ovo briše sve jednostruke navodnike iz stringa, no logično je da ih ima samo 2 (u suprotnom bi sintaksa izvorne datoteke bila kriva)

Re: [Perl]DBI:mysql

Postano: 08 lip 2010, 22:28
Postao/la glaskoncILLa
ma idiot sam, nakon sto sam dovoljno dugo piljio u cgi-usu, skuzih da lik vec ima gotov cijeli subroutine koji radi nesto sa originalnim eksternim fileom u koji je samo trebalo ubaciti tr..

well, practice makes perfect.. :)