Push array and join : join « Array « Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » Array » 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

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.