Foro - Perl en Español

¡Hola! Soy bastante nueva en Perl y la verdad no me manejo mucho y tengo un problema. No sé si alguien tiene una idea para ayudarme.

El asunto es que tengo un archivo de este tipo: (las columnas dos y tres son coordenadas)
nombre1 1 10
nombre1 25 30
nombre1 45 76
nombre2 12 23
nombre2 38 72
nombre2 145 158
nombre2 163 181
nombre2 176 184
nombre3 26 38
nombre3 42 75
nombre4 62 ...

Hola...
Soy muy nueva en esto.. creo que sé solo lo más básico...

El problema es que necesito hacer un programa que recorra un archivo letra por letra, pero en una especie de ventana deslizante, y me entregue un archivo de salida con todos los cortes hechos por las ventanas...

Este sería como el archivo de entrada:
AAABBCEDETGHJKFRFGG

Por ejemplo... si especifico una ventana de largo 5... deseo que me entregue algo así:
AAABB ...

Estaba haciendo un script en Perl en dos partes... una donde detecta si hay más de 5 archivos de forma recursiva dentro del directorio temporal de Windows y otro script que vacía el mismo directorio.

Hice un script pero no me funciona, algo hice mal. Yo estoy acostumbrado a codear en PHP y hacer retornos recursivos dentro de las mismas funciones autollamándose pero al parecer acá no funciona:

print c_dir($ENV{TMP})." archivos.\n";

sub c_dir{
$dir ...

Hola a todos,

Estaba intentando hacer un programa para renombrar todos los archivos de un directorio que tuvieran una extensión determinada. He hecho este programilla, pero sólo me los renombra en el archivo de texto que saco a modo de registro de cambios, los archivos del directorio continúan con el nombre del principio.
¿Me podéis echar una mano?

Código:

#!/c:/Perl -w
use strict;

print "Elige directorio:\n"; #Directorio donde renombrar
chomp(my $path = <STDIN>);
chdir ...

Hola, he hecho algunos programitas sencillos, quisiera distribuirlos con algunos amigos, pero no lo he hecho porque me temo que deberán instalar algunos módulos para que corra bien. Los programas usan:

Gtk2::GladeXML;
WWW::YouTube::Download;

incluso hay otro que usa un módulo sobre Wikipedia. Quería saber si hay alguna manera de empaquetar mi script para que pudiera correr en otra máquina sin que tuviera que instalar toda la retahíla de módulos. He pensado en distribuirlo con todos ...

Hola chicos mi nombre es Camilo.

Quiero saber si me pueden ayudar con una pequeña
aplicación que estoy realizando para Windows.

Lo que quiero hacer es un programa en Perl, que
cuando pulse las teclas la aplicación
cree una nueva carpeta en el directorio donde
está actualmente el usuario.

De antemanos muchas gracias por su ayuda..

Pido disculpas por algún error en el mensaje;
es mi primer mensaje.

Hola, pretendo subir un archivo a un servidor FTP. He elegido este lenguaje porque me permite hacerlo en modo pasivo. Tengo hecho un .pl que me funciona perfectamente cuando no hay proxy por medio y quisiera saber cómo hay que ponerle el nombre, usuario y contraseña del proxy. No consigo dar con la forma de hacerlo.

Muchas gracias a quien pudiera ayudarme.

Mi .pl tiene:

use Net::FTP;
my $ftp = Net::FTP->new( "ftp.midominio.es", Debug => ...

¡Hola!

Estoy tratando de hacer un script el cual me lea mi cuenta de correo, baje mis correos y aparte los adjuntos. Estoy usando POP3client pero cuando ejecuto siempre me dice que -1. Nunca cambia. Consulto la cuenta por la web y veo que tengo muchos mensajes.

La cuenta es de un hosting de renta POP3

El código que estoy usando es este:

#!/usr/bin/perl

use Mail::POP3Client;

$pop = new Mail::POP3Client( USER => "user",
PASSWORD ...

Buenas tardes,

Estoy tratando un fichero XML de ejemplo, que sería el siguiente:
<?xml version="1.0"?>
<menu>
<clientes>
<cliente>
<nombre>operador1</nombre>
<fecha>11:50 30/1/2000</fecha>
<apodo>apodo1</apodo>
</cliente>
<cliente>
<nombre>operador2</nombre>
<fecha>10:30 22/2/2000</fecha>
<apodo>apodo2</apodo>
</cliente>
</clientes>
<empresas>
<empresa>
<nombre>empresa1</nombre>
</empresa>
<empresa>
<nombre>empresa2</nombre>
</empresa>
</menu>

Lo que quiero hacer es coger el campo "nombre" del primer cliente (operador1) y compararlo con un texto, de forma que si coincide me saque un mensaje.
He probado el siguiente código, pero la verdad ando ...

Hola, estoy intentando usar Glade para general la interfaz gráfica, estoy haciendo todo bien (según los ejemplos que he visto).

Ejemplo.

Creo una simple ventanita con glade.


<?xml version="1.0"?>
<interface>
<requires lib="gtk+" version="2.16"/>
<!-- interface-naming-policy project-wide -->
<object class="GtkWindow" id="myap">
<property name="title" translatable="yes">Mi aplicación</property>
<child>
<placeholder/>
</child>
</object>
</interface>


Ese es xml, este es mi script perl:

#!/usr/bin/perl
use strict;
use Gtk2::GladeXML;

use Gtk2 -init;
my($programa, $ventana_principal);

$programa = Gtk2::GladeXML->new('hola.glade');

$ventana_principal = ...