Enviado em 04/01/2008 - 18:47h
Então gente estou com alguns problemas para criar um script para retirar somente email de um arquivo texto em perl. Estou aprendendo a linguagem agora por isso estou com mtas dificuldades
meu codigo eh esse:
#!/usr/bin/perl
open(DADOSMAIL, "teste.txt") || die "Arquivo com E-Mails não encontrado\n";
#open(ARQ2,">testando_oficial.txt");
while(<DADOSMAIL>) {
$temp=0;
if ($_ =~ /(.+)@(.+)/){
print "bla: ".$_."\n\n";
$temp = index($_,"@");
$tmp = rindex($_, " ");
$_=substr($_,$temp,$tmp);
print "temp: ".$_."\n";
exit(0);
}
}
close(DADOSMAIL);
mas ele está retirando apenas a partir do dominio e não consigo retirar o nome do usuário do texxto. Alguém pode ajudar??
Bruno Araújo Boni
meu codigo eh esse:
#!/usr/bin/perl
open(DADOSMAIL, "teste.txt") || die "Arquivo com E-Mails não encontrado\n";
#open(ARQ2,">testando_oficial.txt");
while(<DADOSMAIL>) {
$temp=0;
if ($_ =~ /(.+)@(.+)/){
print "bla: ".$_."\n\n";
$temp = index($_,"@");
$tmp = rindex($_, " ");
$_=substr($_,$temp,$tmp);
print "temp: ".$_."\n";
exit(0);
}
}
close(DADOSMAIL);
mas ele está retirando apenas a partir do dominio e não consigo retirar o nome do usuário do texxto. Alguém pode ajudar??
Bruno Araújo Boni
