[perl] regel met variabelen uit database vullen

[Daniel304]

Ik heb een script dat intesief gebruik maakt van mysql queries nu wil ik het wat simpeler maken. ik loop tegen eht probleem op dat ik een regel tekst wilt opslaan waar een variabele in zit bijvoorbeeld.

code:

Hello world, the time is $hours : $minutes

$hours en $minutes hebben al een waarde en de boenstaande regel staat in de variabele $content.
nu heb ik ooit stukje gelezen waarin een push/pull methode wordt gebruikt... regular expressions wil ik hiervoor eigenlijk niet gebruiken...

[marty]

maar wat is je vraag nu precies?

[Daniel304]

sorry geen vraag geformuleerd... Ik wil dus de variabelen $minutes en $hour die in de string uit de database komen op vullen... op deze manier lukt het niet

code:

# in de functie Read_MySQL wordt maar 1 regel uit de database
# gehaald en in $content gezet deze regel bevat zelf ook variabelen
# "Hello world, the time is $hour : $minutes"
$content = &Read_MySQL("");
# makkelijke declaratie van uren en minuten
$hour = 2;
$minutes = 30;
#ff afdrukken
print $content;

helaas krijg je op de plekken van de variablen $hour en $minutes nu niets te zien ook al draai je ze om zoals hieronder zie je ze niet.

Perl:

# makkelijke declaratie van uren en minuten
$hour = 2;
$minutes = 30;
# in de functie Read_MySQL wordt maar 1 regel uit de database
# gehaald en in $content gezet deze regel bevat zelf ook variabelen
# "Hello world, the time is $hour : $minutes"
$content = &Read_MySQL("");
#ff afdrukken
print $content;

Ik wil dus dat er wel iets komt te staan

[ Voor 10% gewijzigd door Daniel304 op 28-04-2004 10:00 ]

[Juup]

Dit is wel heel smerig. In de database staan dus strings zoals "Hello world, the time is $hours : $minutes"? Gadverdamme. Heb je dit zelf in mekaar genaaid of iemand anders?

[Daniel304]

Het gaat om een tabel waar een aantal mysql Queries in staan. Dit zodat een admin deze queries handmatig kan wijzigen... Echter om die queries te laten werken in een dynamische omgeving moeten er een aantal WHERE 's in komen om ervoor te zorgen dat de juiste taal naar boven komt zoals hieronder...

MySQL:

SELECT
  COUNT(category_id) AS count,
  support_faq.*,
  support_category.id AS cat_id,
  support_category.category,
  support_category.language_id
     FROM
     support_faq,
     support_category
  WHERE
     support_faq.category_id = support_category.id
     support_faq.language = $language
  GROUP BY category_id

Als je een beter manier weet hoor ik het graag maar ik weet niet hoe ik hier omheen kan.

[ Voor 10% gewijzigd door Daniel304 op 05-05-2004 17:05 ]

[phYzar]

je zoekt dus zoiets als eval(php)

Heeft perl niet zoiets?

[NMe]

Ik heb niet zo gek veel verstand van perl, maar kun je geen variabelen concatenaten (aan mekaar plakken dus)?

Juup schreef op 28 april 2004 @ 12:06:
Dit is wel heel smerig. In de database staan dus strings zoals "Hello world, the time is $hours : $minutes"? Gadverdamme. Heb je dit zelf in mekaar genaaid of iemand anders?

Lekker vriendelijk zijn we weer.

[Soultaker]

Perl kent ook gewoon een eval construct waar je dat mee kunt doen (al moet je dan nog extra quotes toevoegen om je string te evalueren naar een string). Je bent dan wel gevoelig voor allerlei onverwachte fouten als er 'gekke' dingen in de database komen te staan.

Ik zou in dit geval eerder het gebruik van sprintf aanraden, als je van te voren weet welke argumenten een query heeft. In jouw voorbeeld zou je de query kunnen schrijven als "SELECT ... WHERE language=%1$s" en die $1 kun je dan invullen met iets als: sprintf($query, $language), waarmee de waarde van language ingevuld wordt. Je beperkt dan de substitutie tot vooraf bedachte waarden en je voorkomt daarmee dat vreemde gegevens in de database je hele programma verprutsen. De effecten van eval zijn in principe namelijk onbeperkt.

Ook dit vind ik niet echt een ideale oplossing persoonlijk. Queries zijn programmacode en programmacode hoort niet in een database thuis; een database is dus bedoeld voor de opslag van gegevens. Je queries zou je dus in een simpele situatie in je Perl code kunnen plaatsen. Iets 'beter' is misschien het gebruik van stored procedures, maar die roep je dan nog steeds vanuit Perl code aan.

[Verwijderd]

phYzar schreef op 05 mei 2004 @ 18:49:
je zoekt dus zoiets als eval(php)

Heeft perl niet zoiets?

Yep, Perl heeft ook een eval()

code:

my $uren=7;
my $minuten=4;
my $s='Het is nu $uren:$minuten\n';
eval("\$s=\"$s\"");
print $s;

[Soultaker]

Xenna: je bent er dan nog niet, want je moet de slashes en quotes in je string $s ook nog escapen.

[Daniel304]

Kijk dat werkt beter.. ik gebruik meestal toch zoiets als

code:

my $s = qq|hallo wereld......$minutes....|;

scheelt een hoop escapen