Foro - Perl en Español

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

¡Hola nuevamente! Tengo este código para subir un archivo al servidor:

$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");

if ($filename =~ /pdf$/i) {

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

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

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

Nueva versión del compilador Rakudo Perl 6, con un montón de arreglos y optimizaciones.

https://github.com/rakudo/rakudo/blob/m ... 2019.07.md

La distribución Rakudo Star estará disponible en unos días.

Comienzan a publicarse los vídeos de la TPC::NA 2019 que se está celebrando estos días.

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