'perl subroutine'에 해당되는 글 2건

  1. 2014.12.19 [Perl] 홀수 짝수 Subroutine
  2. 2014.12.19 [Perl] Subroutine
Perl2014.12.19 15:28

전달된 1개의 인수의 짝수홀수를 조사하여, 홀수라면 [Odd], 짝수라면 [Even]이라고 출력하는 서브루틴을 작성하여, http://seungngil.tistory.com/entry/Perl%ED%99%80%EC%88%98-%EC%A7%9D%EC%88%98-%EA%B5%AC%ED%95%98%EA%B8%B0

의 과제를 그 서브루틴을 사용해도록 변경하여라. 


use strict;

use warnings;


my $num;


print "Please enter the number. ";


$num = <STDIN>;

chomp $num;


OddEven ($num);


sub OddEven {

my $num = shift;

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

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

}

}


7-c.pl


신고

'Perl' 카테고리의 다른 글

[Perl] hanoi  (0) 2014.12.19
[Perl] 재귀함수  (0) 2014.12.19
[Perl] 홀수 짝수 Subroutine  (0) 2014.12.19
[Perl] Subroutine parameter  (0) 2014.12.19
[Perl] Subroutine  (0) 2014.12.19
[Perl]STDIN, while, for, if  (0) 2014.11.19
Posted by Namseungil
Perl2014.12.19 14:59

전달된 한개의 인수의 절대값을 값으로서 되돌려주는 서브루틴을 작성하여, 

http://seungngil.tistory.com/entry/perl-%EC%A0%88%EB%8C%80%EA%B0%92-%EA%B5%AC%ED%95%98%EA%B8%B0

를 그 서브루틴을 사용하게 변경하여라.


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 (Absolute($str), "\n");
};

sub Absolute {
    my $str = shift;

    return abs($str);
}


신고

'Perl' 카테고리의 다른 글

[Perl] 홀수 짝수 Subroutine  (0) 2014.12.19
[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
Posted by Namseungil