note
le
My solution (clumsy as usual):
<code>
my @array = qw( ...);
my @remindexes = qw( ... );
my %remindexes;
my @newarray;
for (@remindexes) {
$remindexes{$_}++;
}
for (my $i = 0; $i <= $#array; $i++) {
push @newarray, $array[$i] if !$remindexes{$i};
}
</code>
Of course, if you would setup the indexes to remove into a hash from the beginning, you could omit the first step.
29451
29451