Foro - Perl en Español

Estimados, soy principiante en Perl y deseo hacer lo siguiente:
Tengo un archivo de texto en el disco duro y quiero sacar líneas limitadas entre 2 caracteres, así:

fa0/1
line1
line2
line3
!
fa0/2
line1
line2
line3
!
fa0/3
line1
line2
line3
!

Digamos que deseo obtener las líneas entre fa0/2 y !.

Intenté hacerlo, pero hasta ahora no me sale... Saludos.

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

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

Hace unos días comencé con Perl, y hace un rato decidí hacer una calculadora simple. Acá van extractos del código:
$numero1 = <>;
$operador = <>;
$numero2 = <>;

if ($operador == "+") {
$total = ($numero1 + $numero2);
print "$total\n";
}
if ($operador == "-") {
$total = ($numero1 - $numero2);
print "$total\n";
}

El output me da la salida de todos los if(), siempre entra en todos los if() y no logro ...