Charles K. Clarkson wrote:
Andrew Gaffney <[EMAIL PROTECTED]> wrote:
: : Charles K. Clarkson wrote:
: > : > I don't understand what result you want to assign to
: > the original array ref. Give us an example of what you want
: > to end up with and we can get you there.
: > : > Starting with this:
: > : > : my $array1 = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, : 13, 14, 15];
: > : > End up with:
: > : > $array1 = ???
: > $array2 = ???
: > $array3 = ???
: : I was just using those as temporary variables. Basically, I
: want to end up with an array that is [0, 1, 2, 3, 4, 5, 7, 8,
: 9, 10, 11, 12, 13, 14, 15] (missing the 7th element in this
: case). I'm just trying to figure out how to remove an
: arbitrary element from an array and not leave an empty space.
#!/usr/bin/perl
use strict; use warnings; use Data::Dumper 'Dumper';
my $array1 = [0 .. 15];
print Dumper $array1;
splice @$array1, 6, 1;
print Dumper $array1;
I've modified your code to be more like it is in my program:
#!/usr/bin/perl
use strict; use warnings; use Data::Dumper 'Dumper';
my $array1 = ['test1', 'test2', 'test3', 'test4', '!test5', 'test6', 'test7'];
print Dumper $array1;
for my $lv (0..$#{$array1}) { splice @$array1, $lv, 1 if($array1->[$lv] =~ /^!/); }
print Dumper $array1;
This doesn't quite work because I'm removing elements from the array I'm looping through. What would be the best way to take care of this? Would it work to set elements to remove to undef and then remove them afterwards by iterating through the array backwards (to not change the array indexes relative to the beginning)?
for my $lv (0..$#{$array1}) { $array1->[$lv] = undef if($array1->[$lv] =~ /^!/); }
for my $lv ($#{$array1}..0) { splice @$array1, $lv, 1 if(! defined $array1->[$lv]); }
Would this work as I think it would?
To answer myself: No. But the following works:
for my $lv (0..$#{$array1}) {
$array1->[$lv] = undef if($array1->[$lv] =~ /^!/);
}for my $lv (-($#{$array1})..0) {
$lv = abs($lv);
if(! defined $array1->[$lv]) {
splice @$array1, $lv, 1;
}
}Perl wouldn't let me count backwards in a for() loop, so I worked around it by negatizing the start and using abs() to convert it back to the positive array index. It worked perfectly.
-- Andrew Gaffney Network Administrator Skyline Aeronautics, LLC. 636-357-1548
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
