Foro - Perl en Español

Hola, necesito hacer en Perl un programita que cuente las palabras de un texto que están todas en mayúsculas (HOLA), las que están en minúsculas (hola) y las que están de las dos formas (hOlA).

No sé ni por dónde empezar. ¡Gracias a todos!

Bienvenido a los foros de Perl en español, choco.

Puedes empezar por abrir el texto, como un fichero, leer por líneas, y de cada línea, sus palabras.

Para eso, puedes consultar el perlfaq6, en la sección How do I process each word on each line?.

gracias, ya tomé en cuenta esa parte y leí los tutoriales de la página. Mi idea es usar expresiones regulares, algo así:
$mayus =~ s/ expresion_regular /g
pero lo que no me queda claro es ¿¿qué guardo en $mayus??
¿La cantidad de ocurrencias de la expresion_regular o qué cosa?
¡Muchas gracias!

El operador s/// no se usa de esa manera... Supongo que te refieres al operador m//.

La opción /g se suele usar dentro de bucles while(), ya que sirve para aplicar una búsqueda repetida. O asignar resultados como si fueran una lista de valores, a un array.

En $mayus no se guarda nada. Cuando pones $mayus =~ /patrón/ estás escribiendo una expresión regular, indicando que quieres buscar el patrón dentro de $mayus. El resultado de la expresión regular será verdadero o falso, si la ejecutas en contexto escalar. Y una lista de capturas si la ejecutas en contexto lista.

Por ejemplo:

Naturalmente, para que Perl sepa que 'Ñ' es una letra mayúscula, debes configurar el programa para que esté localizado en (alguna de las variedades de) español.

Hola, estuve intentando hacer algo parecido a lo que ustedes dicen, pero no me funciona. ¿Es posible que tenga algo que ver la versión de Perl?

Bienvenido a los foros de Perl en español, juan1987.

say() es a partir de Perl v5.10.


Para poder usarlo, debes poner, al principio.

use 5.010;

o

use feature 'say';

aunque yo prefiero usar

use Modern::Perl;

o

use common::sense;

Tareas escolares... en fin

my $may = 0;
my $min = 0;
my $mix = 0;

para cada palabra del texto
si encuentro una palabra en mayúsculas con una regexp
$may++;
si encuentro una palabra en minúsculas con una regexp
$min++;
si encuentro una palabra con mayúsculas y minúsculas con una regexp
$mix++;
else paso a la siguiente;

y al final imprimo las variables.

explorer ya te ha resuelto el primer caso, desarrollar los otros te toca a ti; lee sobre expresiones regulares.

Muchas gracias, explorer y pvaldes. He podido solucionar el problema gracias a sus consejos.
Un saludo.