[Perl]DBI:mysql

[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.

[4ndY]

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...

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)

[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..