Autor Tema: buscar texto dentro de un archivo [PERL]  (Leído 2057 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado tekun

  • -^- Elite Silver -^-
  • Trade Count: (1)
  • The Communiter-
  • *
  • Thank You
  • -Given: 53
  • -Receive: 101
  • Mensajes: 3212
  • Han convertido mi casa en cueva de mercaderes!!!!
    • www.tekun.es
buscar texto dentro de un archivo [PERL]
« : diciembre 24, 2013, 09:30:26 am »
bueeennas

toy mejorando mi firewall y me estoy apoyando del servicio logwatch para ello....

estoy guardando las ip que se estan conectando a mi server a joder, toy armando una lista de IP y no quiero insertar valores duplicados... la onda es, como puedo buscar en un archivo de texto plano, si ya existe un valor....

entiendo que puedo hacerlo con expresiones regulares y con otras ondas... pero el piquete es que lo que he echo, lo he logrado a puro  COPY/PASTE entiendo mucho del código, pero no lo suficiente como para parir una idea de lo que quiero.... por eso recurro a ustedes... los scripts de LOGWATCH están el PERL ahí es donde he insertado código para agarrar las ip e insertarlas en un archivo plano, pero lo que no quiero es estar metiendo IP's DUPLICADAS... quiero antes de meter una IP ver si ya existe en el archivo...

esto es lo que tengo...
Código: [Seleccionar]
open (MYFILE, '>>/root/scripts/blocked_ip.txt'); # abrir el file de las IP spamers
#..... bla bla bla bla.... del logwatch
print MYFILE "$ip\n"; # con esto inserto nuevas ip
#...... mas bla bla del logwatch
close (MYFILE); # luego de meter todo... cierro el archivo

la variable $ip, obviamente tiene la ip que se conecta a mi server..... quiero buscar ese valor dentro del archivo MYFILE para evitar duplicados.... como utas hago...  x_x

si me ponen un ejemplillo sería un excelente regalo para estas fechas.... toy imaginando que santa esta leyendo este post y que me dejara mi regalo  :yao_ming:

Gracias y Felíz Navidad!


lo difícil lo hago rápido, con lo imposible, casi siempre me tardo un poquito

Desconectado tekun

  • -^- Elite Silver -^-
  • Trade Count: (1)
  • The Communiter-
  • *
  • Thank You
  • -Given: 53
  • -Receive: 101
  • Mensajes: 3212
  • Han convertido mi casa en cueva de mercaderes!!!!
    • www.tekun.es
Re:buscar texto dentro de un archivo [PERL]
« Respuesta #1 : diciembre 27, 2013, 11:10:26 am »
hey foro tecnologico... nadie me puede char una mano ??¿¿

o será que pedi en mal momento.... digo porque estan de vaca no quieren trabajar... no me refiero a que todavía andan volando volando XD
lo difícil lo hago rápido, con lo imposible, casi siempre me tardo un poquito

Desconectado Non Servium

  • Trade Count: (0)
  • Sv Member
  • ***
  • Thank You
  • -Given: 6
  • -Receive: 39
  • Mensajes: 426
  • Ilix Punx :)
Re:buscar texto dentro de un archivo [PERL]
« Respuesta #2 : diciembre 27, 2013, 12:00:10 pm »
No soy un programador de PERL pero veo que hay un poco de lo que necesitas en Stackoverflow

Si no te funciona talvez podrías ver tu necesidad desde la perspectiva para sacar los valores únicos (aún cuando tu lista tenga duplicados). No creo que te pueda ayudar mucho pero parece que los demás andan a goma todavía  :embarassed: jajaja
♫ Condenados a perder la libertad! Por no acatar las leyes que les asignaron. ♪ ♫
Decididos, decididos a emprender! Un camino largo y duro por no ser esclavos ♫


Watch

Desconectado tekun

  • -^- Elite Silver -^-
  • Trade Count: (1)
  • The Communiter-
  • *
  • Thank You
  • -Given: 53
  • -Receive: 101
  • Mensajes: 3212
  • Han convertido mi casa en cueva de mercaderes!!!!
    • www.tekun.es
Re:buscar texto dentro de un archivo [PERL]
« Respuesta #3 : diciembre 28, 2013, 11:00:45 am »
y pensar que en el itca dí una exposición del lenguage PERL añlskfjsñladkfjlañsdk XD XD uttta pero haya por el 2001 no creí que iva a utilizar esta lengua XD

de verdad muchas gracias a ambos, aunque aquí no este el otro...

se volvía mucha carga al server al poner la verificación de todo el archivo por IP, pues son muchas ip de busqueda y muchas dentro del archivo..... aunque el server es de 8 cores y 16 GB ram, no me quiero arriesgar por algo tan insignificante.....

además tengo otro clavo que el mentado logwatch tiene varios scripts, unos escritos en perl otro en bash.... y tar haciendo malabares para ambos lenguajes no me salen las cuentas....

así que opte por la solución "valeviente los valores duplicados" no creo que las iptables colicionen por tener el mismo DROP por una ip dos veces... que es lo más que va a existir...

gracias nuevamente... ya tengo bastante bonito mi firewall... hasta ahorita, con 3 días de funcionamiento, tengo casi 300 IP ya en lista negra, por andar de vivos queriendo ocupar mi server como proxy.... y por querer bloquear mi super clave en sshd....

:thumbsup:
lo difícil lo hago rápido, con lo imposible, casi siempre me tardo un poquito