buscar texto dentro de un archivo [PERL]

[tekun]

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

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 

Gracias y Felíz Navidad!

[tekun]

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

[Non Servium]

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  jajaja

[tekun]

y pensar que en el itca dí una exposición del lenguage PERL añlskfjsñladkfjlañsdk uttta pero haya por el 2001 no creí que iva a utilizar esta lengua

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