Foro - Perl en Español

por **koolik** » 2012-04-22 23:41 @029

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

aab

a

b

ababaabbbColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

a[2]b

a

b

ababa[2]b[3]Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

while (<>)
{
if ($_ =~ s/((a|b)\2+)(\n\n*)/$2 . '[' . length($1) . ']'/ge)
{
print $_;
}
}

#!/usr/bin/env perl
 
my $lineas_vacias = 0;
 
while (<>) {
    if (/^\s*$/) {                 # si la línea está vacía,
        $linea_vacias++;           # sumamos una más, y
    }
    else {                         # si no, transformación:
        s/((a|b)\2+)/$2 . '[' . length($1) . ']'/ge;
        print;
    }
}
 
print "Número de líneas vacías: $lineas_vacias\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **koolik** » 2012-04-23 14:52 @661

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

Este es el código final:

Sintáxis: [ Descargar ] [ Ocultar ]

while (<>)
{
if ($_ =~ /^(\s|\n)*$/)
{
print $_
}
else
{
s/((0|1)\2*)/ if (length ($1) > 1) {$2 . '<' . length($1) . '>'} else {$2}/ge;
print;
}
}

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

por **explorer** » 2012-04-23 15:27 @685

* 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í:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while (<>) {
    s/((0|1)\2+)/$2 . '<' . length($1) . '>'/ge; 
    print;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **koolik** » 2012-04-23 17:30 @771

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

por **explorer** » 2012-04-23 17:52 @786

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
my $_ = '0101';
 
s/((0|1)\2+)/$2 . '<' . length($1) . '>'/ge;
 
print "[$_]\n";        # sale [0101]
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

Foro - Perl en Español

Reconocer y contabilizar caracteres

Re: Reconocer y contabilizar caracteres

Publicidad

Re: Reconocer y contabilizar caracteres

Re: Reconocer y contabilizar caracteres

Re: Reconocer y contabilizar caracteres

Re: Reconocer y contabilizar caracteres

Re: Reconocer y contabilizar caracteres

Re: Reconocer y contabilizar caracteres

¿Quién está conectado?