'perl 예제'에 해당되는 글 3건

  1. 2014.11.19 [Perl]For, Foreach
  2. 2014.11.18 [Perl]절대값 구하기
  3. 2014.11.18 [Perl]홀수, 짝수 구하기
Perl2014.11.19 12:30

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] = <STDIN>;

chomp $num[$i];

# exception

if ($num[$i] =~ /[a-zA-Z]/ || $num[$i] eq "") {

print ("Not number.\n");

exit;

}

}


foreach my $temp (0..$#num) {

print ($num[$temp], " = ");

foreach my $elem (0..$#array) {

print ("[", $array[$elem], "]", (($num[$temp] % $array[$elem]) == 0 ? "OK" : "NG"));

if ($elem == $#array) {

print ("\n");

} else {

print (" = ");

}

}

}



3-h.pl


신고

'Perl' 카테고리의 다른 글

[Perl]for, if  (0) 2014.11.19
[Perl]if 비교기호  (0) 2014.11.19
[Perl]For, Foreach  (0) 2014.11.19
[Perl]배열  (0) 2014.11.18
[Perl]절대값 구하기  (0) 2014.11.18
[Perl]홀수, 짝수 구하기  (0) 2014.11.18
Posted by Namseungil
Perl2014.11.18 14:54

숫자를 한개 입력하여, 그 수의 절대치를 출력한다. 이것의 입력이 없어질때까지 반복시킨다.


use strict;

use warnings;


my $str;


while (1) {

print "Please enter the number.(Enter exit at the end) ";

$str = <STDIN>;

chomp $str;


if ($str eq "exit" || $str eq "") {

last;

}


if ($str =~ /[a-zA-Z]/) {

print "Not number.\n";

next;

}


print (abs($str), "\n");

};



3-f.pl


신고

'Perl' 카테고리의 다른 글

[Perl]for, if  (0) 2014.11.19
[Perl]if 비교기호  (0) 2014.11.19
[Perl]For, Foreach  (0) 2014.11.19
[Perl]배열  (0) 2014.11.18
[Perl]절대값 구하기  (0) 2014.11.18
[Perl]홀수, 짝수 구하기  (0) 2014.11.18
Posted by Namseungil
Perl2014.11.18 13:13


1부터 15까지의 수를 각각 한행씩, 전부 15행출력한다. 그때, 홀수짝수를 구별을 하기위해,

숫자의 두에 각각 [Even](홀수) 혹은 [Odd](짝수)의 문자열을 첨가.


use strict;

use warnings;


for (my $i = 1; $i <= 15; $i++) {

print (($i % 2) == 0 ? "[Even]" : "[Odd]", $i, "\n");

}



3-e.pl




신고

'Perl' 카테고리의 다른 글

[Perl]for, if  (0) 2014.11.19
[Perl]if 비교기호  (0) 2014.11.19
[Perl]For, Foreach  (0) 2014.11.19
[Perl]배열  (0) 2014.11.18
[Perl]절대값 구하기  (0) 2014.11.18
[Perl]홀수, 짝수 구하기  (0) 2014.11.18
Posted by Namseungil

티스토리 툴바