Foro - Perl en Español

Veo bien el panorama de Perl a pesar de que hay tanta evolución a nivel de tecnologías y cambios en el mundo.
por ejemplo, OPEN AI, Bing Chat GTP, etc...

Espero que Perl siga por mucho más, pero definitivamente hace falta una aplicación, herramienta, software mundialmente masivo que corra sobre Perl, a la comunidad de Perl nos olvidamos del marketing jeje 8) Bueno solo quería decir algo por estos lados

Buenas, necesito quitar un salto de linea de un fichero. Sólo sé sustituir un carácter por otro y eso me funciona, pero no sé hacerlo en el mismo fichero, me sale si leo uno y creo otro fichero con la modificación.

Yo hago esto:

my $FichR = $pathDestino."\\".$dsn;

open(FICHERO, '<:encoding(UTF-8)', $FichR) or die "No se pudo abrir el $pathDestino./.$dsn";
open(SALIDA, ">$pathDestino/$dsn");
while ($linea1 = <FICHERO>){
$linea1 =~ s/VULKAN/VULKANO/g;
print SALIDA $linea1;
}
close ...

Ya tenemos nueva versión de Perl, la v5.34.1.

Perl 5.34.1 representa aproximadamente 10 meses de desarrollo desde Perl 5.34.0 y contiene aproximadamente 4600 líneas modificadas a lo largo de 60 archivos por parte de 23 autores.

Novedades.

Buenas tardes, estoy almacenando valores positivos y negativos en PostgreSQL en un tipo de campo numeric. Cuando ejecuto la siguiente instrucción

db=#select sum(valor) from tabla where fecha >= '2022-01-19 00:00:00' and fecha <= '2022-01-19 23:59:59'

el resultado generado es POSITIVO, lo cual ¿quiere decir que los valores positivos tienen mayor mérito sobre los negativos?

¿Qué tal? Tengo una tabla con un campo TIMESTAMP y en ella estoy cambiando registros con horario AM y PM a formato 24 horas, estilo militar:

fecha | character(26) la fecha la importo en campo tipoi char
Ya importado los registros convierto el campo fecha a timestamp
fecha_24 | timestamp without time zone

Todo estaba funcionando bien hasta ahorita que necesito actualizar registros y no me lo permite, la tabla cuenta con los siguientes campos, ...

¿Qué tal, explorer?. Cuando pienso que conozco Perl, no obtengo los resultados esperados. Tengo éste script y no me despliega todos los mensajes que estoy enviando con el print:

#!/usr/bin/perl
use perlchartdir;
use CGI;
use DBI;
use POSIX; #permite acceder a todos (o casi todos)los identificadores estándar POSIX 1003.1.
#A muchos de estos identificadores se les ha dado interfaces de Perlish
use Date::Calc qw(Monday_of_Week Add_Delta_Days); #UTILIZADO PARA EL MANEJO DE FECHAS. USO ESENCIAL
use Time::Local ...

Pregunta básica: Viendo código por otros lados me ha surgido la duda de la declaración de un arreglo:

OPCION 1: $data0=;
OPCION 2: @arr = ();

¿Cuál es la mejor opción y por qué?

Gracias y Respetos.
seafree

Hola, tengo 3 arreglos definidos para almacenar los valores de los HASHES que se crean más abajo:

my @data0=(); my @data1=(); my @data2=();
my $ciclo=0;

Los arreglos definidos formarán 3 seríes con sus datos correspondientes, los arreglos se crean correctamente:

VALORES: 2021-06-07 - 101139.94
VALORES: 2021-06-08 - 95109.08
...

#Obtengo el número de semana como el periodo comprendido
my @valores= values %periodos;
foreach (@valores){
....
#OBTENGO LOS VALORES CORRESPONDIENTES DE ACUERDO A LOS PERIODOS ...

Estimados, estoy generando archivos PDF con el módulo PDF::API2 pero si escribo palabras acentuadas (acentos) aparecen caracteres raros. ¿Cómo podría resolverlo? Gracias.

https://twitter.com/raku_lang/status/14 ... 2312814594

We are proud to annouce the first bioinformatics tool that is written in the Raku language and published in a peer-reviewed journal:

BepiTBR: T-B reciprocity enhances B cell epitope prediction

The ability to predict B cell epitopes is critical for biomedical research and many clinical applications. Investigators have observed the phenomenon of T-B reciprocity, in which candidate B cell epitopes with nearby CD4+ T-cell epitopes have ...