Re: How to save first two columns of an array into another array

On a side note, I just want to point out that the code:

# Find the number of vertices
my @L;

for my $i (0 .. $#S)
{
    for my $j (0 .. $#{$S[$i]})
    {
        push(@L, $S[$i][$j]);
    }
}
[download]

can be simplified down to:

my @L = map { @$_ } @S;
[download]

since it’s just flattening a 2-dimensional list into a 1-dimensional list.

I know only too well how hard it is to switch from thinking in C to thinking in Perl. But persevere, it’s worth the effort!

Hope that helps,

Athanasius <°(((>< contra mundum

Comment on Re: How to save first two columns of an array into another array Select or Download Code

Replies are listed 'Best First'.
Re^2: How to save first two columns of an array into another array by GrandFather (Saint) on Oct 02, 2012 at 20:11 UTC
Or to explore the language just a little more: `my @l; push @l, @$_ for @S;` [download] to show statement modifiers and that push can push multiple elements at a time. Update: Fix array name inconsistency. True laziness is hard work	[reply] [d/l]