• Выборные дебаты

[Ьoьoрaмa]

Увы, мне не оценить этой песни. Я не знаю английского."что вообще я делаю в этом вашем списке-то?" - хм)), в каком списке?)))

Да песенка Миленки про ее отношение к лазаревцам.

В списке кандидатов на модерирование.

[AKRESS]

Может на форуме есть некий андеграунд .
Они ничего не постят, а только читают, читают и обсуждают это все гдето между собой по неизвестным нам каналам

Это фффсё ТЕМНАЯ МАТЕРИЯ... (ну и - порадую Ладу - специально для неё - )................

[Лада]

Хочется отодвинуться, шоб не забрызгал.


Кто там ещё - по кому объяснить, почему проотив - за? Хануман, давно с ним не пересекались. Плохо помню его, помню только - ему всё какие-то развратницы везде мерещились...)) Не знаю, может, я и ошиблась, голосуя в его случае. Моджет. со севтланой ошиблась.. бог ведает, в общем. поживём - увидим.
Может, и с Дмитри-диагност который, ошиблась... Не знаю.

[Богомол]

Молодцы Администраторы!

Давно бы так!

[Aliona]

[Лада]

Фермион... а, да.. не знаю, он меня подкупил тем. что знает про бозон Хиггса

Богомол, долго сомневалась, у меня арахнофобия... но он обаяельный такой))

О, да. администраторы молодцы))))))))))))))))))это точно. Ананас, поди, выдал)))

[Ананас]

кабанчег
а поделись скриптом?)))

Лада не, Эрик))

[Лада]

Ура!!!!!!!!!!!!! А то уже думала,что он и есть Дед Мороз - приходит раз в году, сыпет снежинки и устраивает весёлые выборы....

[Богомол]

он обаяельный такой))

Я буду - не я, если не сделаю так:

[Лада]

)))))

[Beth]

Эрику - спасибо!
В продолжение банкета:

Как видно по постингам на крайних страницах, сублимирование в Сети до добра не доводит "Бордели" какие-то... "Мужчина должен удовлетворять ЖЕНЩИНУ по первому требованию!!!" ... Клиника в чистом виде

[Лада]

Ну-ну... кто что видит... написано одно - "цитируют" абсолютно другое. )))
Хм))

С другой стороны, ну, хоть радость у женщины))). Опять что-то привиделось, показалось... и счастлива... аж смайлики со слюнями))), как у АКРЕССА.
Хм))

[кабанчег]

Ананас
код кривой на всю голову, однако пока както работает

Спойлер

#!/usr/bin/perl

# cd D:\for\voting\
# process_results.pl 1.html 2.html 3.html 4.html 5.html 6.html > 2009-01-29-01-22.txt

use strict;
use warnings;

