例題プログラム

永続的なURI

perlバージョン

 #!/usr/bin/perl
 
 sub file {
   open(F,$_[0]) ||  return "can't open $_[0]\n" ;
     @a=<F>;
     return join(&#39;&#39;,@a);
 }
 
 $pagename = $ENV{PATH_INFO};
 $pagename =~ s|/guidance/||;
 $page = $pagename;
 $page = "$pagename.html" if $pagename ne "index.html";
 
 $head = file("data/header.html");
 $left = file("data/left.html");
 $main = file("data/$page");
 $foot = file("data/footer.html");
 $right = file("data/right.html");
 
 print << "END_OF_HTML";
 content-type: text/html
 
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
 <html lang="ja-JP">
 <head>
 <meta http-equiv="content-type" content="text/html; charset=EUC-JP">
 <title>$pagename</title></head>
 <body>
 <table border=1>
 <tr><td colspan=3>$head</td></tr>
 <tr><td>$left</td><td>$main</td><td>$right</td></tr>
 <tr><td colspan=3>$foot</td></tr>
 </table>