Архив мировоззренческого экс-официального форума, посвящённого изучению и обсуждению теории и практическому применению исследований С.Н. Лазарева, изучению религий и течений, познанию Мира и Себя.
Список разделов › Прочее › Беседка
Мечта-тель писал(а):(уважаемые дамы!этот пример есть рецепт, как распрощаться с вашими прежними любовниками, чтобы без боли его в дальнейшем вспоминать:переведите его из разряда ближнего во внешний мир, сравняйте его в своём сознании в начале, а затем и в чувствах с любым представителем мужского стада планеты Земля)
полная жопа
Благодарю писал(а):Мечта-тель писал(а):(уважаемые дамы!этот пример есть рецепт, как распрощаться с вашими прежними любовниками, чтобы без боли его в дальнейшем вспоминать:переведите его из разряда ближнего во внешний мир, сравняйте его в своём сознании в начале, а затем и в чувствах с любым представителем мужского стада планеты Земля)
Благодарю писал(а):
Ольга писал(а):Это вывод из собственного опыта
аха, чел суперски описывает путь киллера, а еще советует это строго выполнять... 
Samersen писал(а):А вот здесь модераторам выплачивают зарплату: http://vip5.ru/news/8264-nabor-moderatorov-.html
Какой большой объем работы там ...Samersen писал(а):А вот здесь модераторам выплачивают зарплату: http://vip5.ru/news/8264-nabor-moderatorov-.html
Я к примеру только ЗА!!!Samersen писал(а):"Установлен испытательный срок в размере одного месяца, по окончании которого модератор начнёт получать зарплату которая находиться в прямой зависимости от того как он будет себя проявлять."Кто что думает?
О том, что модер должен получать за работу, уже минимум год назад говорили к чему такие всплески?Предоставил бы сведения, сколько тебе лично перепало за модераторство на этом форуме -
тогда бы и базар был по делу...
Ты ЗА, или ПРОТИВ?Какой большой объем работы там ...
И прально сделает, а почему он должен платить?Samersen писал(а):Да Лазарев наверно откажется, скажет форум вам нужен, форум ваш и т.д.
Благодарю писал(а):Здесь, если покапаться, то моно найти возможности, просто не рассматривали еще этот вариант.
о это, темку создать по поиску спонсора, може кто-то согласится платить модераторам жалование? Есть же наверняка подпольные форумские миллионерыЭто вариант.Samersen писал(а):Димон, над о это, темку создать по поиску спонсора, може кто-то согласится платить модераторам жалование? Есть же наверняка подпольные форумские миллионеры
Мечта-тель писал(а):Единство - это не отсутствие разных личностей.Единство - это сонм индивидуальностей, подчинённый Единой цели
Не, gedeon, это не рассвет, это только зарницы…gedeon писал(а):Drovosek, народ сам начинает приходить, к тому что у каждой сущности есть её идеальная составляющая
Человеков 65 (77 - "За", 12 - "Против", 37 - "---", 126 - "Всего")
Jack 63 (73 - "За", 10 - "Против", 43 - "---", 126 - "Всего")
Kadet 36 (58 - "За", 22 - "Против", 46 - "---", 126 - "Всего")
Hanuman 33 (50 - "За", 17 - "Против", 59 - "---", 126 - "Всего")
Akipik 29 (50 - "За", 21 - "Против", 55 - "---", 126 - "Всего")
Dmitrig 28 (56 - "За", 28 - "Против", 42 - "---", 126 - "Всего")
Fermion 25 (46 - "За", 21 - "Против", 59 - "---", 126 - "Всего")
Богомол 25 (41 - "За", 16 - "Против", 69 - "---", 126 - "Всего")
Крыс 24 (54 - "За", 30 - "Против", 42 - "---", 126 - "Всего")
Stella 24 (45 - "За", 21 - "Против", 60 - "---", 126 - "Всего")
Дмитро 23 (46 - "За", 23 - "Против", 57 - "---", 126 - "Всего")
Akress 15 (35 - "За", 20 - "Против", 71 - "---", 126 - "Всего")
Lana 13 (46 - "За", 33 - "Против", 47 - "---", 126 - "Всего")
Светлана В 13 (28 - "За", 15 - "Против", 83 - "---", 126 - "Всего")
Лада 0 (30 - "За", 30 - "Против", 66 - "---", 126 - "Всего")
Ku_ka_re_ku -14 (37 - "За", 51 - "Против", 38 - "---", 126 - "Всего")
Stanislav -19 (26 - "За", 45 - "Против", 55 - "---", 126 - "Всего")
Popobawa -46 (12 - "За", 58 - "Против", 56 - "---", 126 - "Всего")
#!/usr/bin/perl
# cd D:\for\voting\
# process_results.pl 1.html 2.html 3.html 4.html 5.html 6.html 7.html 8.html 9.html > 2009-02-03-00-52.txt
use strict;
use warnings;
sub process_results
{
my @pp1 = ();
#
while (<>) {
chomp($_);
if ( /^[\s]*<p class="author">.*<\/p>$/) {
s/<[^>]*>//g;
s/^[\s]+//g;
s/([\s]+[\d]+[\s]+[^\s]+[\s]+2009,[\s]+[\d]+:[\d]+).*$//; # "Виктор З 02 фев 2009, 15:57" -> "Виктор З"
push @pp1, $_;
} else {
if (/^[\s]*<div class="content">.*<\/div>$/) {
s/^[\s]+//g;
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);
Сейчас этот раздел просматривают: 8 гостей