Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

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.

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;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1003553]
and the universe expands...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2018-03-19 02:17 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (231 votes). Check out past polls.