Foro - Perl en Español

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

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

Ejecuto el siguiente query desde POSTGRESQL y obtengo el resultado esperado, ordenado por el campo fecha_24:

SELECT fecha_24,valor FROM t_mediciones WHERE (fecha_24 between '@fecha1 01:00:01 ' and '@fecha2 12:59:59') and subestacion='$subest' order by fecha_24

Sin embargo, ejecuto la misma instrucción desde perl vía web y DESPLIEGA LOS REGISTROS DESORDENADOS.

Les agradeceré su apoyo porque no obte. el campo fecha_24 es timestamp without time zone.

Gracias y Respetos para Ustedes.
seafree

¿Qué tal? He importado una tabla en PostgreSQL con un archivo plano con un campo fecha con el siguiente formato:

31/07/2021 06:55:57 a.m.
31/07/2021 06:57:18 a.m.
31/07/2021 11:38:45 p.m.

Agradeceré su apoyo para obtener la diferencia entra fecha. Para el caso anterior los dos primeros registros su diferencia será de segundos y con el terceros su diferencia será de horas, aunque debo de cuidar que los registros no son en formato de 24 horas porque ...

Hola a todos, requiero de su ayuda. Necesito poder leer un archivo perl (.pl) el cual contiene un hash; requiero que lea el primer bloque y después valide si es v2c o v3, y poder almacenar algunos atributos de ese mismo bloque para efectuar una rutina.

Mis datos del archivo Datos.pl:

%hash = (
'Espana' => {
'active' => 'true',
'authpassword' => 'E$pan@#2021_2022',
'authprotocol' => 'sha',
'community' => '',
'name' => 'Esp_Madrid',
'privpassword' ...

Espero se encuentren bien, les agradeceré su apoyo para lograr crear conexión desde Windows 10 a una base de datos en POSTGRESQL ubicada en un servidor CENTOS 7. Resulta que no puedo crear el ODBC porque no tengo el usuario administrador de mi equipo, el cual es un cliente de Windows 10. Estoy en una red corporativa y no soy el usuario administrador.

Agradeceré su apoyo por que sino logro la conexión tendré que utilizar ...

Hola a todos los miembros de esta comunidad.

No sé si lo que quiero hacer sea una tontería, es más: no sé si será posible. Me explico:

Tengo una aplicación en Perl y MySQL, hospedada en una máquina que tiene Linux Ubuntu. Esta me funciona de maravilla.

Ahora bien, necesito hacer algo sencillo en mi Teléfono celular, que tiene Android, una aplicación muy chica que me permita consultar mis actividades deportivas o de trabajo para ...

Hola, Perleros.

Estoy realizando una expresión regular para capturar el siguiente texto:

description BACKBONE #- OID:XXXX #- TO_PAPTYUFICDJUEX450X01 - XXXXX #- ENCAPSULATION:DOT1Q #- VID:TRUNK ## INTERFAZ SERVICIOS
no ip address
service instance 4 ethernet
description PRUEBAS
encapsulation dot1q 4
rewrite ingress tag pop 1 symmetric
service-policy output PRUEBA
bridge-domain 4
!
service instance 104 ethernet
description XXXXX #- PREMIUM_IP #- 200MB_VID:104 #- XXXX_A&D EQUIPMENT #- XXXXXXX #- XONNECT-DC VICTORIA PLAZA ## UTP
encapsulation dot1q ...

Buenos días. Tengo un problema a la hora de guardar contenido de un editor WYSIWYG en un .dat simple desde Perl.

Al guardar se desconfigura el contenido, e incluso salta las líneas del campo preestablecido donde debe estar contenido dicha información.

open (DATOS, "$archivo_articulos") || &Error ($!, "$archivo_articulos");
open (TEMPORAL, ">$archivo_temporal") || &Error ($!, "$archivo_temporal");
while($archivo=<DATOS>){
chop $archivo;
$parrafo=~s/\r//g;
$parrafo=~s/\n/\<br>/g;
$parrafo=~s/\n/<\p>/g;
$cadena="$archivo";
@matriz=split("\t",$archivo);
$cod=$matriz;
if ($cod eq $codigo){
$cadena="$codigo\t";
$cadena="$cadena$titulo\t";
$cadena="$cadena$parrafo\t$galerias\t$linkt\t$link\t$autor\t$email\t$inactivo";
}
print ...

¿Qué tal? Buenas tardes.

Estoy buscando la existencia de and al final de una cadena $sql:

$sql="SELECT local,eq,descrip_mantto,atend,f_inicio,f_termino ,lic,edo,actividad from t_manttos tm, c_manttos cm where tm.tipo_mantto=cm.tipo_mantto and tm.local='TMD' and f_inicio::date between '2020-01-01' and '2020-07-31'";

La búsqueda la realizo de la siguiente manera:
if ($sql !=~ /$and/) {
print "EXISTE";
}

RESULTADO: Me arroja que EXISTE pero eso es falso porque la última palabra es una fecha.

Agradeceré de su gran apoyo para descubrir ...