modifyall.pl

来自「This temp directory is used by the JVM f」· PL 代码 · 共 22 行

#!/usr/bin/perl

require "subparseform.lib";
&Parse_Form;

@numbers = split(/,/, $formdata{'number'});
print "Content-type: text/html\n\n";

print "The numbers you entered were:";
foreach $number (@numbers) {
	print "<LI>$number";
	}
	
foreach $number(@numbers) {
	$number = sqrt($number);
	}

print "<P>The square roots of those numbers are: ";

foreach $number(@numbers) {
	print "<LI>$number";
	}