if.pl

来自「精通tomcat书籍原代码,希望大家共同学习」· PL 代码 · 共 13 行

#!/usr/bin/perl

require "subparseform.lib";
&Parse_Form;

$food = $formdata{'food'};



if ($food eq "spinach") {
	print "Content-type: text/html\n\n";
	print "You ate spinach, so you get dessert!\n";
}