Foro - Perl en Español

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

A free one-day conference for Geeks and Friends

Once a year, the Barcelona Perl Mongers organizes the Perl & Friends Conference. Its main purpose is to gather people with common interests in a day packed of talks, not necessarily Perl related. In fact, we encourage people not familiar with Perl to come and explain us new things. In this conference, "Friends" is the relevant word.

You may expect a lot of different topics. It may ...

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.