One-line Perl para extrair emails de arquivos de texto

Boa!

Faz tempo, que não coloco nada no ar, mas, lá vai.
A algum tempo precisei limpar um arquivão e tirar um monte de emails dele.
Achei esse comando mágico na internet (não tenho mais a fonte, desculpe autor..):

~# perl -wne'while(/[\w\.]+@[\w\.]+\w+/g){print "$&\n"}' file.txt

Ele vai devolver na tela os emails, um por linha!

Comentários

Tão vazio aqui... deixe um comentário!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Barra lateral