📄 ch13.htm

📁 美国Macmillan出版社编写的Perl教程《Perl CGI Web Pages for WINNT》
💻 HTM
📖 第 1 页 / 共 5 页
字号:
&lt;HTML&gt;

&lt;HEAD&gt;

&lt;title&gt;The Goo Goo Records Shop - Come On In!&lt;/title&gt;

&lt;/HEAD&gt;

&lt;BODY bgcolor=&quot;#40E0D0&quot; Text=&quot;#191970&quot; &gt;

&lt;META Name=&quot;keywords&quot; Content=&quot;music, sound clips, video clips, avi, wav, alternative,

underground, punk, pop music, funk, contests, prizes&quot;&gt;&lt;p&gt;

&lt;center&gt;

&lt;img src=&quot;shop.gif&quot;&gt;

&lt;p&gt;

&lt;FORM METHOD=&quot;POST&quot; ACTION=&quot;sales.cgi&quot;&gt;

&lt;b&gt;The Gear

&lt;p&gt;

&lt;table border=0&gt;

&lt;tr&gt;&lt;td&gt;Item&lt;/td&gt;&lt;td&gt;U.S. Price&lt;/td&gt;

&lt;td&gt;Europe&lt;/td&gt;&lt;td&gt;RoW&lt;/td&gt;&lt;td&gt;Quantity Required&lt;/td&gt;&lt;tr&gt;

&lt;tr&gt;&lt;td&gt;Googoo Ski Hat&lt;/td&gt;

&lt;td&gt;$14.50&lt;/td&gt;&lt;td&gt;$15.50&lt;/td&gt;&lt;td&gt;$16.50&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;hats&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Googoo Dispatch Bag&lt;/td&gt;

&lt;td&gt;$24.00&lt;/td&gt;&lt;td&gt;$25.00&lt;/td&gt;&lt;td&gt;$27.50&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;dispbag&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Googoo Record Bag&lt;/td&gt;

&lt;td&gt;$20.00&lt;/td&gt;&lt;td&gt;$21.00&lt;/td&gt;&lt;td&gt;$24.50&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;recbag&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Googoo T-Shirt: Grey on white&lt;/td&gt;

&lt;td&gt;$16.00&lt;/td&gt;&lt;td&gt;$17.00&lt;/td&gt;&lt;td&gt;$19.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;tsgow&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Googoo T-Shirt: Grey on black&lt;/td&gt;

&lt;td&gt;$16.00&lt;/td&gt;&lt;td&gt;$17.00&lt;/td&gt;&lt;td&gt;$19.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;tsgob&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Googoo T-Shirt: Black on grey&lt;/td&gt;

&lt;td&gt;$16.00&lt;/td&gt;&lt;td&gt;$17.00&lt;/td&gt;&lt;td&gt;$19.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;tsbog&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Single Googoo Slipmat&lt;/td&gt;

&lt;td&gt;$6.00&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;&lt;td&gt;$7.50&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;oneslip&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Pair Of Googoo Slipmats&lt;/td&gt;

&lt;td&gt;$10.00&lt;/td&gt;&lt;td&gt;$11.00&lt;/td&gt;&lt;td&gt;$11.50&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;pairslip&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt; 

&lt;/table&gt;

&lt;p&gt;

&lt;img src=&quot;record.gif&quot;&gt;

&lt;p&gt;

The Records

&lt;p&gt;

&lt;table border=0&gt;

&lt;tr&gt;&lt;td&gt;Artist/Title&lt;/td&gt;&lt;td&gt;Cat.&lt;/td&gt;&lt;td&gt;U.S. Price&lt;/td&gt;

&lt;td&gt;Europe&lt;/td&gt;&lt;td&gt;RoW&lt;/td&gt;&lt;td&gt;Quantity Required&lt;/td&gt;&lt;tr&gt;

&lt;tr&gt;&lt;td&gt;Petite Fauves/First Bite Vol 1&lt;/td&gt;

&lt;td&gt;Loo 2&lt;/td&gt;

&lt;td&gt;$5.00&lt;/td&gt;&lt;td&gt;$6.50&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;xx1&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Ten Days Late/Maiden Voyage EP&lt;/td&gt;

&lt;td&gt;Load 4&lt;/td&gt;

&lt;td&gt;$5.00&lt;/td&gt;&lt;td&gt;$6.50&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;xx2&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Suggestive/Advances&lt;/td&gt;

