1. Список говнокодов пользователя abadonna

    Всего: 4

  2. Perl / Говнокод #6138

    −124

    1. 1
    grep {$a_b_props = ($a_b_props && $a_b_props.".").(($block < 1)? &dupl($tempProps{$_}) : $tempProps{$_}) if /^[ab]_/} sort keys %tempProps;

    туда же...

    abadonna, 30 Марта 2011

    Комментарии (0)

  3. Perl / Говнокод #6136

    −124

    1. 1
    @AoH_SUBSinFILE = map {&parseSubmodel($_, $block)} $g_file_content =~ m/\s*?(inst .+?vars  \\.+?[^\\])\n/gs;

    Говнокод4obfuscation :)

    abadonna, 30 Марта 2011

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

  4. Perl / Говнокод #6135

    −124

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    sub WidthOf()
{
  my %WIDTHES =('90','195','118','165', ...  over9000   ...'43','255');
  my $TextWidth;

  map {$TextWidth += $WIDTHES{ord $_} || 200} split //,@_[0];
  return $TextWidth;
}

    abadonna, 30 Марта 2011

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

  5. Perl / Говнокод #6134

    −116

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    sub chooseType()
{
	grep {return $_ if @_[0]  =~ /$_/} (keys %TYPES);
	return "";
}

    люблю map и grep :)

    abadonna, 30 Марта 2011

    Комментарии (0)