Push array and join : join « Array « Perl






  1. Perl
  2. Array
  3. join

Push array and join

    

#!/usr/bin/perl

use warnings;
use strict;

my $max = 6;
my @array = (1..$max);

while (my $element = shift @array) {
    push (@array,$max - $element);
    print $element, " : ", join(",", @array), "\n";
}








Related examples in the same category

1.Using join function to add separator
2.Join array
3.Joining each element of a list with a newline
4.The join function joins the elements of an array into a single string