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

    −19

    1. 1
    2. 2
    return { nocache => 1,
                     data => %{ &template_process() } -> { 'data' } };

    Конечно же template_process возвращает HashRef сам по себе.

    kainwinterheart, 13 Августа 2013

    Комментарии (15)
  2. Perl / Говнокод #13565

    −13

    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
    package Exception;
    
    sub new {
       my($package, $what) = @_;
       return bless { what => $what }, $package;
    }
    
    sub what {
       my($self) = @_;
       return $self->{what};
    }
    
    package main;
    
    sub try(&$) {
       my($code, $catch) = @_;
       unless(eval { $code->(); 1 }) {
          local $_ = $@;
          $catch->();
       }
    }
    
    sub catch(&) { $_[0] }
    
    sub throw($) { die $_[0] }
    
    try {
       throw new Exception("Ошибка");
    } catch {
       print $_->what;
    };

    Исключения в perl.

    an0nym, 08 Августа 2013

    Комментарии (50)
  3. Perl / Говнокод #13520

    −19

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    use strict;
    use warnings;
     
    my ($i, $j) = (42, 13);
     
    my $max = [ $i => $j ]->[ $i <= $j ];
     
    print "max: $max\n";

    Вот-так вот: http://ideone.com/2Rd3Mr

    // Вроди где-то в PBP этот пример даже есть

    Elvenfighter, 31 Июля 2013

    Комментарии (13)
  4. Perl / Говнокод #13511

    −45

    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
    sub is_home_license
    {
            my $self = shift;
    
            my $rv = $self -> product() -> is_home_product();
    
            unless( $rv )
            {
    
                    unless( $self -> product() -> is_nl_product() )
                    {
    
                            if( ( int( $self -> licdata() -> { '1' } ) > 0 ) and ( int( $self -> licdata() -> { '1' } ) < 6 ) ) # 1 .. 5
                            {
                                    $rv = 1;
                            }
    
                            unless( $self -> licdata() -> { '1' } )
                            {
                                    if( $self -> licdata() -> { '8' } == 1 )
                                    {
                                            $rv = 1;
                                    }
                            }
    
                    }
            }
    
            return $rv;
    }

    kainwinterheart, 30 Июля 2013

    Комментарии (1)
  5. Perl / Говнокод #13510

    −49

    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
    sub is_demo_license
    {
            my $self = shift;
    
            my $rv = 0;
    
            if( ( $self -> dealer() -> id() == 116 )
                and
                ( $self -> comments() =~ /^DEMO\s+STID/ ) )
            {
                    $rv = 1;
            }
    
            return $rv;
    }

    kainwinterheart, 30 Июля 2013

    Комментарии (3)
  6. Perl / Говнокод #13450

    −63

    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
    # There is a note that I completely do not
    # understand how does it work and why.
    # I've manager to guess it via  trial and
    # error method. So be warned! :)
    sub magic
    {
            my ( $self, $others ) = @_;
    
            my $la = $self -> get_a();
            my $lb = $self -> get_b();
    
            my $x = ( ( reduce { ( ref( $a ) ? $a -> get_b() : $a ) + $b -> get_b() } @$others ) / scalar( @$others ) );
            my $y = ( $x ? ( $la / $x ) : ( $la ? log( $la ) : 0 ) );
    
            return ( $lb - ( $y ? log( $y ) : 0 ) );
    }

    Магическое число. По этому числу в порядке возрастания сортируются менеджеры. Тот, у кого значение наименьшее, получает новое задание.

    kainwinterheart, 18 Июля 2013

    Комментарии (2)
  7. Perl / Говнокод #13449

    −65

    1. 1
    if ( $method{'out_format'} && $method{'out_format'} eq lc(q{json}) ) {

    Yo dawg, we heard that you like lowercase, so we put some lowercase into your lowercase

    Elvenfighter, 18 Июля 2013

    Комментарии (0)
  8. Perl / Говнокод #13415

    +85

    1. 1
    СИВОДНЯ АТЛИЧНЫЙ ДЕНЬ ЧТОБЫ ПАСТАВИТЬ МНЕ МНОГА ЛАЙКАФ НИ УПУСТИ ЕТУ ВАЗМОЖНАСТЬ

    Пачиму в разделе perl? да патамушта perl твайу мамашу

    PragramistOtBoga, 12 Июля 2013

    Комментарии (8)
  9. Perl / Говнокод #13311

    −65

    1. 1
    2. 2
    3. 3
    my $parent_key=$$hash{parent_key};
    delete $$hash{parent_key};
    $parent_key = '' if ! $parent_key;

    my $parent_key = delete $hash->{parent_key} || '';

    Elvenfighter, 05 Июля 2013

    Комментарии (2)
  10. Perl / Говнокод #13262

    +79

    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
    * g o a t s e x * g o a t s e x * g o a t s e x *
    g                                               g  
    o /     \             \            /    \       o
    a|       |             \          |      |      a
    t|       `.             |         |       :     t
    s`        |             |        \|       |     s
    e \       | /       /  \\\   --__ \\       :    e
    x  \      \/   _--~~          ~--__| \     |    x  
    *   \      \_-~                    ~-_\    |    *
    g    \_     \        _.--------.______\|   |    g
    o      \     \______// _ ___ _ (_(__>  \   |    o
    a       \   .  C ___)  ______ (_(____>  |  /    a
    t       /\ |   C ____)/      \ (_____>  |_/     t
    s      / /\|   C_____)       |  (___>   /  \    s
    e     |   (   _C_____)\______/  // _/ /     \   e
    x     |    \  |__   \\_________// (__/       |  x
    *    | \    \____)   `----   --'             |  *
    g    |  \_          ___\       /_          _/ | g
    o   |              /    |     |  \            | o
    a   |             |    /       \  \           | a
    t   |          / /    |         |  \           |t
    s   |         / /      \__/\___/    |          |s
    e  |           /        |    |       |         |e
    x  |          |         |    |       |         |x
    * g o a t s e x * g o a t s e x * g o a t s e x *

    * g o a t s e x * g o a t s e x * g o a t s e x *
    g g
    o / \ \ / \ o
    a| | \ | | a
    t| `. | | : t
    s` | | \| | s
    e \ | / / \\\ --__ \\ : e
    x \ \/ _--~~ ~--__| \ | x
    * \ \_-~ ~-_\ | *
    g \_ \ _.--------.______\| | g
    o \ \______// _ ___ _ (_(__> \ | o
    a \ . C ___) ______ (_(____> | / a
    t /\ | C ____)/ \ (_____> |_/ t
    s / /\| C_____) | (___> / \ s
    e | ( _C_____)\______/ // _/ / \ e
    x | \ |__ \\_________// (__/ | x
    * | \ \____) `---- --' | *
    g | \_ ___\ /_ _/ | g
    o | / | | \ | o
    a | | / \ \ | a
    t | / / | | \ |t
    s | / / \__/\___/ | |s
    e | / | | | |e
    x | | | | | |x
    * g o a t s e x * g o a t s e x * g o a t s e x *

    Stertor, 29 Июня 2013

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