Perl

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..): [plain] ~# perl -wne’while(/[\w\.-]+@[\w\.-]+\w+/g){print “$&\n”}’ file.txt [/plain] Ele vai devolver na tela os emails, um por… ler mais »

UPDATE: Após mais de um arrumei o comando, que estava sem a segunda barra (/) no final. Essa linha magica já me salvou várias vezes, ela altera em todos arquivos *.txt a palavra “ENCONTRA” por “ALTERA”. Esse cara é case sensitive.. Você pode incrementar mais o find, passando mais tipos de arquivos, ou sendo mais específico… ler mais »