Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re: Perl and HTML

by golux (Hermit)
on Dec 02, 2012 at 23:47 UTC ( #1006767=note: print w/replies, xml ) Need Help??

in reply to 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>


# body.html <body> <center> <h1>Simple CGI Example for <a href=" +1006655">doo_the_dew</a> </center> <hr>
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; }

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1006767]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2018-07-17 02:39 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (353 votes). Check out past polls.