Jaki jest najlepszy sposób na usunięcie wartości z tablicy w Perlu?

Splice usunie elementy tablicy według indeksu. Użyj grep, jak w przykładzie, aby wyszukać i usunąć.

Czy to jest coś, co zamierzasz robić często? Jeśli tak, możesz rozważyć inną strukturę danych. Grep będzie przeszukiwał całą tablicę za każdym razem, a dla dużej tablicy może to być dość kosztowne. Jeśli prędkość jest problemem, możesz rozważyć użycie skrótu.

W twoim przykładzie kluczem będzie Liczba, a wartością liczba elementów tej liczby.

Jeśli zmienisz

my @del_indexes = grep { $arr[$_] eq 'foo' } 0..$#arr;

Do

my @del_indexes = reverse(grep { $arr[$_] eq 'foo' } 0..$#arr);

Pozwala to uniknąć problemu zmiany numeracji tablicy, usuwając najpierw elementy z tyłu tablicy. Umieszczenie splice () W pętli foreach czyści @arr. Stosunkowo proste i czytelne...

foreach $item (@del_indexes) {
   splice (@arr,$item,1);
}

Myślę, że Twoje rozwiązanie jest najprostsze i najbardziej możliwe do utrzymania.

Reszta postu dokumentuje trudność przekształcania testów na elementach w splice offsety. W ten sposób, czyniąc ją bardziej kompletną odpowiedź.

Spójrz na żyrandole musisz przejść, aby mieć wydajny (tj. jednokrotny) algorytm, który zamienia testy na elementach listy w indeksy. I to wcale nie jest takie intuicyjne.

sub array_remove ( \@& ) { 
    my ( $arr_ref, $test_block ) = @_;
    my $sp_start  = 0;
    my $sp_len    = 0;
    for ( my $inx = 0; $inx <= $#$arr_ref; $inx++ ) {
        local $_ = $arr_ref->[$inx];
        next unless $test_block->( $_ );
        if ( $sp_len > 0 && $inx > $sp_start + $sp_len ) {
            splice( @$arr_ref, $sp_start, $sp_len );
            $inx    = $inx - $sp_len;
            $sp_len = 0;
        }
        $sp_start = $inx if ++$sp_len == 1;
    }
    splice( @$arr_ref, $sp_start, $sp_len ) if $sp_len > 0;
    return;
}

Używam:

delete $array[$index];

Perldoc usunąć.

Usuń wszystkie wystąpienia tablicy' something ' if.

Na podstawie odpowiedzi SquareCog:

my @arr = ('1','2','3','4','3','2', '3','4','3');
my @dix = grep { $arr[$_] eq '4' } 0..$#arr;
my $o = 0;
for (@dix) {
    splice(@arr, $_-$o, 1);
    $o++;
}
print join("\n", @arr);

Za każdym razem, gdy usuwamy Indeks z @arr, następnym poprawnym indeksem do usunięcia będzie $_-current_loop_step.

Możesz użyć Grupy bez przechwytywania i listy elementów do usunięcia.

perl -le '@ar=(1 .. 20);@x=(8,10,3,17);$x=join("|",@x);@ar=grep{!/^(?:$x)$/o} @ar;print "@ar"'

Najlepsze jakie znalazłem było połączenie "undef" i "grep":

foreach $index ( @list_of_indexes_to_be_skiped ) {
      undef($array[$index]);
}
@array = grep { defined($_) } @array;

Możesz użyć krojenia tablicy zamiast splicingu. Grep zwraca indeksy, które chcesz zachować i użyć krojenia:

my @arr = ...;
my @indicesToKeep = grep { $arr[$_] ne 'foo' } 0..$#arr;
@arr = @arr[@indiciesToKeep];

Jeśli znasz indeks tablicy, możesz usunąć () . Różnica między splice () I delete() polega na tym, że delete() nie zmienia numeracji pozostałych elementów tablicy.

Podobny kod, który kiedyś napisałem, aby usunąć ciągi nie zaczynające się od SB.1 z tablicy łańcuchów

my @adoSymbols=('SB.1000','RT.10000','PC.10000');
##Remove items from an array from backward
for(my $i=$#adoSymbols;$i>=0;$i--) {  
    unless ($adoSymbols[$i] =~ m/^SB\.1/) {splice(@adoSymbols,$i,1);}
}