#!/usr/bin/perl
print "Content-type:text/html\n\n";
open (MYFILE, 'counter.txt');
chomp($count=
close (MYFILE);
$count++;
print $count;
open (MYFILE, '>counter.txt');
print MYFILE "$count\n";
close (MYFILE);
A simple script to demonstrate reading from and writing to a file using PERL.
No comments:
Post a Comment