#!/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;
 

#!/usr/bin/perl 
 
$text = 'mAil-1@mail.com palabra6 palabra9 palabra2 palabra11 mail3@mail.com.uy palabra1 ma_il2@mail.com palabra4 palabra5 palabra7 palabra3 palabra8 mial4@mail.com.ar';
while($text =~ m/([\w\-]*?@\w+\.\w+\.?\w+)\s?/g){
print $1, "\n";
}
exit;

yoya@yoya-desktop:~/Escritorio$ perl e.pl
mAil-1@mail.com
mail3@mail.com.uy
ma_il2@mail.com
mial4@mail.com.ar