Websphere Admin Zone: Perl

Showing posts with label Perl. Show all posts

Put one array into itself

#!/usr/bin/perl -w



use strict;



my @array2;



@array2 = (3, 5, 7, 9);

@array2 = (1, @array2, 11);

print "@array2\n";

Put one array into another array as an element :

#!/usr/bin/perl -w



use strict;



my @array1 = (1, 2, 3);

my @array2;

@array2 = (@array1, 4, 5, 6);

print "@array2\n";

Home