Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: counting yesterdays hits in a logfile

by space_monk (Chaplain)
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);
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;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1003553]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (10)
As of 2014-08-01 00:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (255 votes), past polls