indietro

Per trovare il primo elemento di un array che soddisfa una condizione, potete utlizzare la funzione first() nel modulo List::Util, fornita con il Perl 5.8. Questo esempio trova il primo elemento che contiene "Perl".

	use List::Util qw(first);

	my $elemento = first { /Perl/ } @array;

Se non potete usare List::Util, potete scrivervi un ciclo per fare la stessa cosa. Una volta che avete trovato l'elemento, fermate il ciclo con last.

	my $trovato;
	foreach ( @array )
		{
		if( /Perl/ ) { $trovato = $_; last }
		}

Se volete l'indice dell'elemento, potete iterare sugli indici e controllare l'elemento dell'array ad ogni indice fino a che non trovate quello che verifica la condizione.

	my( $trovato, $indice ) = ( undef, -1 );
	for( $i = 0; $i < @array; $i++ )
		{
		if( $array[$i] =~ /Perl/ )
			{
			$trovato = $array[$i];
			$indice = $i;
			last;
			}
		}

vedi in inglese