El pašto adresų gavimas
Jump to navigation
Jump to search
perl -ne'if(/[\w\.\-\_]+@([\w\-\_]+\.)+[A-Za-z]{2,4}/g){print "$&\n"}' tekstas.txt | sort | uniq > pasto_adresai.txt
Pastarasis būdas netinka jeigu daug adresų surašyta į vieną eilutę (sql dump'as ir t.t.), tuomet galime pasinaudoti egrep visiems adresatams išgauti
grep -h -E -o "\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,6}\b" tekstas.txt | sort | uniq > pasto_adresai.txt
Atrinkimas[keisti]
Atrinkti tiktai unikalius adresus
cat vienas_failas antras_failas |awk '!x[$0]++' > unikalus.txt
Surikiuoti abeceles tvarka ir sudeti tiktai unikalius
cat vienas_failas antras_failas| sort -u > unikalus_surikiuotas.txt
Pastu skirstymas[keisti]
LT:
cat pasto_adresai.txt |grep -i \.lt > lietuviski_emailai.txt
KITI:
cat pasto_adresai.txt |grep -vi \.lt > kiti_emailai.txt