Embedded Perl (MySQL & mSQL)

12.4.2. EmbPerl

EmbPerl is a more recent creation than ePerl, which is more specifically focused on HTML and the web. There are additional "metacommands" -- HTML style tags processed by EmbPerl -- that allow flow control and other programming features within the HTML itself.

As an example of Perl code embedded within an HTML file, consider the shark database output form used earlier. We will use EmbPerl for our example, but since we are using a standard language (Perl) the code in the page would be nearly identical between the different Perl embedders.

<HTML>
<HEAD><TITLE>Shark Search Result</title></head>
<BODY>
<H1>Here are the sharks that match your search...</h1>
<p>
[-
   use Msql;
   use CGI qw(:standard);

   $dbh = Msql->connect;
   $dbh->selectdb("sharks");

   %age = ( '0' => 'Young',
            '1' => 'Adult',
            '2' => 'Old'
          );
   # We now start to build the query. When finished, a typical query
   # will look something like this:
   # SELECT * FROM SHARK WHERE SPECIES='Isurus Paucus' AND AGE=2

   $query = "select * from sharks";
   if ($species or $age or $location) {
      $query .= " where ";
      $query .= join(" and ", param);
   }

   $result = $dbh->query($query);
   if (result == -1) {
      echo("Error : " . Msql->errmsg . "\n");
      exit(1);
   }
   $numresults = $result->numrows;
-]

<UL>

[$if (! $numresults ) $]
 <H2>No results matched</h2>
[$else$]
   [$while (%shark = $Msql->fetchhash($result)) $]
      <LI>
      <IMG SRC="graphics/shark[+$shark{'id'}+].gif" ALIGN=LEFT>
      <B>Species:</b> [+$shark{'species'}+]<br>
      <B>Age:</b> [+$age{$shark{'age'}}+]<br>
      <B>Location</b> [+$shark{'location'}+]<br>
   [$endwhile$]
[$endif]
</ul>
<A HREF="search.html">Search again</a>
</body></html>

12.4. Embedded Perl

12.4.1. ePerl

12.4.2. EmbPerl