个性化阅读
专注于IT技术分析

Perl if-else语句

本文概述

Perl语言的if语句用于根据条件执行操作。通过使用if-else语句, 你可以执行条件为true或false的操作。 Perl支持各种类型的if语句:

  • If
  • if else
  • if else if

Perl If示例

如果条件为true, 则使用Perl单次if语句执行代码。 if语句的语法如下:

if(expression){  
//code to be executed  
}

Perl中if语句的流程图

Perl中的if语句

让我们看一下Perl语言if语句的简单示例。

$a = 10;
if( $a %2==0 ){
    printf "Even Number\n";
}
}

输出

Even Number

在这里, 输出是偶数, 因为我们给定输入为10。


Perl If-else示例

如果条件为true或false, 则使用Perl if-else语句执行代码。 if-else语句的语法如下:

if(expression){
//code to be executed if condition is true
}else{
//code to be executed if condition is false
}

Perl中if-else语句的流程图

Perl中的if-else语句

让我们看一下使用Perl语言中的if-else语句的偶数和奇数的简单示例。

$a = 10;
if( $a %2==0 ){
    printf "Even Number\n";
}else{ 
    printf "Odd Number\n";
}

输出

Even Number

在这里, 输入是偶数, 因此输出是偶数。


用户输入的Perl If-else示例

在此示例中, 我们将使用标准输入(<STDIN> / <>)从用户那里获取输入。

print "Enter a Number?\n";
$num = <>;
if( $num %2==0 ){
    printf "Even Number\n";
}else{ 
    printf "Odd Number\n";
}

输出

Enter a Number?
5
Odd Number
Enter a Number?
4
Even Number

在第一个输出中, 用户输入的数字5是奇数。因此, 输出是奇数。

在第二个输出中, 用户输入的数字4是偶数。因此, 输出是偶数。


Perl If else-if示例

Perl if else-if语句从多个条件中执行一个代码。 if else-if语句的语法如下:

if(condition1){
//code to be executed if condition1 is true
}else if(condition2){
//code to be executed if condition2 is true
}
else if(condition3){
//code to be executed if condition3 is true
}
...
else{
//code to be executed if all the conditions are false
}

Perl中if else-if语句的流程图

Perl中的if-else-if语句

下面给出了Perl语言中的if else-if语句的示例。

print "Enter a Number to check grade\n";
$num = <>;
if( $num < 0 || $num > 100){
    printf "Wrong Number\n";
}elsif($num >= 0 && $num < 50){ 
    printf "Fail\n";
}elsif($num >= 0 && $num < 60){ 
    printf "D Grade\n";
}elsif($num >= 60 && $num < 70){ 
    printf "C Grade\n";
}elsif($num >= 70 && $num < 80){ 
    printf "B Grade\n";
}elsif($num >= 80 && $num < 90){ 
    printf "A Grade\n";
}elsif($num >= 90 && $num <= 100){ 
    printf "A+ Grade\n";
}

输出

Enter a Number to check grade
66
C Grade
Enter a Number to check grade
2
Wrong Number
赞(0)
未经允许不得转载:srcmini » Perl if-else语句

评论 抢沙发

评论前必须登录!