$hash{$v} contiene las veces que ha aparecido el valor $v.
++$hash{$v} incrementamos en una las veces que ha aparecido el valor $v.
my $c = ++$hash{$v} almacenamos ese nuevo valor en $c.
Y para encontrar el mayor valor dentro de un
array (no probado):
Using perl Syntax Highlighting
my @array = (4
,5
,7
,2
);
my $maxpos = 0; # En dónde. En principio, el primero
for (my $i = 0; $i < @array; $i++) { # recorremos todos los índices
if ($array[$i] > $array[$maxpos]) { # si hemos encontrado un valor mayor en la posición $i,
$maxpos = $i; # actualizamos la posición del más popular, a ella.
}
}
print "La posición del más alto es $maxpos\n";Coloreado en 0.006 segundos, usando
GeSHi 1.0.8.4