Help for this page

Select Code to Download


  1. or download this
    my $array = [qw(1 2 3)];
my $array_len = @$array;

# $array_len == 3
  2. or download this
    use constant STEPPER_SEQUENCE => [
    [qw(1 0 0 1)],
...
    [qw(0 0 1 1)],
    [qw(0 0 0 1)],
];
  3. or download this
    use warnings;
use strict;
...
my $aref = [qw(1 2 3)];

say "aref ok" if @$aref == 3;
  4. or download this
    @{ STEPPER_SEQUENCE }
@( STEPPER_SEQUENCE )
(STEPPER_SEQUENCE)
@STEPPER_SEQUENCE
etc, etc, etdc