[perl] 2일차 : 기본 입출력

#!/usr/bin/perl

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

#use warnings;

#경고보다 상세한 진단결과를 보여준다. (주석 해제 이후 사용) dianostics.pm 파일이 없는 경우 동작하지 않음.

#use dianostics;

#syntax error : 문자열 끼리만 연결이 가능함.(missing operator)

#print 4x5."\n";

#print "4"x5."\n";

print "4"x"5"."\n";

print 4x"5"."\n";

#결과 : (x는 문자열 반복 연산자)

#44444

print "4"*"5"."\n";

#결과 : (연산자에 따른 자동 캐스팅 활성됨)

#20

print "12xxf4"*"3"."\n";

#결과 :(줄바꿈 함) 

#36

print "12xxf4"*"3\n";

#결과 :(줄바꿈 안함) (숫자 뒤 문자는 무시 됨)

#36

print "\n";

#결과 :(줄바꿈)

$wow = 3;

$wow**=3;

print "$wow\n";

#결과 :

#27

#비교 : 숫자 // 문자

#같음 : == // eq

#같지않음 : != // ne

#작음 : < // lt

#큼 : > // gt

#작거나 같음 : <= // le

#크거나 같음 : >= // ge

if("test" gt "wow"){

print "test is small\n";

}else{

print "test is big\n";

}

#표준 입력 처리

#chomp : 줄바꿈 제거 , 반환 : 제거된 개수

print "input : ";

$line = <STDIN>;

print $line;

print chomp($line);

print $line;

#결과 : (>는 프롬프트를 의미)

#test

#1test>

print "\n";

#while

print "sum (1 ~ N) : ";

$count = 1;

$sum = 0;

$limit = <STDIN>;

while($count<=$limit){

$sum+=$count;

$count+=1;

}

print $sum."\n";