Perl: 거침없이 배우는 펄 - Chapter2 스칼라 데이터

이 포스트의 목적

이 포스트는 '거침없이 배우는 펄(Learning Perl 5/e)' 을 읽고 느낀점과 연습문제를 푼 기록을 남기기 위해서 작성하였다.



연습문제 1.

원의 반지름이 12.5일 때 원주를 구하는 프로그램을 작성하세요. 원주는 2PI 에 반지름을 곱한 값입니다.

연습문제 1번을 풀면서 Global symbol "$pi" requires explicit package name at ./hello.pl line 7. 라는 에러가 났었다. 에러가 난 원인은 전역변수를 사용할 때 패키지 이름을 적어주지 않았기 때문인데, 변수 이름 앞에 my를 붙여주니 해결되었다. 아마도 Perl에서 OOP적 구현을 위해서 C++의 namespace같은 것을 이렇게 구현하지 않았나 추측해 본다.

#!/usr/bin/perl

use strict;
use warnings;

my $pi = 3.141592654;
my $val = 12.5 * $pi * 2;

print "원주율은 $val입니다.\n";

원주율은 78.53981635입니다.

연습문제 2.

이전 연습문제의 프로그램을 수정해서 프로그램을 실행한 사용자로부터 프롬프트에서 반지름 값을 입력받도록 합니다. 그래서 사용자가 12.5의 반지름을 입력하면, 이전 연습문제의 결과와 같은 값이 나와야 합니다.


분명히 키 입력을 받을 때 줄바꿈 문자도 같이 들어올텐데 chomp를 쓰는게 맞는지 안써도 되는건지 고민된다. 좀 더 견고하게 프로그램하려면 입력값이 문자열인지 숫자인지부터 검사해야겠지...

#!/usr/bin/perl

use strict;
use warnings;

my $pi = 3.141592654;
chomp(my $input = <stdin>);
my $val = $input * $pi * 2;

print "원주율은 $val입니다.\n";

연습문제 3.

이전의 연습문제 프로그램을 수정해서 사용자가 0 이하의 값을 입력하면 원주값을 음수가 아닌 0이 되도록 하세요.

#!/usr/bin/perl

use strict;
use warnings;

my $pi = 3.141592654;
my $input = <stdin>;

if($input lt 0) {
    $input = 0;
}
my $val = $input * $pi * 2;

print "원주율은 $val입니다.\n";

연습문제 4

프롬프트에서 숫자 두 개를 별도의 줄에서 입력을 읽어 들인 후 두 개의 숫자를 곱한 값을 출력하는 프로그램을 작성하세요.

#!/usr/bin/perl

use strict;
use warnings;

my $read_first = <STDIN>;
my $read_second = <STDIN>;

print $read_first * $read_second."\n";

연습문제 5

프롬프트에서 문자열과 숫자를 별도의 줄에서 입력을 읽어 들인 후 숫자의 수만큼 문자열을 다른 행에 출력하는 프로그램을 작성하세요.

#!/usr/bin/perl

use strict;
use warnings;

print "Input string: ";
chomp(my $read_string = <STDIN>);
print "Input number: ";
my $read_number = <STDIN>;

print "<result>\n";
print $read_string x $read_number;