#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 } } }