In this tutorial, we will learn about while loop in Perl. We will cover the basics of iterative execution using while loops.
A while loop is a control flow statement that allows code to be executed repeatedly based on a given Boolean condition. The loop runs as long as the condition evaluates to true.
The syntax for the while loop in Perl is:
while (condition) {
# Code block to be executed
}
The while loop evaluates the condition before executing the loop's body. If the condition is true, the code block inside the loop is executed. This process repeats until the condition becomes false.
$i
and initialize it to 1.my $i = 1;
while ($i <= 5) {
print "$i\n";
$i++;
}
1 2 3 4 5
$n
and $sum
.$n
.$sum
to 0.$n
natural numbers.my $n = 10;
my $sum = 0;
my $i = 1;
while ($i <= $n) {
$sum += $i;
$i++;
}
print "Sum of first $n natural numbers is $sum\n";
Sum of first 10 natural numbers is 55
$num
and $rev
.$num
.$rev
to 0.$num
.my $num = 12345;
my $rev = 0;
while ($num != 0) {
my $digit = $num % 10;
$rev = $rev * 10 + $digit;
$num = int($num / 10);
}
print "Reversed number is $rev\n";
Reversed number is 54321