1. Perl / Говнокод #2562

    −111.2

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    # куски кода выдернуты
#  смотрите внимательно на SQL
#--- INSERT ------

my $comment_id = $ej->{dbh}->insert('blog.comments', (
	'id::primary'          => '',
	'post_id::numeric'     => $param_id,
	'user_id::numeric'     => $ej->{user}{id},
	'text'                 => $newmess,
	'time::numeric'        => $ej->{time},
	'rating_ball::numeric' => $rating_ball
));
my $_rating_ball = 0 + $ej->Query ('SELECT SUM(rating_ball) FROM blog.comments WHERE post_id = '.$param_id)->FetchRow;

$ej->Query(
	'UPDATE blog.posts SET update_time = '.$ej->{time}.', rating_ball = '.$_rating_ball.', '.
	'comments_ptr = CONCAT('.Q(pack('L', $comment_id)).', comments_ptr)  WHERE id = '.$param_id
);

#--- DELETE ---

$ej->Query('DELETE FROM blog.comments WHERE id = '.$comment_id);

my $comments_ptr = pack('L*', $ej->Query('SELECT id FROM blog.comments WHERE post_id = '.$post_id.' ORDER BY time DESC')->FetchCol);
my $_rating_ball = 0 + $ej->Query ('SELECT SUM(rating_ball) FROM blog.comments WHERE post_id = '.$post_id)->FetchRow;

$ej->Query('UPDATE blog.posts SET comments_ptr = '.Q($comments_ptr).', rating_ball = '.$_rating_ball.' WHERE id = '.$post_id);


#--- SELECT ----

my %q = $ej->Query('SELECT user_id, topic_id, name, text, SUBSTRING(comments_ptr, '.(1+($page-1)*40).',40) AS ptr, round(length(comments_ptr) / 4) AS cnt, create_time, pics_ptr, rating_ball FROM blog.posts WHERE id = '.$param_id)->FetchHash;

my @id = (); my @user_id = (); my @text = (); my @time = ();

if ($q{ptr} ne '') {
	my $r = $ej->Query('SELECT id, user_id, text, time FROM blog.comments WHERE id IN ('.join(',',unpack('L*', $q{ptr})).') ORDER BY time DESC');
	@id      = $r->FetchCol;
	@user_id = $r->FetchCol(1);
	@text    = $r->FetchCol(2);
	@time    = $r->FetchCol(3);
}

# потом еще вывод через Ж

    это работает на mySQL/PERL.
    да зачем нам реляционная база, мы сами можем манипулировать отношениями.
    comments_ptr это BLOB, c упакованным в него массивом int32 id'шников из comments.id
    хотя и есть comments.post_id <=> posts.id

    просто праздник какой-то!

    Запостил: bmp20, 07 Февраля 2010

    Комментарии (1) RSS

    • ava guest 12.02.2010 18:51 # +1.2

      "comments_ptr это BLOB, c упакованным в него массивом int32 id'шников из comments.id, хотя и есть comments.post_id <=> posts.id"

      верю. запросы по реляции или апдейты таблиц (*) в некоторых таких задачах тормозят как ХЕЗ что.

      а если нужны только иды, то чего парится с join'ом много-миллионных таблиц.

      хотя я лично бы все равно по реляции делал. мне редко - с кучей ручной оптимизации - удавалось SQL обгонять.

      (*) ну когда индексы толще чем сама таблица.
      Ответить

    Добавить комментарий