Re: counting yesterdays hits in a logfile


There's more than one way to do things
	PerlMonks

Re: counting yesterdays hits in a logfile

by space_monk (Hermit)

on Nov 13, 2012 at 05:29 UTC ( #1003553=note: print w/ replies, xml )

Need Help??

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.

Comment on Re: counting yesterdays hits in a logfile
Download Code

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

Node Status^?

node history
Node Type: note [id://1003553]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others meditating upon the Monastery: (6)

As of 2013-05-18 16:07 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

The best material for plates (tableware) is:

Results (393 votes), past polls