[perl] Contando cuantos....

[Adrian Galindo]

Hay una forma menos cochina para contar cuantas veces esta determinado
caracter en una cadena que esto ...

$cadena="uno|dos|tres|||";
$final=$cadena;
$final =~ s/[^\|]//g;
$cuantos = length($final);
print "$cuantos\n";

...???

Esto me regresa un 5 y es mas o menos lo que quiero. En realidad lo que
quiero saber es cuantos campos hay en esa linea, por lo tanto, en este
caso, tengo $cuantos + 1 campos, ya que con esto:

@valores = split (/\|/,$cadena);
$numcampos = scalar(@valores);
print "$numcampos campos en '$cadena'\n"; 

me regresa un 3 ya que no se meten los seis elementos al arreglo, cosa
que si hace cuando no hay campos vacios...

Gracias por su ayuda.
Salu2...

---------------------------
Adrian Galindo Hdez
Unidad de Estadistica
DGESII, UNAM
Ciudad de Mexico





--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl