Perl 조건 판단문

if 시리즈 문은 다음과 같습니다.
if문 구문:

if ( some_expression ){
	true_statement1;
	true_statement2;
	...
}
next_statment;

프로그램이 여기까지 실행되었을 때, 만약someexpression이 진실이면 괄호 안에 있는 다른 문장을 실행합니다.하면, 만약, 만약...expression은 가짜이고, 프로그램은 괄호 안의 문장 블록을 건너뛰고next 를 직접 실행합니다statment.
if else 문 구문:

if ( some_expression ){
	true_statement1;
	true_statement2;
	...
}
else{
	false_statement1;
	false_statement2;
	....
}
next_statment;
...

if elsif else 문 구문:

if ( some_expression_one ){
	one_true_statement1;
	one_true_statement2;
}
elsif ( some_expression_two )｛
	two_true_statement1;
	two_true_statement2;
｝
elsif ( some_expression_three ){
	three_true_statement1;
	three_true_statement2;
}
else{
	all_false_statement1;
	all_false_statement2;
}
next_statment;
...

if 문 예:

#!/usr/bin/perl
 
$number=<>;
chomp($number);
if($number > 0){
	print ("puls
");
}
else{
	if ($number < 0){
		print ("minus
");
	}
	else{
		print ("zero
");
	}
}

unless 문장 unless 문장은if 문장과 반대로 가짜일 때 괄호 속의 문장을 실행합니다.
unless 구문:

unless(some_expression){
	false_statement1;
	false_statement2;
}

unless( some_expression){
	false_statement1;
	false_statement2;
}
else{
	true_statement1;
	true_statement2;
}

예:

#!/usr/bin/perl   
  
$number=<>;
chomp($number);
unless($number != 0){
	print ("zero
");
}
else{
	unless ($number < 0){
		print ("plus
");
	}
	else{
		print ("minus
");
	}
}