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

[thread]14757[/thread]

Prüfen ob Wert in Liste vorhanden

Leser: 26

Articles: hide open all | hide show old branches

+3 replies
Gast Thorsten

2010-03-02 21:25
Hallo zusammen,

kann mir jemand sagen wie man feststellt ob ein Element in einer Liste (eindimensionales Array) vorhanden ist oder nicht, um es im Nein-Fall hinzuzufügen?
Code (perl): (dl )

1 2

$found |= ("Wert" eq @record) foreach (0..@record); push @{ $record, "Wert" if $found;
Gibt es eine elegantere Methode?

Danke
- Linuxer
  
  2010-03-02 21:45
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Hi,
  
  zum Beispiel so:
  
  Code (perl): (dl )
  
  1 2 3
  
  if ( ! grep { $_ eq 'Wert' } @records ) { push @records, 'Wert'; }
  
  oder so:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  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!
- lichtkind
  
  2010-03-02 22:19
  User since
  2004-03-22
  5730 Artikel
  ModeratorIn + EditorIn
  oder
  
  Code (perl): (dl )
  
  push @record, "Wert" unless "Wert" ~~ @record;
  
  gehts natürlich nur mit 5.10+.n. also sicherheitshalber
  
  Code (perl): (dl )
  
  use 5.10.0;
  
  reinpacken. aber
  
  Code (perl): (dl )
  
  use feature ':5.10';
  
  braucht es nicht
  Last edited: 2010-03-02 22:35:44 +0100 (CET)
  mein zeug:, Leute
  
  Es beginnt immer mit einer Entscheidung.

View all threads created 2010-03-02 21:25.