Foro - Perl en Español

Buenas, tengo un problema al contar palabras de un texto y luego ordenarlas alfabéticamente. Utilizando el siguiente código:
while (<>){
$linea = $linea.$_
}
while($linea =~ /(*)/g){
$algo=$1;
$algo=~ tr/A-Z/a-z/;
exists ($hash{$algo}) ? ($hash{$algo}+=1) : ($hash{$algo}=1);
}
foreach my $llave (sort keys %hash){
print "$llave: $hash{$llave}\n";
}

El problema es que no incluye en mi solución las palabras que tienen la letra "ñ", he probado varias opciones pero sigue fallando, si alguien supiera alguna idea ...

Anuncio (en inglés)

Moose, el sistema de programación orientado a objetos más moderno que existe; y Class::MOP, un sistema de metaprogramación para la creación de módulos basado en la programación orientada a objetos (Moose se crea con la ayuda de Class::MOP); los dos han llegado a la versión 1.0, después de varios años de éxito en la comunidad Perl, que por fin tiene un moderno sistema de programación orientado a objetos.

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