Re: Perl and HTML

Hi doo_the_dew,

For anything complex, Template::Toolkit is very useful, as has already been mentioned.

If it's something simple you can of course just use a perl CGI script as long as your server is configured to support it. On my server, as an example, I created these 3 files:

# head.html

<head style="background:cyan">
    <style type="text/css">
        body { background: cyan; }
    </style>
</head>
[download]

and

# body.html
<body>
  <center>
    <h1>Simple CGI Example for <a href="http://perlmonks.com/?node_id=
+1006655">doo_the_dew</a>
  </center>
  <hr>
[download]

and the file "index.cgi" (make sure it is executable if you're on a Unix/Linux server of course):

#!/usr/bin/perl -w

# Libraries
use strict;
use warnings;
use CGI::Carp qw{ fatalsToBrowser };
use IO::File;


# IMPORTANT -- CGI scripts need to provide the header
print "Content-type:  text/html\n\n";


#  Main program
insert_file("head.html");       # Insert common header
insert_file("body.html");       # Insert common body start

#
# YOUR CODE HERE
#


#  Subroutines
sub insert_file {
    my ($fn) = @_;
    my $fh = new IO::File;
    open($fh, "<", $fn) or die "Can't read file '$fn' ($!)\n";
    foreach (<$fh>) {
        print;
    }
    close $fh;
}
[download]

Hopefully that gives you something you can get up-and-running quickly. Once you need more power, you can always add Template::Toolkit, or even create your own HTML-generating libraries, as you desire.

say substr+lc crypt(qw $i3 SI$),4,5

Comment on Re: Perl and HTML Select or Download Code

In Section Seekers of Perl Wisdom