본문 바로가기

perl for

[Perl]STDIN, while, for, if http://seungngil.tistory.com/entry/Perlfor-if에서, 입력하는 숫자를 10개가 아닌, 입력이 없어질때까지로 할것. 또한, while문, for문, if문은 각각 하나씩 사용하게된다. use strict;use warnings; my $num;my $result;my @array = (2, 3, 4, 5, 6); for (;;) {print ("Please enter the number.(Enter exit at the end) ");$num = ;chomp $num; if ($num =~ /[a-zA-Z]/ || $num eq "") {exit;} $result = ($num . " = ");my $j = 0;while ($j < scalar(@array)) {$resu.. 더보기
[Perl]for, if http://seungngil.tistory.com/entry/PerlFor-Foreach를, for문은 2개, if문은 1개를 사용한 프로그램에서 풀어볼것. use strict;use warnings; my @num;my @array = (2, 3, 4, 5, 6);my $result; for (my $i = 0; $i < 10; $i++) {print ("Please enter the number.(", $i + 1, ") ");$num[$i] = ;chomp $num[$i]; $result .= ($num[$i], " = ");if ($num[$i] =~ /[^a-zA-Z]/ || $num[$i] ne "") {for (my $j = 0; $j < scalar(@array); $j++) {$resu.. 더보기
[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.. 더보기