Re^3: How Perl can push array into array and then how retrieve

by choroba (Cardinal)

on Nov 25, 2021 at 14:16 UTC ( [id://11139117]=note: print w/replies, xml )

Need Help??

There is more than one way to do it.

You can compute calculate the numbers from a simple sequence:

my @f;
for my $i (0 .. 20) {
    my @e = (2 * $i, 2 * $i + 1);
    push @f, \@e;
}
print map "(@$_)", @f
[download]

or you can use the C-style loop to skip over the unwanted numbers:

for (my $i = 0; $i <= 40; $i += 2) {
    my @e = ($i, $i + 1);
    push @f, \@e;
}
[download]

or you can use grep to filter the numbers you want:

for my $i (grep 0 == $_ % 2, 0 .. 40) {
    my @e = ($i, $i + 1);
    push @f, \@e;
}
[download]

etc.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re^3: How Perl can push array into array and then how retrieve Select or Download Code

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://11139117]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others browsing the Monastery: (3)

As of 2024-04-20 01:37 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found