Good day all,
Have here a temperature conversion program im trying to "perfect" but no
chance, its not working right. The input validation portion is fine, im
satisfied likewise with the conversion to celsius. My problem is
conversion to fahrenheit: the answer is not right so is the temp unit
during printout. The problem must be obvious but i pick-up slow. Can
you help me out and guide me :-)
#!/usr/bin/perl -w
use strict;
print "This is a temperature conversion program.\n";
print "Enter temperature to convert(e.g., 100C, 212F): ";
chomp(my $input = <STDIN>);
if ($input =~ m/^([+-]?\d+)(\.{1}\d+)?[ ]?([cCfF])$/){ #validate input format
my $real_num = $1;
my $temp_unit = $3;
my ($in_c, $in_f) = ($real_num, $real_num);
if ($temp_unit eq 'C' or 'c'){
$in_f = ($real_num * 9 / 5) + 32;
printf "%.2f C is %.2f F\n", $real_num, $in_f;
} else { #it must be F if not C
$in_c = ($real_num - 32) * 5 / 9;
printf "%.2f C is %.2f F\n", $real_num, $in_c;
}
} else {
#input failed validation check
print "Error is detected in input\n";
print "input format is number, optional space then letter C or F, case
insensitive, in exact order\n";
print "Please check your input and try again.\n";
}
Staring at the code trying to debug i realize is no nice exercise.
But i want to learn, so no excuse. TIA.
--
Regards,
Eri Mendz
Using Perl, v5.8.0
Linux 2.4.19-16mdk i686
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
