'perl if'에 해당되는 글 3건

  1. 2014.11.19 [Perl]STDIN, while, for, if
  2. 2014.11.19 [Perl]for, if
  3. 2014.11.19 [Perl]if 비교기호
Perl2014.11.19 13:14

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

chomp $num;


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

exit;

}


$result = ($num . " = ");

my $j = 0;

while ($j < scalar(@array)) {

$result .= ("[" . $array[$j] . "]" . (($num % $array[$j]) == 0 ? "OK" : "NG"));

$j++;

}

$result .= "\n";


print ($result);

}



3-j.pl


신고

'Perl' 카테고리의 다른 글

[Perl] Subroutine parameter  (0) 2014.12.19
[Perl] Subroutine  (0) 2014.12.19
[Perl]STDIN, while, for, if  (0) 2014.11.19
[Perl]for, if  (0) 2014.11.19
[Perl]if 비교기호  (0) 2014.11.19
[Perl]For, Foreach  (0) 2014.11.19
Posted by Namseungil
Perl2014.11.19 12:58

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

chomp $num[$i];


$result .= ($num[$i], " = ");

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

for (my $j = 0; $j < scalar(@array); $j++) {

$result .= ("[" . $array[$j] . "]" . (($num[$i] % $array[$j]) == 0 ? "OK" : "NG"));

}

}

$result .= "\n";

}


print ($result);



3-i.pl


신고

'Perl' 카테고리의 다른 글

[Perl] Subroutine  (0) 2014.12.19
[Perl]STDIN, while, for, if  (0) 2014.11.19
[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
Posted by Namseungil
Perl2014.11.19 12:56

if 문장의 판정은 수의 비교와 문자열 비교를 수행하지만, 그 양자에서 표현이 다릅니다.

수치문자열의미
$ x == $ y$ x eq $ y동일한 ( eq ual)
$ x! = $ y$ x ne $ y같지 않음 ( N OT E qual)
$ x <$ y$ x lt $ y$ x는 $ y보다 작음 ( L ESS T han)
$ x> $ y$ x gt $ y$ x는 $ y보다 ( g reater T han)
$ x <= $ y$ x le $ y$ x는 $ y 이하 ( L ESS than E qual to)
$ x> = $ y$ x ge $ y$ x는 $ y 이상 ( g reater than E qual to)
$ x <==> $ y$ x cmp $ y$ x와 $ y가 같으면 0 
$ x보다 $ y가 작 으면 -1 
$ x보다 $ y가 크면 1 
C O MP are)


신고

'Perl' 카테고리의 다른 글

[Perl]STDIN, while, for, if  (0) 2014.11.19
[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
Posted by Namseungil

티스토리 툴바