Foro - Perl en Español

* Dividir la línea por la expresión regular \w+ quiere decir que tomará a las palabras como separadores y devolverá lo que no es palabra como elementos, y aquí hay que prestar mucha atención a lo que hacemos y cómo funciona todo:
Vemos que sale 6, que parece que son el número de palabras de la línea y creemos que split ha contado las palabras. Pero veamos exactamente qué es lo que ha dividido split:
Observemos:

• hay 5 espacios, igual que en la frase que le hemos dado
• pero el primer elemento está vacío (es un string vacío) (fijarse que está entre el '>' y el primer '.').
• así que el número de elementos es 6.

Hemos llegado a contar 6 pero, ¿por qué?. Pues porque (primera frase en la documentación de split) se preservan los posibles campos vacíos que haya al principio y se desechan los del final. Los 'campos' aquí son las no-palabras. Como la frase empieza por una palabra eso quiere decir que delante de ella hay una no-palabra (de longitud 0, pero la hay). Le decimos a split que parte por las palabras, así que la no-palabra del principio es el primer elemento que nos devuelve.

Se verá más claro si la frase empieza por un espacio.

Así que hay que tener cuidado: hemos llegado a la solución, pero hay que entender cómo.

* Para el caso de que el texto tenga varias líneas, has optado primero por la opción de leerlo entero con @texto=<TEXTO>. Pero luego se lo pasas a split, y éste te devuelve un 0. ¿Por qué?. Una vez más conviene hacer un análisis minucioso de lo ocurrido:
Esto es lo que ocurre: @texto es tomado en contexto escalar, por lo que es un '4' (tiene cuatro elementos, por las cuatro líneas del texto). Y no es eso lo que queremos.

Una solución sería juntar las 4 líneas en una sola con un join('',@texto), y entonces split nos devolverá 25 (24 palabras que tiene el texto más la primera invisible).

Y la otra solución es procesar cada línea por separado, por ejemplo con un bucle foreach por @texto o un bucle while por <TEXTO> y llevar un contador de palabras encontradas en cada línea, para luego pintarlo al final.

Zeokat escribiste:Por cierto a ver si alguien me puede aclarar qué es lo que hace exactamente la función scalar. En la documentación pone:

Código: Seleccionar todo

"Forces EXPR to be interpreted in scalar context and returns the value of EXPR"
<------->Traducido<--------->
"Fuerza una expresión a ser interpretada en un contexto escalar y devuelve el valor de la expresión"

Perl tiene, básicamente, dos modos de trabajar, dos contextos: escalar y lista. Siempre, a la hora de programar, hay que tener en cuenta en qué contexto se están desarrollando las operaciones. Ver perlglossary, context.

Zeokat escribiste:Parece que devuelve el número de elementos del array tal y como hacía $#nombre_del_array.

Que no, que no lo has entendido. Que no es lo mismo el NÚMERO de elementos que el valor del ÍNDICE del ÚLTIMO elemento.

Zeokat escribiste:Lo que entendí del post que puso anteriormente creating021 es que el uso de scalar es más rápido, cómodo o más adecuado... o algo así... ¿estoy en lo cierto?

Es más claro, sí. Para comprobar si es más rápido habría que hacer un Benchmark. En situaciones normales no es necesario usarlo. Por ejemplo, cuando hacer alguna operación matemática, Perl pasa al contexto escalar el array por lo que siempre nos devuelve el número de sus elementos, y entonces no es necesario usar scalar.

Zeokat escribiste:Este código seria una de las soluciones al problema de contar las palabras de un archivo.

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w

use strict;

open (TEXTO,"texto.txt");

my @texto=<TEXTO>;

my $texto = join('',@texto);  # Junto los elementos del array @texto y los almaceno en un escalar $texto

my @palabras = split(/\w+/, $texto);  # divido el escalar $texto usando como separadores las palabras
                                      # y las almaceno en el array @palabras

print scalar @palabras;  # Imprimo el número de elementos del escalar @palabras

close (TEXTO);

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Sí, pero te da una palabra de más... la no-palabra del principio.

Zeokat escribiste:No consigo ver muy bien cómo trabaja el split.

A ver... split divide cortando por los delimitadores. Si el delimitador es una palabra entonces nos devolverá lo que la palabra tenga a los lados, que serán los espacios en blanco (en este ejemplo concreto).

Pero con la salvedad de que si hay un delimitador al comienzo, split piensa que debería haber ahí un campo, pero falta, por lo que nos devuelve un valor vacío. Eso es lo que pasa en las líneas 1ª, 2ª y 4ª. En la tercera línea, sin embargo, sí que hay algo delante del separador 'El', por lo que nos devuelve ese campo (un par de espacios en blanco). El resultado neto es que siempre nos devuelve un campo más: el que está delante del primer delimitador (palabra) de cada línea.

Y este comportamiento no se reproduce en los finales de línea. Todas las líneas acaban en palabras (delmitadores) pero split no nos incluye un campo vacío extra.