Mega Code Archive

 

Categories / Perl / Data Type

 

A program that contains a floating-point comparison

#!/usr/local/bin/perl  $value1 = 14.3;  $value2 = 100 + 14.3 - 100;  if ($value1 == $value2) {      print("value 1 equals value 2\n");  } else {      print("value 1 does not equal value 2\n");  }