Prüfen ob Wert in Liste vorhanden - #133949 (Allgemeines zu Perl)

Linuxer

2010-03-02 21:45

User since
2006-01-27
3875 Artikel
HausmeisterIn

user image

Hi,

zum Beispiel so:

Code (perl): (dl )

1
2
3

if ( ! grep { $_ eq 'Wert' } @records ) {
  push @records, 'Wert';
}

oder so:

Code (perl): (dl )

use List::Util qw( first );
if ( ! first { $_ eq 'Wert' } @records ) {
  push @records, 'Wert';
}

http://search.cpan.org/perldoc?List::Util

edit: Negation eingefügt.
Last edited: 2010-03-02 21:50:10 +0100 (CET)

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!