day 1.

nutshell 시리즈 따라서 공부하기, 1일차

Perl Script : Perl 문과 정의의 묶음을 파일에 집어 넣은 것

• Perl 시작 

#!/usr/bin/perl

• 주석 : 파운드기호(#) 이용, (No multiple-line comment) 

• Examples : Hello World

#!/usr/bin/perl -w 

print ("Hello, world!\n");

• #!/usr/bin/perl -w
• -w : warning (추가적인 경고메시지 생성)
• print(); : 내장함수

• Examples : 스칼라 변수를 이용한 Hello World

#!/usr/bin/perl -w

print "What is your name?";

$name=<STDIN>;

chomp($name);

print "Hello, $name\n"; 

• $name : name 이란 이름을 갖는 스칼라 변수
• <STDIN> 으로 입력받은 변수 값은 c의 string 처럼 읽어오게 됨 (Ex. "abcd\n" ) 식으로 읽어오게 됨
• chomp() : 문자열의 \n 제거하는 기능

• Examples : If-else stmt 이용하기

#!/usr/bin/perl -w

print "What is your name?";

$name=<STDIN>;

chomp($name);

if($name eq "Randal"){

    print "Hello, Randal! How good of you to be here!\n";

}else{

    print "Hello, $name\n"; #common greeting

}   

• eq 연산자 : equal

• Examples : while stmt 이용하기

while($guess ne $secretword)

{

    print "Wrong, Try again! what is the secret word? ";

    $guess=<STDIN>;

    chomp($guess);

}

• ne 연산자 : not equal

• Examples : 리스트 / 배열

@words=("minji","min","ji");

# same as @words=qw(minji min ji);

...

$i=0;

if( $words[$i] eq $guess )

...

• 배열 : @로 시작하는 변수 (@로 시작하기때문에 스칼라 변수와 구분 가능)
• 배열 선언 방법 2가지 (위 네모박스 참고)
• 개별적인 선언 혹은 qw()연산자 이용
• words[0] = "minji", words[1] = "min", words[2] = "ji"

• Examples : 해시

%words = qw( 

        alice   strange

        bob     rice

        clare   blare

        );

$person = "alice";

$words{$person};

$words{bob};