&lt;td&gt;Load 6&lt;/td&gt;

&lt;td&gt;$5.00&lt;/td&gt;&lt;td&gt;$6.50&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;xx3&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Push Up/Heartbreaker&lt;/td&gt;

&lt;td&gt;Load 9&lt;/td&gt;

&lt;td&gt;$5.00&lt;/td&gt;&lt;td&gt;$6.50&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;xx4&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Petite Fauves/First Bite Vol 3 pt 1&lt;/td&gt;

&lt;td&gt;Load 10&lt;/td&gt;

&lt;td&gt;$5.00&lt;/td&gt;&lt;td&gt;$6.50&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;xx5&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Petite Fauves/First Bite Vol 3 pt 2&lt;/td&gt;

&lt;td&gt;Load 11&lt;/td&gt;

&lt;td&gt;$5.00&lt;/td&gt;&lt;td&gt;$6.50&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;xx6&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Seoul Train/Viper Room EP&lt;/td&gt;

&lt;td&gt;Load 13&lt;/td&gt;

&lt;td&gt;$5.00&lt;/td&gt;&lt;td&gt;$6.50&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;xx7&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Petite Fauves/First Bite Vol 4&lt;/td&gt;

&lt;td&gt;Load 14&lt;/td&gt;

&lt;td&gt;$5.00&lt;/td&gt;&lt;td&gt;$6.50&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;xx8&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Jism/Gravity&lt;/td&gt;

&lt;td&gt;Load 18&lt;/td&gt;

&lt;td&gt;$5.00&lt;/td&gt;&lt;td&gt;$6.50&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;xx9&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Doodle Tool/Let It Be&lt;/td&gt;

&lt;td&gt;Load 19&lt;/td&gt;

&lt;td&gt;$5.00&lt;/td&gt;&lt;td&gt;$6.50&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;xx10&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Tired Eyes/Eat Muff&lt;/td&gt;

&lt;td&gt;Load 22&lt;/td&gt;

&lt;td&gt;$5.00&lt;/td&gt;&lt;td&gt;$6.50&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;xx11&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Jism/Blue Fish/Who Are Them?&amp;nbsp;&amp;nbsp;&lt;/td&gt;

&lt;td&gt;Load 23&amp;nbsp;&amp;nbsp;&lt;/td&gt;

&lt;td&gt;$5.00&lt;/td&gt;&lt;td&gt;$6.50&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;xx12&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Henson's Nuts/Feel Space&lt;/td&gt;

&lt;td&gt;Load 25&lt;/td&gt;

&lt;td&gt;$5.00&lt;/td&gt;&lt;td&gt;$6.50&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;xx13&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;tr&gt;&lt;td&gt;Needle Nose/Angry Lemon/BBQ Babies&lt;/td&gt;

&lt;td&gt;Load 28&lt;/td&gt;

&lt;td&gt;$5.00&lt;/td&gt;&lt;td&gt;$6.50&lt;/td&gt;&lt;td&gt;$7.00&lt;/td&gt;

&lt;td&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;xx14&quot; SIZE=&quot;2&quot;&gt;&lt;/td&gt;

&lt;/tr&gt;

&lt;/table&gt;

&lt;h5&gt;RoW = Rest of the World&lt;/h5&gt;

&lt;p&gt;

All prices include postage, packing and handling. Please allow 28 days for delivery in 

the U.S. and 40 days for Europe and the rest of the world.

&lt;/center&gt;

&lt;p&gt;

&lt;hr&gt;

&lt;/center&gt;

&lt;b&gt;Ordering via email&lt;/b&gt;

&lt;pre&gt;

Name         : &lt;INPUT NAME=&quot;name&quot; TYPE=&quot;TEXT&quot; SIZE=&quot;50&quot;&gt;

Number/Street: &lt;INPUT NAME=&quot;numberstreet&quot; TYPE=&quot;TEXT&quot; SIZE=&quot;50&quot;&gt;

Town/City    : &lt;INPUT NAME=&quot;towncity&quot; TYPE=&quot;TEXT&quot; SIZE=&quot;40&quot;&gt;

Post/Zipcode : &lt;INPUT NAME=&quot;postcode&quot; TYPE=&quot;TEXT&quot; SIZE=&quot;12&quot;&gt;

