WWW : World Wide Wonsama

#!/usr/bin/perl

#경고를 보여준다 (주석 해제 이후 사용)

#use warnings;

#정의 되지 않는 변수를 변형하여 사용하는 것을 막는다.

#일반적으로 my를 지정한 이후 사용해야 한다.

#use strict;

#특정 버전에 기능을 추가하여 사용하도록 한다.

# use 5.010 ==> 5.10버전과 동일함.

# state 구문을 사용 할 수 있음.

# 배열, 해쉬는 사용 불가 ! 변수만 사용 가능함.

use 5.010;

#파일 입력 받기 처리

while(<>){

chomp;

print "It was $_ that I saw!\n";

}

#파일 입력 지정

@ARGV = qw!test.pl!;

while(<>){

chomp;

print $_,"\n";

}

#출력 예제 (목록출력 vs 보간처리출력)

@array =  qw{도적 죽음의기사 마법사 드루이드 성기사 사냥꾼 흑마법사 전사 사냥꾼 주술사};

print @array,"\n";

print "@array","\n";

#괄호의 활용

#print (2+3)의 리턴값인 1에 *4를 곱해 버린다.

#이상한 처리 형태이므로 perl은 (2+3)까지의 결과값을 출력 하기 때문에 5를 화면에 출력한다.

print (2+3)*4,"\n";

#==> 5

#배열과 printf

#@items를 2번 사용하는데 한 번은 스칼라 문맥에서 배열의 개수를 얻고

#또 한번은 목록 문맥에서 배열의 내용을 얻는다.

my @items = qw{apple banana pineapple mango};

my $format = "The characters are :\n".("%10s\n"x@items);

printf $format,@items;

if(!open PASSWD, "/etc/passwd"){

die "error occured : $!";

}

while(<PASSWD>){

#chomp;

print $_;

}