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 --------------------------------------------------------