El pašto adresų gavimas

Iš Žinynas.
02:16, 16 kovo 2019 versija, sukurta 193.217.5.19 (Aptarimas)
(skirt) ← Ankstesnė versija | Dabartinė versija (skirt) | Vėlesnė versija → (skirt)
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