#!/bin/bash
# Troca ; por ,
sed 's/;/,/g' base_emails.txt > emails1
# Quebra o arquivo em linhas
sed 's/,/\r\n/g' emails1 > emails2
# retira as linhas em branco
sed 's/^$//g' emails2 > emails1
# Filtra os emails
perl email.perl emails1 > emails2
# Coloca o arquivo em modo UNIX
tr -d '\r' <  emails2 > emails1
# Coloca , no final de cada linha
sed 's/$/, /g' emails1 > emails2
# Tira os espacos entre o email e virgulas
sed 's/ ,/,/g' emails2 > emails1 
# Tira aspas simples e aspas duplas dos emails
sed 's/\"//g' emails1 > emails2
#cat emails1 > emails2
# Ordena os emails e tira os repeditos
sort emails2 | uniq > emails1
#Separa de 500 em 500 emails
#sed '0~200G' emails1 > lista_emails.txt
#sed '0~200G' emails1 > mala_direta.txt
cat emails1 > mala_direta.txt
# Limpa os emails descadastrados
for i in `cat descadastrar.txt`
do 
   grep -v $i mala_direta.txt > emails1 
   cat emails1 > mala_direta.txt
done
# Verifica para ver se nao existe emails descadastrado na lista
echo "Verificando se existe emails de descadastro na lista"
for i in `cat descadastrar.txt`
do
   grep $i mala_direta.txt
done
# Apagando os temporarios
rm -f emails1 emails2

echo "Atualmente mala direta com `wc -l mala_direta.txt | cut -d" " -f1` emails"