20 lines
338 B
Perl
20 lines
338 B
Perl
|
#!C:/perl/bin
|
||
|
|
||
|
for($number = 1; $number <= 3; $number++)
|
||
|
{
|
||
|
print "\nLoop number: $number";
|
||
|
|
||
|
if ($number < 2)
|
||
|
{
|
||
|
print "\n\$number is less than 2\n\n";
|
||
|
}
|
||
|
elsif ($number > 2)
|
||
|
{
|
||
|
print "\n\$number is greater than 2\n\n";
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
print "\n\n\$number equals 2\n\n";
|
||
|
}
|
||
|
}
|