Centralisation des mémos



[Perl] in_array - Indique si une valeur appartient à un tableau

Ajouté par BoboTiG le 28/01/2011 à 19:09

# ---------------------------------------------------------------------- # Fonction : in_array # Objectif : check if a variable is into an array # Entries : # - (string)variable # - (array)checked_array # Returns : (int)1|0 # Update : 20100728 # sub in_array { my (@argz) = @_; my $var = shift @argz; foreach ( @argz ) { return 1 if ( $_ eq $var ); } return 0; } #end in_array --------------------------------------------------------

moc.liamg@gitobob - Accueil - Rechercher - Proposer un mémo - 192 mémos (1)