Foro - Perl en Español

Buenos días.

Me encuentro con un problema que no sé explicar a la hora de sustituir el carácter ' por un espacio en blanco dentro de un archivo de texto.

Aquí os dejo el código que uso:

perl -pi -e 's/\'//g' archivo.txt

No sólo no funciona sino que tras ejecutarlo, en la consola en vez de aparacer al principio de línea $ me aparece el símbolo > y no puedo recuperar ...

Saludos, estimados.
Tengo el siguiente problema:

Necesito armar una expresión que me extraiga un valor de la siguiente cadena:

<a href="ver-mas.php?id=2e9d31b782c5a635da5ccd84ba152dba&seccion=&division=&clase=&rubro=&depto=07&page=&searchSW=1" class="link1">+ Ver más</a>

<a href="ver-mas.php?id=af9fcc5a872af09fcb36da6cbf56ee2c&seccion=&division=&clase=&rubro=&depto=07&page=&searchSW=1" class="link1">+ Ver más</a>

<a href="ver-mas.php?id=e42afde8163eaec428b4c185136ba2c3&seccion=&division=&clase=&rubro=&depto=07&page=&searchSW=1" class="link1">+ Ver más</a>

<a href="ver-mas.php?id=5b243e85fd95f8a3ba1cd60a9f3ffa2a&seccion=&division=&clase=&rubro=&depto=07&page=&searchSW=1" class="link1">+ Ver más</a>
valor a extraer es : 2e9d31b782c5a635da5ccd84ba152dba

Tengo una aplicación que se conecta a una página web y de ella debe extraer esos valores.

Mi código ejemplo con el que intento crear la expresión es: ...

Hola amigos, soy novato en Perl, pero a medida que leo sobre el... me encanta.

Tengo el siguiente problema "básico":

Poseo 3 archivos .txt. Uno con nombres, otro con apellidos y el tercero con edades.

Deseo unirlos en uno solo y que en dicho archivo pueda saber cuál de los n datos tiene. Por ejemplo: la menor edad e imprimirlo.

Espero que me ayuden, gracias.

Hola, quiero hacer un script que se conecte a una base de datos MySQL y realice algunas operaciones, pero quiero poner los datos de conexión en otro archivo al que acceda mi script.

¿Cómo puedo realizar esto?

Hola, la verdad que soy nuevo programando en Perl, ahora estoy haciendo una pequeña aplicación para mi asignatura de programación en Perl que me configure un enrutador.

Anduve buscando algún módulo que permita sumar a una IP valores ejemplo: 10.0.0.1 sumarle 1 y que quede 10.0.0.2 o restarle 1 y quede 10.0.0.0.

Se los agradezco de antemano :D

Hola a todos, mi nombre es juanse.

Actualmente estoy estudiando una ingeniería en telecomunicaciones y redes. Tengo una asignatura de programación en donde me piden crear una aplicación en Perl. Quería usar el módulo Prima para hacer las preguntas de la pequeña aplicación que sean con una G.U.I. y no que tuvieran que tipear.

Mi problema es el siguiente: antes de siquiera ver cómo funciona Prima traté de probarlo con un script de la página ...

Hola de nuevo.

Sigo con la aplicación del mensaje anterior "Cómo usar "sed" dentro de Perl", pero he dejado de hacerla para Xchat y la hago para correr "normal".

Ya está terminada pero quiero que siempre conserve la propiedad de quedar en primer plano. ¿Es posible? Estoy mirando en http://gtk2-perl.sourceforge.net/doc/pod/Gtk2/Window.html pero estaré torpe (muy mal el inglés) porque no encuentro cómo hacerlo, espero sea posible.

Saludos y gracias ...

Hola, muy buenas :)

Estoy haciendo un pequeño script en Perl para Xchat, y trato con un archivo de texto el cual quiero borrar una línea y dejar en el archivo todo lo demás. Si pruebo el comando en consola, perfecto, pero dentro de Perl en Xchat, no lo consigo.

Esto es parte del script:
$borrar="25/11/14 Hola 3";
system("sed -i\".bak\" '/$borrar/d' ~/.xchat2/addons/tareasdb.txt");

Estas son las ...

Estimados,

Tengo un problemita con lo siguiente. Resulta que estoy intentando enviar un correo desde una máquina de Windows. Yo ocupo la librería MIME::Lite, y como servidor outlook.office365.com. Este el código.


my $msg = MIME::Lite->new(
From => $remitente,
To => $destinatario,
Subject => 'Reporte de Error '.$fecha,
Type => 'multipart/mixed'
);

### Add parts (each "attach" has same arguments as "new"):
$msg->attach(
Type => 'TEXT',
Data => 'Reporte de Errores.'
);

if ($archivoerror ...

Hola amigos, ¿cómo están? Quiero saber cómo puedo obtener varias filas desde una consulta MySQL en Perl.

Tengo el siguiente código:

sub store :Local :Args(0) {
my ($self, $c) = @_;

# connect to the database
my $dbh = DBI->connect("DBI:mysql:database=datatest", "perltestUser", "password")
or die $DBI::errstr;

# query a la tabla
my $statement = qq{SELECT * FROM staff};

my $sth = $dbh->prepare($statement)
or die $dbh->errstr;

$sth->execute()
or die $sth->errstr;

my ($query_store) = $sth->fetchrow_array;

my ...