#tempconv.cgi by Tim Brice NWS El Paso
if ($tempconv{corf} eq Celsius) {
if ($tempconv{temp} =~ /-?(\d+)\.?(\d+)|-?(\d+)/) {
$fahrenheit = ($tempconv{temp}*9/5) + 32;
$abs1 = $tempconv{temp} + 273.16;
$~ = "TEMP1";
write;
format TEMP1 =
@###.## degrees Celsius equals:
$tempconv{temp}
@##.# degrees Fahrenheit
$fahrenheit
@##.# Kelvin
$abs1
.
} else {
print "An illegal character was entered.\n";
die
}
}
else {
if ($tempconv{temp} =~ /-?(\d+)\.?(\d+)|-?(\d+)/) {
$celsius = 5/9 * ($tempconv{temp} - 32);
$abs2 = $celsius + 273.16;
$~ = "TEMP2";
write;
format TEMP2 =
@###.## degrees Fahrenheit equals:
$tempconv{temp}
@##.# degreess Celsius
$celsius
@##.# Kelvin
$abs2
.
} else {
print "An illegal charcter was entered.\n";
die
}
}
}