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

    −110.6

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    my $style_doc = $parser->parse_string(q~
   ... Здесь идёт нормальный такой шаблон xslt
~);
my $stylesheet = $xslt->parse_stylesheet($style_doc);

my $results = $stylesheet->transform( $source );
my $shit = $stylesheet->output_string($results);

$shit =~ s%(<table.*?<table.*?</table>.*?</table>)\s*(<table.*?<table.*?</table>.*?</table>)\s*(<table.*?<table.*?</table>.*?</table>)%<tr><td valign="top">$1</td><td valign="top">$2</td><td valign="top">$3</td></tr>%gs;

$shit = qq{<table cellpadding="0" cellspacing="8" border="0">${shit}</table>};
print 'document.write('.JsUtils::js_object($shit).');';

    В xslt, очевидно, всё не осилили - добъём регуляркой :)

    Запостил: Suor, 16 Декабря 2009

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

    • ava guest 16.12.2009 14:56 # +2

      Название переменной в девятой и одиннадцатой строке как бы намекает нам...
      Ответить

    • ava ganzzz 24.08.2021 02:09 # 0

      Потом ее перевернули на живот, и стали трахать в попу, снова один за другим, матерясь и нанося удар за ударом.
      Ответить

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