Het werken met embedded Perl

Een deel van de variabelen zoals ze hierboven worden beschreven waren eigenlijk een noodoplossing. En dankzij embedded Perl worden die overbodig.

Embedded Perl maakt het mogelijk om eender waar in pagina's, code of strings gebruik te maken van Perl-code die pas net voor het tonen wordt uitgevoerd. Op die manier kan je krachtig zaken implementeren op de locatie waar je het nodig acht en het zal enkel en alleen uitgevoerd worden als de pagina met die code samengesteld is.

Je gebruikt embedded Perl op de volgende manier:

      <script language="Perl">
       echo "Hello world !";
      </script>

Natuurlijk heeft het voorgaande weinig zin, gewoon Hello world ! plaatsen had hetzelfde effekt. Maar als we die echo gaan vervangen door eender welke Perl-code dan wordt de kracht pas duidelijk. Zo kunnen we bijvoorbeeld met embedded Perl andere files openen, andere databases raadplegen en zoekfuncties uitvoeren. Het volgende voorbeeld gaat uit de userdatabase de user halen die eigenaar is van dit record:

     <script language="Perl">
     %::REC=$::db->[$::udb]->rr($::RECORD{'OWNER'});
     print $::REC{'PRENAM'}.' '.$::REC{'FAMNAM'};
     print '  <a href="mailto:'.$::REC{'EMLNAM'}.'">'.$::REC{'EMLNAM'}.'</a>';
     </script>

Vervolgens drukt het de user af met een link waarachter zijn email-adres schuilgaat.