nach ref suchen in array - #56778 (Allgemeines zu Perl)

Ronnie

2005-07-28 15:29

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my @list = ( [1, 'joe', 28, 'm'], [2, 'jane', 31, 'w'] );

print "Joe exists!\n" if grep { $_->[1] eq 'joe'} @list;
print "Tim exists!\n" if grep { $_->[1] eq 'tim'} @list;

@strat: grep bricht AFAIR im skalaren kontext auch ab, so das man kein for/last-Konstrukt machen muss.

EDIT: Nachgeschaut grep liefert im skalaren Kontext die Anzahl der Treffer zurück. for/last kann also schneller sein bei großen Listen.\n\n