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

    −153

    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
    eval {
        my $from = $class->get_env_sender($message);

        $smtp->mail($from)
            || croak("Email::Send::Gmail: error sending 'from' $from");

        my @to = $class->get_env_recipients($message);

        my @ok = $smtp->to( @to, { SkipBad => 1 } )
            || croak("Email::Send::Gmail: error sending 'to' @to");

        if ( @to != @ok ) {
            my %to;
            @to{@to} = (1) x @to;
            delete @to{@ok};
            @bad = keys %to;
        }

        croak("Email::Send::Gmail: no valid recipients") if @bad == @to;
    };

    Думаю понятно, какой это модуль с CPAN. Убило незнание приоритетов, в результате чего "|| croak" всегда возвращало в @ok число вместо результата выполнения $smtp->to

    Запостил: NeoliteBSD, 16 Сентября 2014

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

    • ava tirinox 16.09.2014 12:44 # +4

      Слова "Perl" и "понятно" рядом не употребляются.
      Ответить

    • ava gh0stwizard 16.09.2014 14:32 # 0

      >Убило незнание приоритетов, в результате чего "|| croak" всегда возвращало в @ok число вместо результата выполнения $smtp->to
      Убивает незнание того, что для || результат return; и return 0; НЕ одно и тоже :)
      Ответить

      • ava Elvenfighter 16.09.2014 16:10 # 0

        В смысле? По идее return; должен возвращать пустой список, а return 0; дожно возвращать скаляр. Оба в булевом контексте дают false.

        Вот иллюстрация, на случай, если я не так понял: http://ideone.com/kW6BdH
        Ответить

        • ava gh0stwizard 17.09.2014 11:58 # 0

          У тебя же все видно, что происходит! Читаем от сюда: http://perldoc.perl.org/perlop.html#C-style-Logical-Or и ниже. Очень внимательно. А потом, переходим туда, куда хотели, но промахнулись: http://perldoc.perl.org/perlop.html#Logical-or-and-Exclusive-Or

          P.S. Использовать || можно везде, где не собираемся возвращать список, либо делаем развертку через [defined] wantarray.
          Ответить

    • ava Dummy00001 16.09.2014 21:39 # 0

      я всегда говорил что злоупотреблее `or`ом в перле до добра не доводит.

      это не незнание приоритетов - кто-то очепятолся и написал `||` вместо `or`.

      но код от исправления этого имо сильно лучше не станет.
      Ответить

      • ava 3.14159265 16.09.2014 23:35 # +3

        я всегда говорил что злоупотребление `перл`ом до добра не доводит.
        fixed
        Ответить

        • ava Elvenfighter 17.09.2014 11:47 # +3

          Большая сила -- большая ответственность. Это как раз случай Perl.

          Сегодня, в завтрашний день, программировать на Perl могут не только лишь все, мало кто может это делать.
          Ответить

          • ava Vasiliy 17.09.2014 12:22 # +2

            офф топ
            Сегодня нашел http://rghost.ru/58060348
            Ответить

            • ava 3.14159265 17.09.2014 13:42 # 0

              Да юзерскрипт-генератор и то умнее, чем он.

              Креатив зачётный, да.
              Ответить

              • ava inkanus-gray 17.09.2014 14:01 # +2

                Можно публиковать отдельным говнокодом... И обучать на нём бредогенератор. Чем чёрт не шутит, вдруг что-то путное напишет.

                На meta.ua есть текстовая версия: http://forum.meta.ua/topic/t/186713.html
                Ответить

    • ava guest 23.06.2015 01:12 # 0

      Лол
      Ответить

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