PERL Journal Clock Example
Revision as of 12:51, 12 February 2014 by Michael Murtaugh (talk | contribs) (Michael Murtaugh moved page PERL Journal to PERL Journal Clock Example)
PERL Journal Article intro to CGI programming
Original PERL code by Lincoln Stein:
#!/usr/bin/perl
print "Content-type: text/html\r\n";
print "\r\n";
chomp($time = `date`);
print<<EOF;
<HTML><HEAD>
<TITLE>Virtual Clock</TITLE>
</HEAD>
<BODY>
<H1>Virtual Clock</H1>
At the tone, the time will be
<STRONG>$time</STRONG>.
</BODY></HTML>
EOF
Translated to python (nb check_output was introduced to python in version 2.7):
#!/usr/bin/python
from subprocess import check_output
print ("Content-type: text/html\n")
time = check_output(["date"]).strip().decode("utf-8")
print ("""
<HTML><HEAD>
<TITLE>Virtual Clock</TITLE>
</HEAD>
<BODY>
<H1>Virtual Clock</H1>
At the tone, the time will be
<STRONG>{0}</STRONG>.
</BODY></HTML>
""".format(time))