#!/usr/local/bin/perl # market_place.pl # # Second version. Creates or opens a file with a number # in it, increments the number, writes it back, then displays # the result in a message on a Web page. require "html.pl"; # Get HTML header, ender. $CountFile = "market_place.dat"; # Name of counter file. $PageTitle = "Market Place"; # Web page title. # Open the file and read it. If it doesn't exist, its "contents" # will be read into a program variable as "0". open (COUNT, $CountFile); $Counter = ; # Read the contents. # Close the file, then reopen it for output. close (COUNT); open (COUNT, ">$CountFile"); # Increment $Counter, then write it back out. Put up a message # with the new value. Close the file. $Counter += 1; print COUNT $Counter; close (COUNT); # Put the result up in a standard HTML document. &HTML_Header ($PageTitle); # HTTP header info. print "\n"; # print "

$PageTitle

\n"; # Big heading. # print "

\n"; # Draw a rule. print "

- $Counter "; print "- Market Place

\n"; &HTML_Ender;