• Publicidad

Contador de caracteres

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Contador de caracteres

Notapor BigBear » 2010-03-27 13:47 @616

Hola.


Ando teniendo una duda porque pensé en tomar la respuesta de una petición web. Ejemplo:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use LWP::Simple;
  2.  
  3. $re = get("http://127.0.0.1/hola1.htm");
  4.  
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Para luego poder contar todas las letras, números, signos y todo lo que se pueda contar, pensé en usar scalar():
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
scalar(split("\n",$re));
 
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Pero no hace lo yo quiero, porque quiero comparar que dos web sean exactas en todo hasta de la cantidad de letras, números y eso.

Ya que tengo los siguientes archivos:

hola1.htm:
Sintáxis: [ Descargar ] [ Ocultar ]
Using html4strict Syntax Highlighting
  1. hola
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


hola2.htm:
Sintáxis: [ Descargar ] [ Ocultar ]
Using html4strict Syntax Highlighting
  1. hola2
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Pero el scalar() me devuelve 1 y no son iguales.

¿Alguien conoce una forma mejor de hacer lo que quiero?
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Re: Contador de caracteres.

Notapor erv-Z » 2010-03-27 13:56 @622

Esa función es parecida a esta, de todo modos puedes usar la función length()...

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2.  
  3. $saludo = 'Hola';
  4. $saludo2 = 'Hola2';
  5. print "Primer saludo contiene: ".length($saludo)." caracteres\n";
  6. print "Segundo saludo contiene: ".length($saludo2)." caracteres\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
Primer saludo contiene: 4 caracteres
Segundo saludo contiene: 5 caracteres
 
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Saludos.
erv-Z
Perlero nuevo
Perlero nuevo
 
Mensajes: 158
Registrado: 2009-07-25 13:00 @583

Re: Contador de caracteres.

Notapor BigBear » 2010-03-27 14:06 @629

Muchas Gracias, hace precisamente lo que quiero.
Ya había visto esa función que señalaste pero no hacía lo que yo quería. De todas formas gracias ervz
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Contador de caracteres.

Notapor erv-Z » 2010-03-27 14:19 @638

OK, man, para eso estamos.
erv-Z
Perlero nuevo
Perlero nuevo
 
Mensajes: 158
Registrado: 2009-07-25 13:00 @583

Re: Contador de caracteres.

Notapor explorer » 2010-03-27 15:12 @675

Doddy escribiste:porque quiero comparar que dos web sean exactas en todo hasta de la cantidad de letras, números y eso.

Con solo ver la longitud de las páginas, no te sirve. Podrían coincidir en longitud, pero no en contenido.

Esta es una forma mejor:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$primera = get("http://127.0.0.1/hola1.htm");
$segunda = get("http://127.0.0.1/hola2.htm");

if ($primera eq $segunda) {
    print "Son iguales\n";
}
else {
    print "Son distintas\n";
}
 
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Es decir: comparamos los contenidos como dos cadenas de caracteres.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Contador de caracteres

Notapor pacopa » 2010-05-07 13:48 @616

explorer, eres un "mostro".

Últimamente hay mucho bicho malo que te inserta código malicioso en tu web. Generalmente es una línea URL al final del código que el usuario sin darse cuenta le mandan y conectan con un servidor de cerca de Laponia (digo yo) para enviarte o sacarte las tripas, supongo. Con este script de vez en cuando comparo y analizo lo que tengo colgado en el servidor y va bastante bien.

Gracias.
pacopa
Perlero nuevo
Perlero nuevo
 
Mensajes: 3
Registrado: 2010-05-06 15:55 @705

Re: Contador de caracteres

Notapor explorer » 2010-05-07 15:16 @678

Bienvenido a los foros de Perl en Español, pacopa.

Es más tranquilo saber que nuestro programa, en el servidor, no admitirá ningún dato del usuario, sin antes ser filtrado.

En otro hilo comentamos que no hay que filtrar lo que no deseamos, sino quedarnos con lo que buscamos. Principalmente, porque si intentamos filtrar lo que no deseamos, siempre se nos puede olvidar algo.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 18 invitados