#!/usr/bin/perl
# Scrip en PERL que lista todos los mails encontrados en un ficheo plano de texto
# Esta limitado a listar solo los mails con formato user@host.xxx
#
#Declaracion de funcion inicializadora, compurbo que seespecificaron bien loas argumento o muestro la ayuda llamando a 'show_help()'
sub init(){
	if(($#ARGV+1)!=1){&show_help}
	else{
		if($ARGV[0] eq '--help'){&show_help}
		else{
			$fichero=$ARGV[0];
			#LLamo a la funcion que lee y porcesa la informacion
			&extraer_mails;
		}
	}
 
}
#Declaracion de funcion que informa uso
sub show_help(){
	print "lsmails.pl\nVersion 0.1 bajo Licencia GPL\n\n";
	print "Modo de empleo: lsmails --help | FICHERO\n";
	print "Devuelve todos los mails en FICHERO con formato user\@host.xxx\n\nOPCIONES:\n";
	print "\t--help:\t\tmuestra la ayudadel script.\n";
	print "\tFICHERO:\tdebe ser un archivo plano de texto\n\n";
	print "Ejemplo de uso:\tlsmails miarchivo.txt\n\n";
	print "Autor: [u]nsigned - facku.mail\@gmail.com\n";
	exit;
}
#Declaracion de funcion que lee y procesa el archivo de entrada
sub extraer_mails(){
	#Abro elarchivo
	open(AR,$fichero)||die"$!\n";
	while(<AR>){
		@palabras=split(" ",$_);
		foreach $palabra(@palabras){
			if($palabra=~/\w+@\w+\.\w*[^\.]$/){
				print "$palabra\n";
			}
		}
	}
}
 
&init;
 

Este script es simple, busca todas las direcciones de emial en un archivo pasado como parametro.

Mi duda es que con laexpresion regular solo eh conseguido que detecte los emails con formato user@host.xxx  y no eh conseguido que tambien me devuelva los mails con formato user@host.xxx.yy

Como deberia quedar la expresion regular?

Saludos.

PD: Soy novato en PERL&expresiones regulares, y se me ocurrio hacer este script para practicar lo que estoyaprendiendo 

hola..tengo una duda:

como se podria interactuar con una shell? me re fiero q que por ejemplo hay dos tipos de programas: los que se ejecutan de comienzo a fin y producen su salida sin esperar ninguna intervencion del user, ej

cat /etc/resolv.conf

pero por otro lado tenemos programas "interactivos", es decir que esperan que el use haga algo para actuar(o dejar de hacerlo) como less o top. queria saber por ejemplo si hay alguna forma de llamar a top,capturar a este en cierto tiempo (capturar la terminal como texto o directamente la info en binario) y luego esperar unos 15 seundosy volver a hacerlo..es posible? 

Saludos

Hola..bueno despues de pelear dependencias incumplidas e instalaciones fallidas por fin pude hacer que debian detecte mi modem Claro 3g ZTE MG110 ( me lo detectacomo ZTEmf626)

Eh instalado desde las fuentes usb-modeswitch. Como sabran tambien

El problemaes que cuando lanzo el wvdial este conecta a internet, pero al paraecer hay un error con los DND. Si pongo directamente la url no carga, si pongo la si..aunque muy lento y es casi imposible navegar. La ip de una pagina X la obtengo desde otra pc conectada a internet por medio de ping.

Eh probado cambiando los DNS en /etc/resolv.conf pero al lanzar wvdial este me reescribe dicho fichero..necesito ayuuda!

Alguien ah logrado hacer funcionar estos modems correctamente en Debian?

Saludos

Por que se ha decidido que solo users miembros del staff y moderadores puedan crear encuestas..las mismas suponen una recarga importante en la BB.DD del smf?


No digo que todos, pero seria bueno que al menos los users normales mas activos tambien puedan crear encuestas..

Bueno..esa es mi sugerencia del dia..seguramente ya se habra propuesto antes como todas las sugerencias del dia a dia

Saludos

Caules me recomindan??

Mi cel es un samsung sgh-i617

Saludos

PD: ya probe skyfire pero nome gusto..voy a ver que onda opera..uds cual otro recomiendan?

Buenas, hace unos dias me compre este celular:


- SO Windows Mobile 6.1
- ROM 256 MB, RAM 128MB
- Procesador Dual Core ARM 9 (260 MHz)

Queria saber si es posible cambiarle el SO por otro, algun WM mas nuevo(6.5 o 7), Symbian o Android.?
Con respecto a liberarlo por lo que he leido no es posible 

Y por ultimo que aplicaciones me recomiendan instalarle?

Bueno los entendidos del tema mediran..yo la verdad que ni idea de esto, es mas estuve casi un año ni movil 

Saludos y gracias por su ayuda 

Propongo Otros SO Tipo UNIX en lugar de Mac OS X, BSD. O algo asi, o simplemente OTROS SO's.

Por que la verdad que asi como es ahora, mas alla de usar el sentido comun para ubicar nuestro posten el foro correspondiente, tecnicamente hablando, si quisieramos estar en lo correcto no tenemos donde hablar de OpenSolaris, AIX o cualquier otro SO tipo unix o no.

Y la verdad que OpenSolaris es un SO con mucho presente y futuro por delante. Nisiquiera podemos hablar de GNU/Hurd  

Saludetes

PD: Por si no se entendio lo que propongo es simplemente que cambien en nombre del sub-foro 

Curioseando por aquí, curioseando por alla me tope con la colecciona de mails de algun spamer en formato txt albergados en algun free shell acount en muhcisimos archivos. Deben ser como 10 millones de mails, y los archivos mas recientes tienen apenas 4 meses.

Mi pregunta es que podria/deberia hacer con esto?..no sabes de alguna empresa de publicidad que compre mails? 

Saludos

Buscando webs sobre E-Learning me tope con esta,y descubri algo que me causo mucha gracia..sobre todo para una intitucion seria 


Al menos siguen en la Worldcup 
Saluuuuudos

Hola, me preguntaba si alguien sabe donde se puede rendir esta certificacion en Arg..casi seguro sera en Cap.Fed...yo soy de chubut..porlo que seria todo un tema viajar..alguien ah hecho dicha certificacion..si o si es presencial?

Saludos