02.09.2007, 10:55
|
|
Постоянный
Регистрация: 05.06.2007
Сообщений: 335
С нами:
9965892
Репутация:
677
|
|
файл на входе:
mail@site.ru
<mm>billi-huilli@microsoft.com<mm>
rere milo@mail.com rere
скрипт:
#!/usr/bin/perl
open (html, '<file.txt');
open (mila, '>mila.txt');
while (<html>) {
if ($_ =~ /[ |>|;](.+@.+.\w+)[ |<|&]/gi) {
print mila "$1\n";
}
}
close html;
close mila;
на выходе:
mail@site.ru
billi-huilli@microsoft.com
milo@mail.com
|
|
|