Foro - Perl en Español

Hola, buenas.
Tengo el siguiente código:
#!/usr/bin/perl -w
use Xchat qw( :all );
Xchat::print ":: Loading script :: \n";

hook_command( "porta" , \&cmd_msg);

sub cmd_msg {
Xchat::command("exec xsel -o > ./archivo.txt");
my $sal = `cat ./archivo.txt`;
Xchat::print("==> $sal");
return EAT_XCHAT;
}
El caso es que no imprime lo que hay dentro de archivo.txt, pero si comento la línea número 8, imprime sin problemas... Es como si la línea 8 borrara el archivo y no ...

Buenos días.

Soy nuevo en el mundo de la programación y quería pedir ayuda con la siguiente situación.

Tengo un archivo de entrada del que tengo que seleccionar unas líneas del archivo para guardarlas en otro.

Abro el archivo:

my $file = $ARGV;
unless (open(FROM,$file))
{
print STDERR "Cannot open file \"$file\"\n\n";
exit;
}

le digo que lo lea línea a línea y que me guarde el número de líneas y que cuando llegue a ...

Hola, estoy tratando de capturar y eliminar algunos bloques de texto que se encuentran anidados dentro de llaves {...} las cuales están correctamente balanceadas, y dentro de estas se encuentran llaves escapadas \{ ...\} que no siempre están balanceadas. El script que poseo es el siguiente:
#!/usr/bin/env perl
use v5.28;
use autodie;
use File::Basename;

## Args
@ARGV == 1 or die "Uso: $0 <archivo TeX to process>\n";
my $nombre_archivo = shift;
-f $nombre_archivo or ...

Un saludo.

Tengo este código con el que busco hasta el final de la línea pero me gustaría que buscara hasta que se encuentre un punto, para que me extraiga un texto con coherencia.

A continuación el código:

#!/usr/bin/perl

use strict;
use warnings;

my $body;
my $smtpCode;

$body = "Diagnostic-Code: smtp; 550-5.1.1 The email account that you tried to reach does
not exist. Please try 550-5.1.1 double-checking the recipient's email
address for typos or ...

Hola de nuevo, Perl en español

Para el desarrollo de un proyecto se me concedió acceso a una base de datos Oracle remota. Usando un programa gestor (SQLDeveloper de Oracle) la conexión se logra fácilmente pero esto no me servirá para hacer las automatizaciones que necesito por lo cual empecé a hacer un script para conectarme a la BD y ejecutar una consulta simple.


use DBI;

# conexión a ORACle...
$dsn = 'DBI:Oracle:host= ...

Hola a todos. Hace bastante que no pasaba por el foro. Estoy actualizando un viejo script y no logro dar con las modificaciones necesarias dentro de las expresiones regulares para que funcione. El código que poseo es el siguiente (es solo una parte del script completo):

#!/usr/bin/env perl
use v5.28;
use autodie; # muere si ocurre un error
use File::Basename; # separa el archivo de entrada

## Argumentos ---------------------------------------------------------
@ARGV == 1 or ...

Hola, buenos días. Soy un poco nuevo en Perl, y quería saber cómo le hago para convertir un archivo que tiene dos columnas asociadas:
Names SampleA Names SampleB Names SamplesC
Name1 5 Name3 7 Name1 8
Name2 9 Name2 1 Name2 2
Name4 4 Name4 8 Name3 8
En este caso solo son tres datos asociados (3 muestras), es decir, 6 columnas, pero podrían ser múltiples.

Lo que quiero es una matriz, con la primera ...

Hola de nuevo, Perl en español.

Tengo asignado el proyecto de hacer una aplicación que obtenga un xml de un WebService. En la documentación del servicio nos brindan dos ejemplos, uno con GET y su respuesta y otro con POST y su respuesta (en el archivo adjunto).

Mi pregunta es: ¿cómo puedo hacer el GET o POST hacia la página desde un script Perl?

Gracias por adelantado.

Saludos, Perl en español.

En julio de 2018 creé una aplicación que obtenía un XML de cierta página y luego lo convertía en una estructura hash para facilitar su análisis.

La misma dejó de funcionar por lo que revisé la página y comprobé que la misma funciona correctamente; por lo anterior revisé mi código y me encontré que la parte que transforma cualquier XML en hash funciona correctamente.

Logré comprobar que la parte que no ...

Amigos:

Necesito tomar varios datos de un archivo 1 y buscar si están en un archivo 2.
Si están tomar esa información del archivo 2 y guardarla en un nuevo archivo.

¿Alguna idea?

Slds.