Foro - Perl en Español

Hola, muy buenos días. Tengo este programa:

$CGI::POST_MAX = 1024 * 5000;
my $upload_dir = "../../certificados/";
my $query = new CGI;
my $filename = "";
my $filename = $query->param("archmov");
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime;
$mon += 1;
my $datetime = sprintf "%02d%02d%04d%02d%02d%02d", $mon, $mday, $year, $hour, $min, $sec;

my $upload_filehandle = $query->upload("archmov");

open( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
binmode UPLOADFILE;

while (<$upload_filehandle>) {
print ...

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.

He creado un script en Perl para acceder a un equipo y obtener la salida de datos de una de sus opciones internas con Expect.

El problema que tengo es que no consigo obtener toda la salida ya que la opción que se lanza dentro del servidor lo primero que hace es limpiar la pantalla y luego para continuar con la salida tienes que ir dando a la "N". Cuando termina o quieras salir ...

Hola a todos, este es mi primer mensaje y aprovecho para presentarme.

Lo primero decir que en programación soy cinturón blanco. Y estoy haciendo un curso y la tarea final no consigo sacarla.

No pretendo que nadie me escriba el código porque de nada me serviría, pero agradecería mucho que me indicasen dónde me equivoco y el motivo del error.

Estoy realizando un pequeño script para leer de un multiFASTA, con una particularidad, y es ...

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

Buenas tardes, os pongo en situación:

Una compañera y yo estamos creando un programa para un trabajo de informática y hay una parte del código que no funciona correctamente. Estamos bastante desesperadas así que ojalá que alguien nos pueda ayudar :cry:

Lo que trata de hacer el programa es comparar los síntomas de una ficha médica (3 fichas, porque tenemos 3 pacientes) de un ...

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.