Помогите с парсером [Perl]

Помогите с парсером [Perl]

16.02.2009, 14:08

$p01nt

Участник форума

Регистрация: 19.02.2008

Сообщений: 186

С нами: 9591697

Репутация: 96

Помогите с парсером [Perl]

Ребят как реализовать парсинг логов вида:

Цитата:

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

COUNTRY: EN
Немного левого текста
Login=dxgfhd
Password=5455555

Нужно вытащить логин и пароль, регулярку я знаю Login=(.*);
и Password=(.*)
а как обработать хз...

𝕏 Twitter Reddit Telegram Копировать ссылку

16.02.2009, 14:17

demond

Участник форума

Регистрация: 05.11.2008

Сообщений: 105

С нами: 9217801

Репутация: 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..

16.02.2009, 15:23

Kaimi

Познавший АНТИЧАТ

Регистрация: 23.08.2007

Сообщений: 1,237

С нами: 9851426

Репутация: 1676

Код:

$/ = undef;
open F, "<", "log.txt" || die $!;
$data = <F>;
close F;

while($data =~ /Login=(.{1,30})\nPassword=(.{1,30})\n/g)
{
print $1.":".$2."\n";
}

Создать сделку

Мои сделки

Сделка