Hola estoy intentando controlar a través de una select que me llega a una tabla la forma de leer el último fetch de mi select y colocarla en un fichero de texto.
Esto es lo que estoy haciendo:
En la query:
select id,text, node, ttime from eventos where lower(text) like '%mialarma%' order by ttime desc limit 1;
Me devuelve: ID, mialarma texto, ttime
1. Debería añadir el fetch a un fichero de texto...
@file
2.Debo ...
-
- Publicidad
Fecha actual 2026-03-18 17:43 @780
News of Foro - Perl en Español
Site map of Foro - Perl en Español » Foro : Foro - Perl en Español
La comunidad de programadores en Perl de habla-hispana.Select de BD a fichero de texto+control de tiempo+conex RSH
Read more : Select de BD a fichero de texto+control de tiempo+conex RSH | Vistas : 2555 | Respuestas : 7 | Foro : Bases de datos
No logro hacer un INSERT coherente
Estas son las propiedades de la select de la tabla a la que intento hacer el insert:
SELECT * from eventos where lower(text) like '%testigo%' order by ttime desc limit 1;
+-------+----------------------------
| ID | TEXT | CATEGORY | DOMAIN | NETWORK | NODE | ENTITY | SEVERITY | TTIME | SOURCE | HELPURL | WEBNMS | GROUPNAME | OWNERNAME |
+-------+---------------------------
| 20927 | Alert: testigo : arrived | public | | | 10.168.100.20 ...
SELECT * from eventos where lower(text) like '%testigo%' order by ttime desc limit 1;
+-------+----------------------------
| ID | TEXT | CATEGORY | DOMAIN | NETWORK | NODE | ENTITY | SEVERITY | TTIME | SOURCE | HELPURL | WEBNMS | GROUPNAME | OWNERNAME |
+-------+---------------------------
| 20927 | Alert: testigo : arrived | public | | | 10.168.100.20 ...
Read more : No logro hacer un INSERT coherente | Vistas : 2006 | Respuestas : 4 | Foro : Bases de datos
Para los que preguntan tanto: Perl como PHP realmente fácil
Bueno, para los que quieren trabajar como PHP con Perl y no quieren complicarse mucho por ahí usé un módulo llamado PerlHP, un intento para que Perl funcione como PHP y ¡vaya!, que lo que hace solo es requerir el módulo y de ahí para abajo todo se tomara como HTML excepto lo que se encuentre entre <? y ?>
Ejemplo:
#!/usr/local/bin/perl
use PerlHP;
<html>
todo lo que quieras
<?
print "Hola explorer";
?>
</html> ...
Ejemplo:
#!/usr/local/bin/perl
use PerlHP;
<html>
todo lo que quieras
<?
print "Hola explorer";
?>
</html> ...
Read more : Para los que preguntan tanto: Perl como PHP realmente fácil | Vistas : 2980 | Respuestas : 8 | Foro : Módulos
Existe algún módulo para crear mapas en Google Maps
Bueno, esta vez no me refiero a interactuar con el API, si no a crear los mapas directamente desde Google Maps con la cuenta de Gmail...
Lo que realmente necesito hacer, creo, es un robot que tome coordenadas de mi base de datos y viaje a Google Maps y me cree los mapas con el título que tengo en mi BD y la descripción...
MMm, no se me ocurre mucho para lograr eso, ya que ...
Lo que realmente necesito hacer, creo, es un robot que tome coordenadas de mi base de datos y viaje a Google Maps y me cree los mapas con el título que tengo en mi BD y la descripción...
MMm, no se me ocurre mucho para lograr eso, ya que ...
Read more : Existe algún módulo para crear mapas en Google Maps | Vistas : 2362 | Respuestas : 3 | Foro : Avanzado
Error log de YAML usando el Google Maps
Bueno como me he puesto a usar Perl ya para todo empiezan los problemas: estaba usando el HTML::GoogleMaps y en mi servidor funciona bien, ejemplo:
http://haciendagualcala.com/maps.pl?x=3.4150032190609485&y=-76.53100848197937&z=16&d=masterchowl
Pero en el hosting de ellos, que es uno deluxe de GoDaddy -creo que así se escribe- no me sale nada.
http://guiavital.com/posicionamiento/maps.pl?x=3.4150032190609485&y=-76.53100848197937&z=16&d=masterchowl
y en el log veo esto:
Thu Feb 12 13:48:49 2009] maps.pl: Unquoted string "l" may clash with future reserved word at /home/content/a/m/p/ampalacios/html/posicionamiento/maps.pl line 47.
[Thu Feb ...
http://haciendagualcala.com/maps.pl?x=3.4150032190609485&y=-76.53100848197937&z=16&d=masterchowl
Pero en el hosting de ellos, que es uno deluxe de GoDaddy -creo que así se escribe- no me sale nada.
http://guiavital.com/posicionamiento/maps.pl?x=3.4150032190609485&y=-76.53100848197937&z=16&d=masterchowl
y en el log veo esto:
Thu Feb 12 13:48:49 2009] maps.pl: Unquoted string "l" may clash with future reserved word at /home/content/a/m/p/ampalacios/html/posicionamiento/maps.pl line 47.
[Thu Feb ...
Read more : Error log de YAML usando el Google Maps | Vistas : 1601 | Respuestas : 2 | Foro : Módulos
Problemas con parámetros
Hola, el problema que tengo es que no sé cómo pasar parámetros ocultos. Les explico lo que estoy haciendo.
Estoy haciendo un script en Perl cuya función es generar reportes de acuerdo a una serie de opciones.
Esas opciones incluyen popus, radios, checkbox y campos de texto. Cuando yo doy clic en el botón Generar Reporte, todo va bien: los parámetros pasan ocultos y pongo una ventana en pantalla la cual le indica al usuario ...
Estoy haciendo un script en Perl cuya función es generar reportes de acuerdo a una serie de opciones.
Esas opciones incluyen popus, radios, checkbox y campos de texto. Cuando yo doy clic en el botón Generar Reporte, todo va bien: los parámetros pasan ocultos y pongo una ventana en pantalla la cual le indica al usuario ...
Read more : Problemas con parámetros | Vistas : 1101 | Respuestas : 3 | Foro : Intermedio
Instalación de Módulo Math::Pari
Les envío mis saludos quería saber si uno de ustedes me podía ayudar con la instalación del módulo Math::Pari; estoy instalando el módulo Net::SFTP pero al intentar intentar instalar la librería Math::Pari me indica el siguiente mensaje:
Por el gestor de paquetes de Linux ya instalé la librería de GP/PARI pero no tengo idea de cómo darle la opción para instalar el módulo Math::Pari. ...
- Code: Seleccionar todo
Could not find GP/PARI build directory, please run Makefile.PL
withparidir=/directory option.
Por el gestor de paquetes de Linux ya instalé la librería de GP/PARI pero no tengo idea de cómo darle la opción para instalar el módulo Math::Pari. ...
Read more : Instalación de Módulo Math::Pari | Vistas : 751 | Respuestas : 3 | Foro : Básico
Se necesita ayuda para repasar la documentación de Parrot
El objetivo es ver qué falta, qué sobra(?), qué hay que modificar... todo para mejorar la documentación.
Ya sabéis: cuatro ojos ven más que dos. La gente que está dentro del proyecto quizás no vea algunas deficiencias que solo nuevos ojos son capaces de descubrir.
Lo importante es que los voluntarios no sean ni usuarios ni desarrolladores actuales de Parrot.
Más información (en inglés).
Ya sabéis: cuatro ojos ven más que dos. La gente que está dentro del proyecto quizás no vea algunas deficiencias que solo nuevos ojos son capaces de descubrir.
Lo importante es que los voluntarios no sean ni usuarios ni desarrolladores actuales de Parrot.
Más información (en inglés).
Read more : Se necesita ayuda para repasar la documentación de Parrot | Vistas : 1050 | Respuestas : 0 | Foro : Noticias de Perl
Error inexplicable en array dentro de hash
Cuando ejecuto esto:
(open (FICHEROCFG, "<$fichero_cfg") or die "No se puede abrir el fichero de configuracion de transacciones $fichero_cfg!!\n";
while ($linea=<FICHEROCFG>) {
($var1,$var2,$var3,$var4) = split (",", $linea);
$indice = $#{$db{$var1}} + 1;
$db{$var1}{'counter'} = '';
$db{$var1}{'Entidad'} = $var2;
$db{$var1}{'Agrupacion'} = $var3;
$db{$var1}{'Transaccion'} = $var4;
}
while (($data_contador, $data_cod_entidad, $data_cod_agr, $data_cod_operacion) = $sth1_do->fetchrow_array) {
foreach $cn_nombre (keys (%db)) {
foreach $cn_indice (0..$#{ $db{$cn_nombre}} ) {
if ($db{$cn_nombre}{'Entidad'} == $data_cod_entidad and $db{$cn_nombre}{'Agrupacion'} == $data_cod_agr) {
$db{$cn_nombre}{'contador'} = ...
(open (FICHEROCFG, "<$fichero_cfg") or die "No se puede abrir el fichero de configuracion de transacciones $fichero_cfg!!\n";
while ($linea=<FICHEROCFG>) {
($var1,$var2,$var3,$var4) = split (",", $linea);
$indice = $#{$db{$var1}} + 1;
$db{$var1}{'counter'} = '';
$db{$var1}{'Entidad'} = $var2;
$db{$var1}{'Agrupacion'} = $var3;
$db{$var1}{'Transaccion'} = $var4;
}
while (($data_contador, $data_cod_entidad, $data_cod_agr, $data_cod_operacion) = $sth1_do->fetchrow_array) {
foreach $cn_nombre (keys (%db)) {
foreach $cn_indice (0..$#{ $db{$cn_nombre}} ) {
if ($db{$cn_nombre}{'Entidad'} == $data_cod_entidad and $db{$cn_nombre}{'Agrupacion'} == $data_cod_agr) {
$db{$cn_nombre}{'contador'} = ...
Read more : Error inexplicable en array dentro de hash | Vistas : 991 | Respuestas : 5 | Foro : Básico
Descargar imágenes
Hola,
Necesito hacer un script en Perl que sirva para descargar imágenes de un sitio web, indicándole como input un archivo txt que contiene en cada línea una URL directamente a la imagen.
Ejemplo del txt:
Cada x cantidad de renglones hay una línea vacía. ¿Hay forma de que tome esta línea vacía, y genere una carpeta distinta para cada juego de imágenes? (cada juego de ...
Necesito hacer un script en Perl que sirva para descargar imágenes de un sitio web, indicándole como input un archivo txt que contiene en cada línea una URL directamente a la imagen.
Ejemplo del txt:
- Code: Seleccionar todo
http://www.lalalala.com/caratula02.jpg
http://www.lalalala.com.ar/caratula02.jpg
http://www.lalalala.com.ar/caratula02.jpg
http://www.lalalala.com/caratula01.jpg
http://www.lalalala.com.ar/caratula02.jpg
http://www.lalalala.com.ar/caratula02.jpg
http://www.lalalala.com/caratula02.jpg
http://www.lalalala.com.ar/caratula02.jpg
http://www.lalalala.com.ar/caratula02.jpg
Cada x cantidad de renglones hay una línea vacía. ¿Hay forma de que tome esta línea vacía, y genere una carpeta distinta para cada juego de imágenes? (cada juego de ...
Read more : Descargar imágenes | Vistas : 872 | Respuestas : 3 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36895 • Temas totales 7436 • Usuarios totales 1983