Foro - Perl en Español

Pues gracias, al menos buscar esas directivas me ha orientado y estoy captando la potencia de este lenguaje.

Lo que no he logrado es que respete los saltos de línea.

Ni los casos como estos:
a
b
que no deben tener los '[]'.

Entrada:


Salida:

explorer: estoy a un paso, pero no sé si voy por el camino indicado.

Me falta capturar los saltos de línea "\n".

Así captura sin "\n":

Con ese código, funciona así:
Entrada:


Salida:


Le puse un "\n" a la expresión, pero no funciona:


Gracias por tu ayuda.

Es mejor dividir el problema...

Gracias como siempre explorer. Con unos pequeños arreglos comenzó a funcionar.

Este es el código final:



Cualquier observación, es más que agradecida.
Saludos

* decías que querías contar las líneas que están en blanco, pero en lugar de eso, solo las sacas en pantalla. Es decir, no haces nada con ellas
* $_ es la variable por defecto, así que no es necesario ponerla en muchas operaciones. Así

if ($_ =~ /^(\s|\n)*$/)

es lo mismo que

if (/^(\s|\n)*$/)

y

print $_;

es lo mismo que

print;

* El carácter especial "\s" representa a cualquier tipo de espacio, incluyendo a "\n", así que

if (/^(\s|\n)*$/)

es lo mismo que

if (/^\s*$/)

* ¿Por qué nos has estado hablando de buscar por 'a' y 'b' si lo que buscabas era '1' y '0', y que en lugar de corchetes, ibas a usar '<' y '>'?

* Has complicado la expresión regular innecesariamente, al poner el '*' en lugar del '+', como te puse yo.

s/((0|1)\2*)/ if (length ($1) > 1) {$2 . '<' . length($1) . '>'} else {$2}/ge;

Cuando pones un '*' estás indicando que buscas por "cero o más" ocurrencias de '0' o '1'. Por eso estás luego obligado a hacer el if(), para saber si el resultado fue mayor que 1 o no. En cambio, poniendo un '+', tenemos la seguridad de que siempre habrá al menos un símbolo, así que la expresión queda

s/((0|1)\2+)/$2 . '<' . length($1) . '>'/ge;

que es la solución que te di. Con ella estamos buscando por dos o más caracteres iguales. Y la expresión regular solo modifica esas series de símbolos. Para los que solo tienen un símbolo, no son modificados porque no coinciden con el patrón. Y por eso nos ahorramos la parte del else{} que habías puesto.

Tu programa queda así:

Hola, gracias por tu ayuda explorer.

Cuando dije contar, debí decir, tener en cuenta, ya que las líneas en blanco debo imprimirlas, no contarlas.

0 y 1, disculpas por la confusión. Es que a los efectos daba igual, debía ser un alfabeto de 2 símbolos y probando copié mal.

Necesito contabilizar si hay

* Has complicado la expresión regular innecesariamente, al poner el '*' en lugar del '+', como te puse yo.

s/((0|1)\2*)/ if (length ($1) > 1) {$2 . '<' . length($1) . '>'} else {$2}/ge;

Cuando pones un '*' estás indicando que buscas por "cero o más" ocurrencias de '0' o '1'. Por eso estás luego obligado a hacer el if(), para saber si el resultado fue mayor que 1 o no. En cambio, poniendo un '+', tenemos la seguridad de que siempre habrá al menos un símbolo, así que la expresión queda

s/((0|1)\2+)/$2 . '<' . length($1) . '>'/ge;

El problema con esa expresión es que basta que haya un 1 para que despliegue 1<n>, n cantidad de 1. Y en expresiones del tipo 0101 no se necesitan los <>.

O tal vez no te he entendido bien a ti.


pues vale, que he aprendido. ¡je!

Saludos

koolik escribiste:El problema con esa expresión es que basta que haya un 1 para que despliegue 1<n>, n cantidad de 1. Y en expresiones del tipo 0101 no se necesitan los <>.

Supón que solo hay un '1'. Entonces el subpatrón (0|1) sí coincide. Ahora sustituimos lo que tenemos en toda la expresión ((0|1)\2+). Sería así: (11+), que quiere decir "busca un '1' seguido por uno o más '1'. Es decir: dos o más '1'. Pero originalmente sólo teníamos uno, así que no se cumple el patrón. Y por eso, cuando se encuentra con solo un '1', no lo modifica.

Prueba:
La sola presencia del \2 ya garantiza que estamos localizando dos o más valores idénticos. Los demás los deja tal cual.