ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch1/arrays

Text File | 1992-10-18 | 572 b | 18 lines

#!/usr/bin/perl
($red, $green, $blue) = (0..2);
($name,$pw,$uid,$gid,$gcos,$home,$shell) =
    split(/:/, <PASSWD>);
($a[2], $a[0], $a[3], $a[1]) = @growing_things;

@growing_things = ('oats','peas','beans','barley');
@legumes = splice(@growing_things, 1, 2, 'wheat', 'rice', 'corn');

@a = (1..3);        # Same as @a = (1, 2, 3);
@b = (0, @a, 4);    # Same as @b = (0, 1, 2, 3, 4);

@a = (2);           # Same as @a = 2;
@b = (0, @a, 4);    # Same as @b = (0, 2, 4);

@a = ();            # Same as $#a = -1;  i.e. make null list.
@b = (0, @a, 4);    # Same as @b = (0, 4);