I have written a small simple script to log those who access my site and count the number of site hits. As of right now I have the script being called by an htmk image tag to create the logs but am having difficulty figuring out how to print back these results to the webpage when it loads.

Here is the script. 

#!/usr/bin/perl

$file    = "/home/master/temp/perlskripts_ip.log";
$visited = "/home/master/temp/count.log";
$time = `date`;
if ($ENV{'REMOTE_ADDR'} !~ /192.168.0.(\d+)/) {
   if (!-e $file) {
      `touch $file`;
   }
   open(lg, ">>$file") || die "Can't open $file!\n";
   print lg "User from ".$ENV{'REMOTE_ADDR'}." logged on ".$time;
   close(lg);
   if (!-e $visited) {
      `touch $visited`;
   }
   open (vis, "<$visited") || die "Cannot open $visited for reading!\n
+";
   $count = <vis>;
   close (vis);
   print "count is ".$count,"\n";
   open (vis, ">$visited") || die "Cannot open $visited for writing!\n
+";
   if ($count ne "") {
      $count++;
   }else{
      $count = 1;
   }
   print vis $count;
   close (vis);
}

[download]

and here is how I call it on my page 

<img src="/cgi-bin/user_log.cgi" height="2" width="2" alt="[script]">

[download]
I really do not want to incorporate cgi unless I have to. Any ideas?

In reply to Return script value in html? by Elijah

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.