Foro - Perl en Español

Hola, quería preguntar si había alguna forma de cambiar los permisos de un archivo en el FTP.

Hola, ¿qué tal?

Lo que quiero hacer es crear un array, y que luego mientras lee las líneas de un txt, almacene cada línea en una posición del array.

Lo que hice fue lo siguiente:
@lineas = ('');
$i=0;
open (PAGINA, "averga.txt");
while (<PAGINA>)
{
push(@lineas, $_);
print "$lineas;
$i=$i+1;
}
close(PAGINA);

A ver quién me puede ayudar :P

Gracias

Mi problema no es exactamente con Perl aunque tiene relación.

Pretendo aprender (por hobby) a usar Perl, principalmente para programar aplicaciones de Internet: robots para automatizar mi uso de Internet, comunicación entre ordenadores, sockets... etc. Una de las primeras cosas que se me han ocurrido es programar una especie de Tcpdump en Perl.

Para aprender, he descargado varios programas de ejemplo en Perl y los he ejecutado y resulta que todos los que conectan fuera ...

Ya existía una página de Perl 6 en la Wikipedia española, pero no estaba actualizada, y con algunos detalles obsoletos. Ahora, ya está sincronizada con la inglesa.

Además, hay una nueva página: Reglas de Perl 6, que explica un poco más en detalle cómo funcionan las expresiones regulares, las reglas y las gramáticas de Perl 6. ¡Ojo! es un resumen de un resumen, y resumido, de toda la documentación.

Para aquellos que les gusta investigar ...

Buenas de nuevo, a ver si alguien sabría echarme una mano...

Estoy haciendo un script bajo Linux que en un determinado momento lanza un binario de la shell, que este a su vez crea un archivo log. El caso es que me gustaría que ese archivo log se guardara en un subdirectorio, no desde donde se ejecuta el script.

Digamos que sería algo así:

/directorios/script.pl

con lo cual el log lo crearía en /directorios/archivo_log.log

Yo ...

Buena tarde a todos, soy nuevo en el tema y quisiera saber si un programa funcionando en Linux se puede ejecutar también en Windows o es necesaria alguna compilación o cambio en la programación para que este funcione sobre Windows.

Gracias

Saludos. Soy nuevo en esto del Perl y mi duda es muy básica. Tengo dos archivos.
Archivo 1:
8=50=50356536
6=50=49351358
7=50=709286
5=50=702400
8=54=390078008
6=54=629567679
7=54=67566209
5=54=84824766
8=56=347390
6=56=153975
7=56=2890
5=56=2196
8=58=413916
etc, número de líneas.

Archivo 2
10932=189.209.208.161=9=1=1=Componente3
189.209.208.161=50=1=1=Componente2
etc, etc, etc, número de líneas.

Mi pregunta es cómo comparo el segundo archivo en el campo con el primer archivo, en su campo , para tener un tercer archivo donde muestre lo encontrado en ...

Hola. Estoy usando WWW::Mechanize para hacer varias peticiones a distintas web pero hay algunas web
que son inexistentes y me tira:

Error GETing http://127.0.0.1///images//images: Not Found at

use WWW::Mechanize;
use HTTP::Response;

my $new = WWW::Mechanize->new();
$new->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");

open (FILE,"yeah.txt");
@webs = <FILE>
close FILE;

for(@webs) {
cara($_);
}

sub cara {
return $new->get($_)->content;
}

¿No hay alguna forma de evitar el error y seguir el script ...

Hola.

Estoy intentando enviar datos (hexadecimales) desde un microcontrolador conectado a un dispositivo (Digione SP) por una entrada serie. Este dispositivo tiene una salida ethernet la cual está conectada a un enrutador que le asigna una IP.

En un servidor conectado al enrutador tengo el siguiente código para crear un socket TCP que quede escuchando.

#!/usr/bin/perl -w
use IO::Socket;

my $server = IO::Socket::INET->new(
Proto => 'tcp',
LocalPort => 5800,
Listen => 1,
Reuse => ...

Hola a todos.

¿Alguien sabe cómo calcular un hash (sha-1) de un fichero? Por ejemplo, de un ejecutable del sistema (.exe).

Muchas gracias.

Un saludo,
Ricar.