Re: Sub-setting an Array

The following code, returns a value of 67 . . .

This code doesn't compile. You should always use strict; and use warnings;, even in example code, then you won't forget to include something like the package that holds your max() ...

In order to get the results you want from the array you have, you need:

splice(@array,1,2);
[download]

. . . I'm not sure what the rest of your code is for; please feel free to explain what you are really trying to do. Maybe you were trying to do something like this?

#!/usr/bin/perl
use strict;
use warnings;

my @array = ( 99999, 34, 67, 976, 432, 99999 );

my $elements = @array;

for ( my $offset = 0; $offset < $elements; $offset++ ) {
  for ( my $length = 0; $length <= $elements; $length++ ) {
    my @to_splice = @array;
    my @spliced = splice @to_splice, $offset, $length;
    print "splice(\@array, $offset, $length) : @spliced\n";
  }
}
[download]

Upate: added example

The way forward always starts with a minimal test.

Comment on Re: Sub-setting an Array Select or Download Code

Replies are listed 'Best First'.
Re^2: Sub-setting an Array by Anonymous Monk on Sep 05, 2015 at 00:25 UTC
Thank you for your feedback; I'm trying to make a for loop that will return subsets of length 3 of the original array, starting from the beginning of the array. So, when i start from the 1st element of the original array, since there isn't 2 elements before it, the for loop should only return that one element; when I move to the second iteration, since I'm at the second element of the original array there still isn't 3 elements before it so the code should return an array with the first two elements, and so forth. Does this make sense?	[reply]
Re^3: Sub-setting an Array by 1nickt (Canon) on Sep 05, 2015 at 00:40 UTC
That's an odd way to get subsets of three elements. You can't grab them three at a time and maybe the end one has fewer than three elements? As in the example in the docs for splice? `sub nary_print { my $n = shift; while (my @next_n = splice @_, 0, $n) { say join q{ -- }, @next_n; } } nary_print(3, qw(a b c d e f g h)); # prints: # a -- b -- c # d -- e -- f # g -- h` [download] The way forward always starts with a minimal test.	[reply] [d/l]
Re^4: Sub-setting an Array by Anonymous Monk on Sep 05, 2015 at 00:45 UTC
That's not what I'm trying to do. My subset can over lap, so if the initial array is (a,b,c,d,e,f,g,h) the for loop should return: a a,b a,b,c b,c,d c,d,e d,e,f e,f,g f,g,h	[reply]
Re^5: Sub-setting an Array by AnomalousMonk (Archbishop) on Sep 05, 2015 at 03:23 UTC
Re^5: Sub-setting an Array by 1nickt (Canon) on Sep 05, 2015 at 01:05 UTC
Re^6: Sub-setting an Array by Anonymous Monk on Sep 05, 2015 at 01:17 UTC
Some notes below your chosen depth have not been shown here
Re^4: Sub-setting an Array by Anonymous Monk on Sep 05, 2015 at 00:43 UTC
That's not what I'm trying to do. My subset can over lap, so if the initial array is (a,b,c,d,e,f,g,h) the for loop should return: a a,b a,b,c b,c,d c,d,e d,e,f e,f,g f,g,h	[reply]


Think about Loose Coupling
	PerlMonks