fig16_08.pl

PERL语言资料 可以用于PERL程序设计

#!/usr/bin/perl
# Fig 16.8: fig16_08.pl
# Program to enter user's contact information into a
# server-side file.

use strict;
use warnings;
use CGI qw( :standard );
use Fcntl;

my $first = param( 'first' );
my $last = param( 'last' );
my $address = param( 'address' );
my $town = param( 'town' );
my $state = param( 'state' );
my $zip = param( 'zip' );
my $country = param( 'country' );
my $email = param( 'email' );

my $name;
my @characters = ( 'a' .. 'z', '0' .. '9' );

do {

   for ( 1 .. 10 ) {
      my $number = rand( 36 );
      $name .= $characters[ $number ];
   }
}
until sysopen( FILE, "$name.txt", O_WRONLY | O_EXCL | O_CREAT );

print( FILE "$first $last\n" );
print( FILE "$address\n" );
print( FILE "$town $state $country $zip\n" );
print( FILE "$email\n" );
close( FILE ) or die( "Cannot close file: $!" );

print( header() );
print( start_html( -title => 'Contact Information is entered' ) );
print( strong(  "The following information has been stored:\n" ) );

print( "<table><tbody>" );

print( Tr( td( "First Name: " ), td( $first ) ) );
print( Tr( td( "Last Name: " ), td( $last ) ) );
print( Tr( td( "Address: " ), td( $address ) ) );
print( Tr( td( "Town: " ), td( $town ) ) );
print( Tr( td( "State: " ), td( $state ) ) );
print( Tr( td( "Zip Code: " ), td( $zip ) ) );
print( Tr( td( "Country: " ), td( $country ) ) );
print( Tr( td( "E-mail: " ), td( $email ) ) );

print( "</tbody></table>" );

print( p( "Your ID number is $name" ) );

print( end_html() );

###########################################################################
#  (C) Copyright 2001 by Deitel & Associates, Inc. and Prentice Hall.     #
#  All Rights Reserved.                                                   #
#                                                                         #
#  DISCLAIMER: The authors and publisher of this book have used their     #
#  best efforts in preparing the book. These efforts include the          #
#  development, research, and testing of the theories and programs        #
#  to determine their effectiveness. The authors and publisher make       #
#  no warranty of any kind, expressed or implied, with regard to these    #
#  programs or to the documentation contained in these books. The authors #
#  and publisher shall not be liable in any event for incidental or       #
#  consequential damages in connection with, or arising out of, the       #
#  furnishing, performance, or use of these programs.                     #
###########################################################################