История изменений
Исправление
helios,
(текущая версия)
:
cat file.db | perl -e 'while($str = <>){ print "$1\n" while $str =~ /\G.*?([a-z0-9_\-\.]+@[a-z0-9_\-\.]+\.\w{2,4})/gic }' > emails.txt
Как-то так.
Исправление
helios,
:
cat file.db | perl -e 'while($str = <>){ print "$1\n" while $str =~ /(\G[a-z0-9_\-\.]+@[a-z0-9_\-\.]+.\w{2,4})/gic }' > emails.txt
Как-то так.
Исходная версия
helios,
:
[code]cat file.db | perl -e 'while($str = <>){ print «$1\n» while $str =~ /(\G[a-z0-9_\-\.]+@[a-z0-9_\-\.]+.\w{2,4})/gic }' > emails.txt[/code]
Как-то так.