Ver Tema - Select de BD a fichero de texto+control de tiempo+conex RSH

mjimenez · 2009-02-12 22:20 @972

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:

Syntax: [ Download ] [ Hide ]

Using sql Syntax Highlighting

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 comprobar que el último evento sea distinto del anterior almacenado en el fichero de log alarma de ttime 1122 nueva en el tiempo de la siguiente generada 1123...
La alarma llegará cada 5 minutos.
Si no llegara ninguna alarma hago una llamada remota RSH a un servidor para ejecutar un comando. Esperaría otros 5 minutos para ver si me siguen llegando alarmas (para no crear un bucle infinito).

¿Cómo puedo hacer esto? Lo que tengo no me está dando resultado (he consultado muchos libros y no soy capaz de realizarlo)

Agradecería cualquier tipo de colaboración.
¡Gracias!

mjimenez · 2009-02-12 22:22 @973

Conexion RSH...

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use Net::Rsh;

  $a=Net::Rsh->new();

  $host="10.30.100.20";

  $local_user="root";

  $remote_user="root";

  $cmd="ls -ltr/home/$user";

  @c=$a->rsh($host,$local_user,$remote_user,$cmd);

  print @c;

Código:

Rsh protocol requires that the program be run as root or that the program be setuid to root

mjimenez · 2009-02-12 22:23 @974

Grabar contenido en un archivo:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

open(FH,"filename");

@stuff = <FH>;

close(FH);

¿¿Está bien??

mjimenez · 2009-02-12 22:25 @975

Aunque también encontré este pequeño ejemplo de código para grabar un fichero en una máquina remota con remotecopy rcp:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use Net::Rsh;

$rsh_connection->rsh($_,$username,$username,$command);

Código:

Quick program to rcp files to other hosts. 
Makes backup of old file first then copies across.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/bin/perl

$testigo="testigo.txt";

$destino="destino.txt";

$dir="/opt/home/user";

$rcp="/bin/rcp";

$rsh="/bin/rsh";

host1="10.30.100.20";

host2="10.30.100.30";

host3="10.30.100.40";

@hosts = (host1,host2,host3);

foreach $host(@hosts)

{

 `$rsh $host cp $dir/$testigo $dir/$destino`;

 `$rcp $testigo $host:$dir`;

 print "$rcp $testigo $host:$dir\n";

}

Pero no me está funcionando tampoco...

explorer · 2009-02-13 04:49 @242

mjimenez escribió:

Grabar contenido en un archivo:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

open(FH,"filename");

@stuff = <FH>;

close(FH);

¿¿Está bien??

Ahí estás leyendo el contenido del fichero, no grabándolo.

mjimenez · 2009-02-13 05:39 @277

Hola explorer, bien, para grabarlo usaría:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

open(FH,"filename");

@stuff = <FH>;

print FH $new_stuff;

close(FH);

mjimenez · 2009-02-13 05:40 @277

Edito:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

open(FH,">filename");

@stuff = <FH>;

print FH $new_stuff;

close(FH);

explorer · 2009-02-13 05:53 @287

Recuerda que puedes editar tus propios mensajes, con el botón que hay a la derecha, en cada mensaje.

Si, por lo que sospecho, solo quieres cambiar una línea del fichero de texto, te recomiendo usar Tie::File.

¿Qué diferencia hay entre @stuff y @new_stuff? ¿Son muy grandes las diferencias?

Publicidad

Socializa