sub process_results
{
my @pp1 = ();

#
while (<>) {
if ( /^[\s]*<p class="author">.*<\/p>$/) {
s/<[^>]*>//g;
s/^[\s]+//g;
/^([^\s]+)\s.*/;
push @pp1, $1;
} else {
if (/^[\s]*<div class="content">.*<\/div>$/) {
s/^[\s]+//g;
chomp($_);
push @pp1, $_;
}
}
}

print "******************************************************\n";
# foreach (@pp1) {
# print $_, "\n";
# }
print "******************************************************\n";

#
my $ignore_list = { # everyone after Чт, 15 янв 2009, 00:11
"Бirma" => "На форуме c 15 янв 2009, 03:02"#,
# "Krystal" => "Примитивный скрипт не может распознать набраное руками..."
};

#
my $pp2 = {};
my $last_voter;
foreach (@pp1) {
if (/^[\s]*<div class="content">(.*)<\/div>$/) {
if (exists $pp2->{$last_voter}) {
print "Duplicate voting found for user $last_voter\n";
}
if (exists $ignore_list->{$last_voter}) {
next;
}

$pp2->{$last_voter} = $1;

if ($last_voter eq "Krystal") {
$pp2->{$last_voter} = "1. Akipik - За <br />2. Akress - --- <br />3. Dmitrig - Против <br />4. Fermion - Против <br />5. Jack - За <br />6. Hanuman - --- <br />7. Kadet - Против <br />8. Ku_ka_re_ku - Против <br />9. Lana - За <br />10. Popobawa - Против <br />11. Stanislav - Против <br />12. Stella - --- <br />13. Богомол - --- <br />14. Дмитро - --- <br />15. Крыс - --- <br />16. Лада - Против <br />17. Светлана В - --- <br />18. Человеков - За";
}

} else {
$last_voter = $_;
}
}

while (my ($user,$vote_data) = each(%$pp2)) {
print "$user\n$vote_data\n";
}
print "******************************************************\n";

my $results = {};

while (my ($user,$vote_data) = each(%$pp2)) {

my @votes = split(m/<br \/>/, $vote_data);
my $votes_count = @votes;
if ($votes_count != 18) {
print "\nUnexpected voting data:\n\t$user\n\t$vote_data ...\n";
return;
}

for (@votes) {
# "5. Jack - За ", "17. Светлана В - --- "
s/^[0-9]{1,2}\.[\s]+//; # remove "5. ", "17. "
s/[\s]+-[\s]+/@/; # replace " - " with "@"
s/[\s]*$//; # remove spaces at the end of string
my ($name, $vote) = split(m/@/, $_);
if (defined($name) && defined($vote) )
{
if (!exists $results->{$name}) {
$results->{$name} = {};
$results->{$name}->{"Yes"} = 0;
$results->{$name}->{"Total"} = 0;
$results->{$name}->{"No"} = 0;
$results->{$name}->{"Ig"} = 0;
$results->{$name}->{"Rate"} = 0;
}

$results->{$name}->{"Total"} += 1;

if ($vote eq "За") {
$results->{$name}->{"Yes"} += 1;
$results->{$name}->{"Rate"} += 1;
}
elsif ($vote eq "Против") {
$results->{$name}->{"No"} += 1;
$results->{$name}->{"Rate"} -= 1;
} else {
$results->{$name}->{"Ig"} += 1;
}


} else
{
print "\nUnexpected voting data:\n\t$user\n\t$vote_data\n\t$_ ...\n";
}
}
}

# -------------------------------------------------------------------------
# sorting
my @cnames = keys %$results;

for (my $i=0; $i<=$#cnames; ++$i)
{
my $max_name_index = $i;
for (my $j=$i; $j<=$#cnames; ++$j)
{
my $max_rate = $results->{$cnames[$max_name_index]}->{"Rate"};
my $max_yes = $results->{$cnames[$max_name_index]}->{"Yes"};
my $j_rate = $results->{$cnames[$j]}->{"Rate"};
my $j_yes = $results->{$cnames[$j]}->{"Yes"};

if ($j_rate > $max_rate) {
($cnames[$max_name_index], $cnames[$j]) = ($cnames[$j], $cnames[$max_name_index]);

} elsif ($j_rate == $max_rate) {
if ($j_yes > $max_yes) {
($cnames[$max_name_index], $cnames[$j]) = ($cnames[$j], $cnames[$max_name_index]);
}
}
}
}


print "******************************************************\n";
print "Voting results:\n";

for my $name (@cnames)
{
my $yes = $results->{$name}->{"Yes"};
my $total = $results->{$name}->{"Total"};
my $no = $results->{$name}->{"No"};
my $ig = $results->{$name}->{"Ig"};
my $rate = $results->{$name}->{"Rate"};

print "$name $rate ($yes - \"За\", $no - \"Против\", $ig - \"---\", $total - \"Всего\") \n";
}

print "******************************************************\n";
print " - Бirma игнорируется\n" ;
print " - Голосование пользователя Krystal зашито в скрипт !!!\n" ;
}

process_results(@ARGV);

[Ананас]

кабанчег
даа.. мощный скрипт % ) ниче не понимаю в перле)

[СТ]

Но разве эти темы навязывают мне что-то?

если используют твое имя, то навязывают. Ты преувеличиваешь отстраненность в таком вопросе. "без меня меня женили".

[AKRESS]

Ну-ну... кто что видит... написано одно - "цитируют" абсолютно другое. )))
Хм))

С другой стороны, ну, хоть радость у женщины))). Опять что-то привиделось, показалось... и счастлива... аж смайлики со слюнями))), как у АКРЕССА.
Хм))

Это не слюни...

Это ИСТЕКАНИЕ БОЖЕСТВЕННОЙ ЭНЕРГИИ...

[СТ]

Dmitrig
у меня такое впечатление, что ты издеваешься... Я уже не буду повторять, что создание темы с именем участника и о нем - навязывание, т.к. было против его согласия. использование имени без согласия - навязывание. Навязывание индивиду выставление его имени и персоналий на общественное обсуждение. Как папарацци.
Больше я тебе объяснять не буду, поскольку не вижу ни желания понимать, а может, и возможности. Что бодаться зазря?