Question

How to count backwards (Print the numbers N, N - 1, ..., 0 (included)) in Perl

Answer 1

use strict;
use warnings;

my $n = 5;

for (my $i = $n; $i >= 0; $i--) {
    print "$i ";
}


  
## run:
##
## 5 4 3 2 1 0 
##

 

70+ SQL courses for beginners and professionals

Answer 2

use strict;
use warnings;

my $n = 5;

print "$_ " for reverse (0..$n);

  
## run:
##
## 5 4 3 2 1 0 
##

 

70+ SQL courses for beginners and professionals