24 lines
540 B
Perl
24 lines
540 B
Perl
|
# if (Expression) {Code Segment}
|
||
|
|
# if (Expression) {Code Segment} else {Code Segment}
|
||
|
|
# if (Expression) {Code Segment} elsif {Code Segment} ... else {Code Segment}
|
||
|
|
|
||
|
|
#!/usr/local/bin/perl -w
|
||
|
|
|
||
|
|
while (<STDIN>)
|
||
|
|
{
|
||
|
|
chomp;
|
||
|
|
|
||
|
|
if ($_ < 10)
|
||
|
|
{
|
||
|
|
print "$_ is less than 10.\n";
|
||
|
|
}
|
||
|
|
elsif ($_ < 20)
|
||
|
|
{
|
||
|
|
print "$_ is between the values of 10 and 19.\n";
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
print "$_ is greater than or equal to 20.\n";
|
||
|
|
}
|
||
|
|
}
|