John's Homepage
Wiki
Resume
Contact
Github
Blog
CGI Script:
hits.cgi
#!/usr/bin/env perl # John's SuperDuper Hit Counter CGI! use strict; use warnings; use CGI; my $q = CGI->new; print $q->header; my $hits_file = '../hits.txt'; unless (-e $hits_file) { open(FH, '>', $hits_file) or die("Couldn't open file '$hits_file': $!"); print FH "1"; close FH; print "1"; exit; } open(FH, '<', $hits_file) or die("Couldn't open file '$hits_file': $!"); my $hits = <FH>; close FH; $hits++; open(FH, '>', $hits_file) or die("Couldn't open file '$hits_file': $!"); print FH $hits; close FH; print $hits;
