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

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

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

Hola, tengo dos ficheros; en uno, tengo esto:

Animales:
<aire>
<tierra>
<agua>

y en el otro fichero, esto:
carpa agua
caballo tierra
cerdo tierra
trucha agua
gorrión aire
mosca aire

Lo que quiero, es generar un fichero con este contenido:

Animales:
gorrión
mosca
caballo
cerdo
carpa
trucha

O sea, me gustaría poder sustituir el contenido del primer fichero que aparece entre <> por el contenido del segundo. Ni siquiera sé si se puede sustituir el ...

Hola a todos.

Este es el primer año de Universidad, nos han metido programación y tan solo llevamos unos días.

El profesor nos ha puesto un ejercicio del que no tenemos ninguno de la clase ni idea, si alguien me pudiera ayudar le estaría muy agradecido.

El problema es el siguiente:
Dibujar el organigrama y posteriormente desarrollar un programa que nos permita introducir una sucesión de números en un array, para posteriormente ordenarlos de menor ...

Lo que deseo hacer es una especie de función que esté "escuchando" si cambia algún valor de una variable... En el caso de que cambie, que imprima en pantalla un mensaje indicando que efectivamente el valor de la variable ha cambiado...

¿Algún módulo que haga este trabajo?

Thanks