섭씨 화씨 변환 공식, 온도 환산하는 펄 소스; Perl Celsius Fahrenheit

#!/usr/bin/perl
use strict; use warnings;

my $C; # 섭씨 온도 값이 저장될 변수 선언
my $F; # 화씨 온도 값이 저장될 변수 선언

######################################################
# 섭씨를 화씨로 변환
# 공식: 화씨온도 = (섭씨온도 × 1.8) + 32
######################################################
$C = 38; # 섭씨 38도는 화씨로 몇도인지 구하기

$F = $C * 1.8 + 32;
print "섭씨 $C도가, 화씨로는 $F도\n";
# 출력 결과: 섭씨 38도가, 화씨로는 100.4도



######################################################
# 화씨를 섭씨로 변환
# 공식: 섭씨온도 = (화씨온도 - 32) ÷ 1.8
######################################################
$F = 100; # 화씨 100도는 섭씨로 몇도인지 구하기

$C = ($F - 32) / 1.8;
print "화씨 $F도가, 섭씨로는 $C도\n";
# 출력 결과: 화씨 100도가, 섭씨로는 37.7777777777778도


# 소수점 이하 첫째 자리까지만 출력하려면 다음과 같이 합니다.
printf("화씨 %.1f ℉가, 섭씨로는 %.1f ℃\n", $F, $C);
# 출력 결과: 화씨 100.0 ℉가, 섭씨로는 37.8 ℃