home *** CD-ROM | disk | FTP | other *** search
/ Teach Yourself CGI Programming with Perl in a Week / CGIPROGRAMMINGPERL.iso / booksrc / 10cgil02.cgi < prev    next >
Encoding:
Text File  |  1995-12-08  |  363 b   |  8 lines
  1. #!/usr/local/bin/perl 
  2. print "content-type: text/html\n\n";
  3. $num = `grep -c 'GET / HTTP' /usr/local/business/http/accn.com-Server/logs/access_log` ;
  4. $num += `grep -c 'GET /index.shtml /usr/local/business/http/accn.com-Server/logs/access_log` ;
  5. $num += `grep -c 'GET /index.html' /usr/local/business/http/accn.com-Server/logs/access_log` ;
  6. print "$num\n";
  7.  
  8.