http://www.perlmonks.org?node_id=1003553


in reply to counting yesterdays hits in a logfile

Printing your webpage is much better using a HEREDOC e.g 

close(LOGFILE);

open(WEBPAGE,">",$webPage);
$tm = strftime( "%d/%m/%Y", localtime());
 

    print WEBPAGE <<EOF; 
<head><title>Access Counts</title>
</head>
<body>
<h1> today is: $tm</h1>
<h3>Yesterday was $yesterday</h3>
<table border="1" cellpadding="10" width='500px'>
<h2>Total hits: $totalhits</h2>
<h3>Hits Yesterday: $yesterdayHits</h3>
$rows
</table></p>
</body>
</html>
EOF

close( WEBPAGE);

[download]
Also please use CSS to format your table layout, keep html tags lowercase; Uppercase is *so* 1995 ;-). I could go on but one of your future tasks is obviously to learn about good HTML presentation and layout.
A Monk aims to give answers to those who have none, and to learn from those who know more.

Replies are listed 'Best First'.
Re^2: counting yesterdays hits in a logfile
by Anonymous Monk on Nov 13, 2012 at 06:00 UTC

    Basic CGI can even make the html a lot better, like so: 

         ...
use CGI qw(:standard);

my $q = CGI->new;
print $q->start_html( -title => 'Yesterday Hits' ),
      $q->h1("today is: $tm"), 
      $q->h3("Yesterday was $yesterday"),
      $q->table(
          { border => '1', cellpadding => '10', width => '500' },
          Tr( td("Total Hits: $totalhits"), td("Hits Yesterday: $yeste
+rdayHits"), )
      ),
      $q->end_html;

    [download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom