본문 바로가기

perl 예제

[Perl]For, Foreach http://seungngil.tistory.com/entry/Perl%EB%B0%B0%EC%97%B4 문제에, 입력한 숫자의 수를 전부 10개로 하여, 각각에 대해 떨어질수있는지를 판단할것. 또한 그때, 2,3,4, 에 더하여 5와6에도 값이 떨어질 수 있는지를 출력하시오. use strict;use warnings; my @num;my @array = (2, 3, 4, 5, 6); for (my $i = 0; $i < 10; $i++) {print ("Please enter the number.(", $i + 1, ") ");$num[$i] = ;chomp $num[$i];# exceptionif ($num[$i] =~ /[a-zA-Z]/ || $num[$i] eq "") {print ("Not nu.. 더보기
[Perl]절대값 구하기 숫자를 한개 입력하여, 그 수의 절대치를 출력한다. 이것의 입력이 없어질때까지 반복시킨다. use strict;use warnings; my $str; while (1) {print "Please enter the number.(Enter exit at the end) ";$str = ;chomp $str; if ($str eq "exit" || $str eq "") {last;} if ($str =~ /[a-zA-Z]/) {print "Not number.\n";next;} print (abs($str), "\n"); }; 더보기
[Perl]홀수, 짝수 구하기 1부터 15까지의 수를 각각 한행씩, 전부 15행출력한다. 그때, 홀수짝수를 구별을 하기위해, 숫자의 두에 각각 [Even](홀수) 혹은 [Odd](짝수)의 문자열을 첨가. use strict;use warnings; for (my $i = 1; $i 더보기

티스토리툴바