Mega Code Archive

 

Categories / Perl / Array

 

Create array with range operator

#!/usr/bin/perl use warnings; use strict; my $max = 20; my @array = (1..$max-1); while (my $element = shift @array) {     push (@array, $max - $element);     sleep 1;      print '*' x $element, "\n";  }