ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
19.02.2008, 17:45
|
|
Познавший АНТИЧАТ
Регистрация: 02.06.2006
Сообщений: 1,188
Провел на форуме:
6023777
Репутация:
2642
|
|
PHP код:
<?php
$old_file_name = 'mails.txt';
$new_file_name = 'new_mails.txt';
$new_array = array();
foreach(explode("\n", file_get_contents($old_file_name)) as $string) {
if(preg_match('~[A-Za-z0-9\._-]+@[A-Za-z0-9\._-]+::.+~', $string)) {
$new_array[] = $string;
}
}
$fopen = fopen($new_file_name, 'a');
fwrite($fopen, implode("\n", $new_array));
fclose($fopen);
?>
Не тестил |
|
|
19.02.2008, 18:20
|
|
Новичок
Регистрация: 23.01.2008
Сообщений: 15
Провел на форуме:
20588
Репутация:
63
|
|
Ай да красавчег! Работает! Спасибо огромнейшее! Спасибо всем, кто помогал.
|
|
|
|
20.02.2008, 05:36
|
|
Отец порядка
Регистрация: 04.03.2005
Сообщений: 1,007
Провел на форуме:
1204641
Репутация:
412
|
|
как-то php выглядит с одной стороны роднее, а с другой такой гигантизм прям по сравнению я перловкой)
кстати, а че ежели сначала замутить
strtolower($mails);
а потом тупо выдергивать строки, в которых есть
'@rambler.ru'
по-моему будет проще регулярок. хотя хз
Последний раз редактировалось DRON-ANARCHY; 20.02.2008 в 05:38..
|
|
|
|
20.02.2008, 15:06
|
|
Участник форума
Регистрация: 03.05.2006
Сообщений: 167
Провел на форуме:
125505
Репутация:
116
|
|
PHP код:
<?php
$file = file('mail.txt');
foreach ($file as $mail) {
if (strpos($mail, '@rambler.ru') !== false) {
echo $mail;
}
}
|
|
|
|
20.02.2008, 15:09
|
|
Участник форума
Регистрация: 03.05.2006
Сообщений: 167
Провел на форуме:
125505
Репутация:
116
|
|
Полная версия (с выводом в новый файл):
PHP код:
<?php
$file = file('in.txt');
foreach ($file as $mail) {
if (strpos($mail, '@rambler.ru') !== false) {
$out[] = $mail;
}
}
$file = fopen('out.txt', 'w');
fputs($file, implode('', $out));
fclose($file);
|
|
|
|
09.04.2008, 12:02
|
|
Banned
Регистрация: 25.12.2006
Сообщений: 179
Провел на форуме:
2337678
Репутация:
354
|
|
Приветствую, прошу прощения, что апнул тему...
В общем есть база вида:
lsben@yahoo.com::goodmorning
что следует изменить в вышеприведённом коде, для отсеивания имен и составления списка чистых мыл, вида:
lsben@yahoo.com
Или выложите плз рабочий кусок кода, т.к. в php не силён 
Заранее благодарен, с ув. ThreeD |
|
|
|
09.04.2008, 12:46
|
|
Banned
Регистрация: 15.07.2007
Сообщений: 39
Провел на форуме:
1122110
Репутация:
43
|
|
Сообщение от ThreeD
Приветствую, прошу прощения, что апнул тему...
В общем есть база вида:
lsben@yahoo.com::goodmorning
что следует изменить в вышеприведённом коде, для отсеивания имен и составления списка чистых мыл, вида:
lsben@yahoo.com
Или выложите плз рабочий кусок кода, т.к. в php не силён
Заранее благодарен, с ув. ThreeD open(IN,"mails.txt") || die "cant open file man!";
while(<IN>) {
print $1."@".$2,"\n" if /(\w+)\@(.*?): \w+)/;
}
|
|
|
|
09.04.2008, 12:58
|
|
Banned
Регистрация: 25.12.2006
Сообщений: 179
Провел на форуме:
2337678
Репутация:
354
|
|
Работает  Забыл файл с мылами переименовать
Спасибо +!
Последний раз редактировалось ThreeD; 09.04.2008 в 13:24..
|
|
|
|
09.04.2008, 13:09
|
|
Banned
Регистрация: 15.07.2007
Сообщений: 39
Провел на форуме:
1122110
Репутация:
43
|
|
Сообщение от ThreeD
Не работает эээ...
это Perl,если что
У меня все работает,проверял
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
