ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
Перезагрузить страницу Помогите с парсером [Perl]
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Помогите с парсером [Perl]
  #1  
Старый 16.02.2009, 14:08
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540

Репутация: 96
По умолчанию Помогите с парсером [Perl]
Ребят как реализовать парсинг логов вида:

Цитата:
COUNTRY: RU
Немного левого текста
Login=stopped
Password=666666

COUNTRY: EN
Немного левого текста
Login=dxgfhd
Password=5455555
Нужно вытащить логин и пароль, регулярку я знаю Login=(.*);
и Password=(.*)
а как обработать хз...
 
Ответить с цитированием

  #2  
Старый 16.02.2009, 14:17
demond
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
Провел на форуме:
292722

Репутация: 71
По умолчанию
Читаешь из файла построчно. каждую строчку проверяешь на регуляное выражение /^Password=(.*)$/ и /^Login=(.*)$/
Код:
@tests = ("asdfasfd","asdfasdf","Password=sdfa111sdf","Login=sdfasdf");
foreach(@tests)
{
   $res=$1 if ($_=~/^Password=(.*)$/);
}
    print $res;
Только место @tests массив со строками файла.
Если надо больше конкретики, давай код, поможем его поравить. :-) Хотя куда уж больше!
Последний раз редактировалось demond; 16.02.2009 в 14:24..
 
Ответить с цитированием

  #3  
Старый 16.02.2009, 15:23
Kaimi
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311

Репутация: 1676


Отправить сообщение для Kaimi с помощью ICQ
По умолчанию
Код:
$/ = undef;
open F, "<", "log.txt" || die $!;
$data = <F>;
close F;

while($data =~ /Login=(.{1,30})\nPassword=(.{1,30})\n/g)
{
print $1.":".$2."\n";
}
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Народ!!! Помогите НАМ!!! Помогите покончить с беспределом!!! Monah Чаты 7 24.08.2005 07:06



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