Country      : &lt;INPUT NAME=&quot;country&quot; TYPE=&quot;TEXT&quot; SIZE=&quot;25&quot;&gt;

Phone (optional, U.S. only): &lt;INPUT NAME=&quot;phone&quot; TYPE=&quot;TEXT&quot; SIZE=&quot;15&quot;&gt;

e-mail address: &lt;INPUT NAME=&quot;email&quot; TYPE=&quot;TEXT&quot; SIZE=&quot;40&quot;&gt;

&lt;/pre&gt;

&lt;p&gt;

Once we receive your order, we will contact you by phone, or email, to determine your

payment method. To spped you order along, you can call our toll free 800 number:

&lt;p&gt;

&lt;center&gt;1-800-555-5428&lt;/center&gt;

&lt;p&gt;

and we will match your online order with your method of payment.

&lt;hr&gt;

To submit your order electronically, press: &lt;INPUT TYPE=&quot;submit&quot; VALUE=&quot;Send order now&quot;&gt; -

or to clear everything &lt;INPUT TYPE=&quot;reset&quot; VALUE=&quot;Press this&quot;&gt;

&lt;p&gt;

&lt;hr&gt;

&lt;b&gt;Ordering via fax&lt;/b&gt;

&lt;p&gt;&lt;br&gt;

Fill in this page as for an email order, print it out from your WWW

software (or just write out the relevant details on a piece of paper) and fax it to:

&lt;p&gt;

 (212) 555-7649 

&lt;p&gt;

&lt;hr&gt;

&lt;b&gt;Ordering via normal (postal) (snail) (slow) (boring) mail.&lt;/b&gt;

&lt;p&gt;&lt;br&gt;

Write your order, remebering all the important details (your address is 

quite useful!) and mail it to us at:

&lt;p&gt;

5423 Irvine Drive&lt;br&gt;

PO Box 10010, Emeryville, CA,&lt;br&gt;

90543&lt;br&gt;

United States&lt;br&gt;

&lt;p&gt;

You can send us a cheque or postal order, crossed in pounds sterling (only),

made payable to GOO GOO RECORDS. Please do not send cash.

&lt;center&gt;

&lt;hr&gt;

&lt;/center&gt;

&lt;/BODY&gt;

&lt;/HTML&gt;

</PRE>

</BLOCKQUOTE>

<P>

To help with the speedy processing of the form, three copies of

the member's data are sent via e-mail to Goo Goo Records Central.

A copy is sent to the sales department (sales@googoo.com), so

that they may record the sale; the warehouse (warehouse@googoo.com),

so that the order can be filled, and accounting (accounts@googoo.com),

so that the proper invoices can be issued. This greatly reduces

the interoffice paperwork as well as the time necessary to make

delivery. 

<P>

The script that handles the data from this order form looks something

like this:

<BLOCKQUOTE>

<PRE>

#!/usr/bin/perl



if ($ENV{'REQUEST_METHOD'} EQ 'POST') {

	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

	@pairs=split(/&amp;/, $buffer);



# This is the Name-Value pair splitter.. Put into $FORM array



	foreach $pair (@pairs) {



		($name,$value)=split(/=/,$pair);

		$value=~tr/+/ /;

		$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack(&quot;C&quot;,hex($1))/eg;

		$FORM{$name}=$value;

	}



	open(MAIL, &quot;|mail sales\@www.googoo.com&quot;);

	&amp;pform;

	close(MAIL);

	open(MAIL, &quot;|mail accounting\@www.googoo.com&quot;);

	&amp;pform;

	close(MAIL);

	open(MAIL, &quot;|mail warehouse\@www.googoo.com&quot;);

	&amp;pform;

	close(MAIL);

	if ($FORM{email}) {

		open(MAIL, &quot;|mail $FORM{email}&quot;);

		&amp;pform;

		close(MAIL);

	}





	print &quot;Content-type: text/html\n\n&quot;;

	print &lt;&lt;EOF;

&lt;HTML&gt;

&lt;HEAD&gt;

&lt;TITLE&gt;Thank you for your order!&lt;/TITLE&gt;

&lt;/HEAD&gt;

&lt;BODY&gt;

&lt;H1&gt;Thank you for your order!&lt;/H1&gt;

&lt;HR&gt;

A copy of your order form has been sent to the appropriate people for

processing

and a copy has been sent to your e-mail address for your records.  A GooGoo

representative will contact you shortly regarding your payment method.



&lt;/BODY&gt;

&lt;/HTML&gt;

EOF



}



