https://wiki.eofnet.lt/w//index.php?action=history&feed=atom&title=El_pa%C5%A1to_adres%C5%B3_gavimas 2026-04-15T10:46:44Z Šio puslapio versijų istorija projekte MediaWiki 1.35.1 https://wiki.eofnet.lt/w//index.php?title=El_pa%C5%A1to_adres%C5%B3_gavimas&diff=8821&oldid=prev 2019-03-15T23:16:47Z

<p></p> <p><b>Naujas puslapis</b></p><div> perl -ne'if(/[\w\.\-\_]+@([\w\-\_]+\.)+[A-Za-z]{2,4}/g){print &quot;$&amp;\n&quot;}' tekstas.txt | sort | uniq &gt; pasto_adresai.txt<br /> 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<br /> grep -h -E -o &quot;\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,6}\b&quot; tekstas.txt | sort | uniq &gt; pasto_adresai.txt<br /> = Atrinkimas =<br /> Atrinkti tiktai unikalius adresus<br /> cat vienas_failas antras_failas |awk '!x[$0]++' &gt; unikalus.txt<br /> Surikiuoti abeceles tvarka ir sudeti tiktai unikalius<br /> cat vienas_failas antras_failas| sort -u &gt; unikalus_surikiuotas.txt<br /> <br /> = Pastu skirstymas =<br /> LT:<br /> cat pasto_adresai.txt |grep -i \.lt &gt; lietuviski_emailai.txt<br /> KITI:<br /> cat pasto_adresai.txt |grep -vi \.lt &gt; kiti_emailai.txt<br /> <br /> [[Category:Scripts]]</div>

193.217.5.19