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

    −269.9

    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
    $counter_of_true_var=0;
        print "<div style=\"padding:0 0 0 10\"><table cellpadding=\"0\" class=\"main_text\" border=\"0\" cellspacing=\"0\"><tr><td height=30 width=200><b>Правельные ответы</b></td><td><b>Ваши ответы</b></td><td></td></tr>";
        for($i=1;$i<=20;$i++) {
          $to_string = "hid"."$i";
          $id_main = $FORM{$to_string};
          $sth = $dbh->prepare("SELECT id, true_var from theme_questions where id=".$id_main." order by id asc");
          $sth->execute;
            $tr_var = $sth->fetchrow_array;
          if ($i % 2) { $bgcolor="#ededed"; }
          else { $bgcolor="#dcdcdc"; }
          print "<tr><td height=\"20\" bgcolor=\"".$bgcolor."\">Вопрос № ".$i."). ".$tr_var."</td>";
          $to_string_sub = "r"."$i";
          if ($FORM{$to_string_sub} eq $tr_var) {
            $counter_of_true_var++;
            print "<td bgcolor=\"".$bgcolor."\">Вопрос №".$i.") ".$FORM{$to_string_sub}." </td><td style=\"padding:0 0 0 10\"><font color=\"green\">Правельный</font></td></tr>";
          }

    Тут всё просто:), PERL+HTML-говнокодище.

    Запостил: guest, 11 Февраля 2009

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

    • Bobby:
      PHP в смеси с HTML выглядит абсолютно также. Имхо, не говнокод. Просто показывает, что у написавшего _это_ только начальный уровень знаний.
      Ответить
    • человек еще не знаком с шаблонизаторами ) все так начинали ))) ибо учебники по пелу для начинающих так и учат (((
      Ответить

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