[Roma.pm] Regex

[Emanuele Zeppieri]

2009/6/21 Francesco Cuccaro <cuccaro.francesco at gmail.com>
>
> Mi rispondo da solo,
> Un mio amcio (che ringrazio) mi ha suggerito questo
>
> my @dummy = '' =~/(?:$re)?($)/;
> print scalar(@dummy)-1;

Ciao Francesco.

Forse riusciamo a sorprendere il tuo amico ;-)

my $count =()= $string =~ /pattern/;

P.S.

Nel tuo esempio (o del tuo amico) c'è una piccola imprecisione, doveva essere:

print scalar @dummy;

senza sottrargli 1, perché vuoi il numero di elementi dell'array, non
l'indice massimo.

Ciao!
-Emanuele