Foro - Perl en Español

Hola.


Ando teniendo una duda porque pensé en tomar la respuesta de una petición web. Ejemplo:
use LWP::Simple;

$re = get("http://127.0.0.1/hola1.htm");


Para luego poder contar todas las letras, números, signos y todo lo que se pueda contar, pensé en usar scalar():
scalar(split("\n",$re));


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 ...

Buenas, quisiera saber cómo funcionan la agrupación atómica en expresiones regulares, su sintaxis es más o menos esta:
(?>)

Saludos.

Hola a todos.
En una aplicación necesito imprimir etiquetas con código de barras para mis 2000 aparatos telefónicos en forma semanal; posteriormente estas etiquetas serán leídas con un escáner.
¿¿¿¿Existe algún módulo de Perl que me auxilie en esto????

Gracias por la ayuda que me puedan dar.
Rafael

No comprendo bien...

Modern::Perl es un solo un módulo de Perl.
Es alguna metodología moderna de programación.
O es un módulo que te carga strict, warnings y ¡ya!
O son un conjunto de módulos que son usados actualmente con el objeto de estandarizarlos así.

O es un enredo ¿^ :twisted: ?¿

Hola. Ando teniendo una duda.

Tengo el siguiente código.

use Tk;

$ventana = MainWindow->new(-cursor => "crosshair"); #Primero creamos lo necesario
$ventana->geometry("800x400+400+800"); #Declaramos el tamaño de la ventana
$ventana->title("Formulario"); #Titulo de la ventana
$ventana->Label(-text => "Llena los datos necesarios")->pack(); #Aca ponemos el texto hola mundo
$ventana->Label()->pack(); # Espacio
$ventana->Label()->pack(); # Espacio

my $text = $ventana->Scrolled("Text")->pack();


$ventana->Label()->pack(); # Espacio
$ventana->Label()->pack(); # Espacio

$ventana->Button(-text => "Enviar", -command => \&decime )->pack();


MainLoop;


sub decime {

my $nombre = ...

Hola, ¿qué tal? Esta vez tengo un problema con la instalación de Perl; estoy tratando de correr mis script de Perl en un Cisco AXP que tiene una máquina virtual Linux que por lo que he encontrado es un CentOS pero me encontré con la sorpresa ¡¡que es un centOS "recortado"!! No tiene yum y en la documentación me dice que puedo correr Perl por lo que estoy buscando la forma de instalar Perl, sin ...

Buenas, tengo una pequeña duda de cómo contar palabras en un texto de la siguiente manera:

Texto: Hola Pablo, Hola Martín....
El resultado sería: Hola = 2;
Pablo = 1;
Martín = 1;

Algo que se me ocurrió es la utilización de un hash, sin embargo al no saber la cantidad de palabras que poseo desde un principio, no pude continuar con la idea. Si alguien puede ayudar, sería genial.

Desde ya, ¡muchas gracias! ...

Buenas, tengo una consulta respecto al siguiente ejercicio: tengo una variable completa (llamada línea) de la forma:
....La prueba...... , ...... La prueba ....\n ..., ......

Como se muestra en el ejemplo mi variable contiene varias veces la frase que comienza con "La prueba " y termina en "," existiendo la posibilidad de que hayan saltos de línea entre medio. La idea es intentar de adquirir todas las frases que comienzan con "La prueba " ...

Este es mi primer post en este foro... Espero puedan ayudarme.

Estoy desarrollando un programa con sockets de un ejemplo que vi en este foro

Este es el código del server:
use IO::Socket;
print "Server Socket Program... \n";

$sock = new IO::Socket::INET(
LocalPort => 1234,
Listen => 128,
Reuse => 1,
Proto => 'tcp') || die "Error creating socket: $!";

print "-- Server Program --\n";
while($cliente = $sock->accept() )
{
$cliente->autoflush(1);
while (defined($line=<$cliente>))
{ ...

Buenas, necesito una ayuda con una expresión regular. Resulta que tengo la salida de un texto que está delimitado por unas etiquetas que lo llamo de esta forma

EMPIEZA_AQUI
texto texto numeros
numero texto texto numeros
texcto numeros
texto
TERMINA AQUI

Lo que necesito es poder obtener el texto que está dentro de las etiquetas COMIENZA_AQUI TERMINA_AQUI; intenté hacerlo de esta forma:

$respuesta =~ m/EMPIEZA_AQUI(.*)TERMINA_AQUI/g;
print "$1";


Creo que el problema radica en los ...