else {

        print &quot;&lt;HTML&gt;\n&quot;;

        print &quot;&lt;title&gt;Error - Form Error&lt;/title&gt;\n&quot;;

        print &quot;&lt;h1&gt;Error: Form Error&lt;/h1&gt;\n&quot;;

        print &quot;&lt;P&gt;&lt;hr&gt;&lt;P&gt;\n&quot;;

        print &quot;There was an error with the form submission. Please\n&quot;;

        print &quot;contact Imprint at &lt;address&gt;&lt;a

href=\&quot;mailto:web@imprint.uwaterloo.ca\&quot;&gt;web@imprint.uwaterloo.ca&lt;/a&gt;&lt;/address&gt;\n&quot;;

        print &quot;&lt;/HTML&gt;\n&quot;;

	exit;

}



sub pform {



	print MAIL &quot;Subject: Order form\n&quot;;

	print MAIL &quot;\nThe following is an order form received on the Web.\n&quot;;

	print MAIL &quot;\nRequested by:\n\n&quot;;

	print MAIL &quot;\t$FORM{name}\n&quot;;

	print MAIL &quot;\t$FORM{numberstreet}\n&quot;;

	print MAIL &quot;\t$FORM{towncity}\n&quot;;

	print MAIL &quot;\t$FORM{postcode}\n&quot;;

	print MAIL &quot;\t$FORM{phone}\n&quot;;

	print MAIL &quot;\t$FORM{email}\n&quot;;

	print MAIL &quot;\nMisc Items:\n\n&quot;;

	print MAIL &quot;\tHats\t\t\t\t$FORM{hats}\n&quot; if $FORM{hats};

	print MAIL &quot;\tGoogoo Bag\t\t\t$FORM{dispbag}\n&quot; if $FORM{dispbag};

	print MAIL &quot;\tRecord Bag\t\t\t$FORM{recbag}\n&quot; if $FORM{recbag};

	print MAIL &quot;\tT-shirt (G on W)\t\t$FORM{tsgow}\n&quot; if $FORM{tsgow};

	print MAIL &quot;\tT-shirt (G on B)\t\t$FORM{tsgob}\n&quot; if $FORM{tsgob};

	print MAIL &quot;\tT-shirt (B on G)\t\t$FORM{tsbog}\n&quot; if $FORM{tsbog};

	print MAIL &quot;\t1xSlipmat\t\t\t$FORM{oneslip}\n&quot; if $FORM{oneslip};

	print MAIL &quot;\t2xSlipmat\t\t\t$FORM{pairslip}\n&quot; if $FORM{pairslip};

	print MAIL &quot;\nAlbums:\n\n&quot;;

	print MAIL &quot;\tPetite Fauves/First Bite Vol 1\t\t\t$FORM{xx1}\n&quot; if

$FORM{xx1};

	print MAIL &quot;\tTen Days Late/Maiden Voyage EP\t\t\t$FORM{xx2}\n&quot; if

$FORM{xx2};

	print MAIL &quot;\tSuggestive/Advances\t\t\t\t$FORM{xx3}\n&quot; if $FORM{xx3};

	print MAIL &quot;\tPush Up/Heartbreaker\t\t\t\t$FORM{xx4}\n&quot; if

$FORM{xx4};

	print MAIL &quot;\tPetite Fauves/First Bite Vol 3 pt 1\t\t\t$FORM{xx5}\n&quot; if

$FORM{xx5};

	print MAIL &quot;\tPetite Fauves/First Bite Vol 3 pt 2\t\t\t$FORM{xx6}\n&quot; if

$FORM{xx6};

	print MAIL &quot;\tSeoul Train/Viper Room EP\t\t\t$FORM{xx7}\n&quot; if

$FORM{xx7};

	print MAIL &quot;\tPetite Fauves/First Bite Vol 4\t\t\t$FORM{xx8}\n&quot; if

$FORM{xx8};

	print MAIL &quot;\tJism/Gravity\t\t\t\t$FORM{xx9}\n&quot; if

$FORM{xx9};

	print MAIL &quot;\tDoodle Tool/Let It Be\t\t\t$FORM{xx10}\n&quot; if

$FORM{x10};
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -