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

    −42

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    use v5.12;
    sub unimplemented { ... }
    eval { unimplemented() };
    if ([email protected] =~ /^Unimplemented at /) {
        say "I found an ellipsis!";
    }

    Навеяно комментарием http://govnokod.ru/18873#comment300760

    Пример из документации перла (http://perldoc.perl.org/perlsyn.html#The-Ellipsis-Statement):
    When Perl 5.12 or later encounters an ellipsis statement, it parses this without error, but if and when you should actually try to execute it, Perl throws an exception with the text Unimplemented.

    Вот такая вот обработка исключений через =~

    Запостил: imihajlov, 16 Октября 2015

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