Befehl um leere Listeneinträge zu löschen?

Computer: Software & Programmierung Perl & CGI
#1

Hi,

ich habe leider gerade mein PERL Buch nicht zur Hand. Gibt es einen Befehl womit ich leere „Skalare“ aus einer Liste löschen kann.

Nehmen wir an in @Daten gibt es 8 Einträge von denen sind §Daten[5-8] leer wie kann ich diese autmoatisch löschen?

Danke und Grüsse

André Strauch

#2

Hallo Andre,

ich habe leider gerade mein PERL Buch nicht zur Hand. Gibt es
einen Befehl womit ich leere „Skalare“ aus einer Liste löschen
kann.

Nehmen wir an in @Daten gibt es 8 Einträge von denen sind
§Daten[5-8] leer wie kann ich diese autmoatisch löschen?

@arr=("a","b","","d", undef);
#filtert undefinierte und falsche Werte:
@arr\_neu=grep{ $\_ ne ""; } @arr;

Gruss,

-Andreas.

#3

Hi,

danke das funktioniert schonmal, noch eine andere Frage, wenn ich ein Listenelemnt löschen will und ich weiß genau welches, wie kann ich das machen. Also nicht den Inhalt löschen sondern das ganze element entfernen. Habe was von „splice“ gehört kann aber nirgends eine Beschreibung finden.

Danke

Gruß

André Strauch

#4

Moin,

danke das funktioniert schonmal, noch eine andere Frage, wenn
ich ein Listenelemnt löschen will und ich weiß genau welches,
wie kann ich das machen. Also nicht den Inhalt löschen sondern
das ganze element entfernen. Habe was von „splice“ gehört kann
aber nirgends eine Beschreibung finden.

Wenn Du einen Perl-Interpreter am Laufen hast, gibt es
Infos mit: „perldoc -f split“.

Trotzdem hier die Antwort auf dein split-Problem:

# Array mit 5 Elementen
my @arr=("a","b","", undef, "e");
my $arr\_c=scalar @arr;
print "$arr\_c: @arr\n";

# 3. und 4. Element (Offset 2, Laenge 2) loeschen:
my @geloescht=splice @arr,2,2;
my $arr\_nc=scalar @geloescht;

$arr\_c=scalar @arr;
print "$arr\_c: @arr\n";
print "$arr\_nc: @geloescht\n";

Gruss,
-Andreas.

#5

das ganze element entfernen. Habe was von „splice“ gehört kann
aber nirgends eine Beschreibung finden.

siehe perldoc

perldoc -f splice

splice ARRAY,OFFSET,LENGTH,LIST
splice ARRAY,OFFSET,LENGTH
splice ARRAY,OFFSET
splice ARRAY

Removes the elements designated by OFFSET and LENGTH from an array, and replaces them with the elements of LIST, if any. In list context, returns the elements removed from the array. In scalar context, returns the last element removed, or `undef’ if no elements are removed. The array grows or shrinks as
necessary. If OFFSET is negative then it starts that far from the end of the array. If LENGTH is omitted, removes everything from OFFSET onward. If LENGTH is negative, leaves that many elements off the end of the array. If both OFFSET and LENGTH are omitted, removes everything.

The following equivalences hold (assuming `$[ == 0’):

push(@a,$x,$y) splice(@a,@a,0,$x,$y)
pop(@a) splice(@a,-1)
shift(@a) splice(@a,0,1)
unshift(@a,$x,$y) splice(@a,0,0,$x,$y)
$a[$x] = $y splice(@a,$x,1,$y)

Example, assuming array lengths are passed before arrays:

sub aeq { # compare two list values
my(@a) = splice(@_,0,shift);
my(@b) = splice(@_,0,shift);
return 0 unless @a == @b; # same len?
while (@a) {
return 0 if pop(@a) ne pop(@b);
}
return 1;
}
if (&aeq($len,@foo[1…$len],0+@bar,@bar)) { … }