Re: Perl script

• From: Dave Lopata <dlopata@Stat.UFL.Edu>
• Date: Thu, 08 Dec 1994 13:53:00 -0500
• To: secret@www5.cern.ch
• Cc: www-vlib@www0.cern.ch
• Message-Id: <199412081853.NAA22139@stat.ufl.edu>

...

	This may be over simplied, but:

#!/usr/local/bin/perl
#
# quickcount.pl
#
# Quick counter thingie.
#
chop ($date = `date +%d/%b/%Y`);
$logfile = "/usr/local/spool/httpd/httpd-log";
$webarea = "/usr/local/lib/www";
 
$filename = $ARGV[0];
 
if (-f "$webarea/$filename")
{
        @countarray = `grep $date $logfile | grep $filename`;
 
        print "grep $date $logfile | grep $filename\n";
 
        $count = $#countarray + 1;
 
        print "Today ($date) access: $count\nLinks off from $filename\n";
}

	Will give you the count, and then you can just pipe it off to
whatever file you want. . .

	$logfile and $webarea needs to be set, of course.  So, if
you're Web files are in /usr/local/lib/www, and you've got your vlib
stuff in a subdirectory "vlib", then something like this:

	quickcount.pl vlib/statistics.html

	Should work.

Received on Thursday, 8 December 1994 18:53:06 UTC