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

    −125

    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
    # Функция проверки валидность и сравнение ip адресов
        # Пользоваться: dynamic_comparison_ip($bc, $s1, $s3, $s5, $s8)
        sub  dynamic_comparison_ip
        {
              my ( $bc, $s1, $s3, $s5, $s8 ) = @_;

              my $ip_regext = qr/(?:[0-9]\.|[0-9]{2}\.|[0-2][0-9]{2}\.){3}(?:[0-9]|[0-9]{2}|[0-2][0-9]{2})/;

              if ( ( $bc->{config_params}{HOST} eq $s1 ) or
                   ( $bc->{config_params}{HOST} eq $s3 ) or
                   ( $s1 eq $s3 ) or
                  ( ($s5 =~ $ip_regext ) and ( $bc->{config_params}{HOST} eq $s5  or  $s1 eq $s5 or  $s3 eq $s5  ) ) or
                  ( ($s8 =~ $ip_regext ) and ( $bc->{config_params}{HOST} eq $s8  or  $s1 eq $s8 or  $s3 eq $s8  ) ) or
                  ( ($s5 =~ $ip_regext ) and ($s8 =~ $ip_regext ) and ( $s5 eq $s8 ) )
                 ) {
                                   $bc->{const}{warning}->debug("Warning!!!! String $_ not valid!!!");
                                   return 1;
             } else {

                                   return 0;
             }
        }

    Предыдущие куски были мной отформатированы уже для лучшего понимания. А это - оригинал... Просто шедевр.

    Запостил: SadKo, 22 Февраля 2011

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

    • ava Lure Of Chaos 22.02.2011 16:22 # +1

      > not valid!!!
      как эмоционально. "Не было ни единого разрыва с ноября прошлого года по 26 апреля сего года!!!"
      Ответить

      • ava SadKo 22.02.2011 17:20 # 0

        Ну и опять: const... warning... debug... warning... not valid...
        Ответить

        • ava Lure Of Chaos 22.02.2011 17:22 # 0

          {const}{warning} - шедевральная архитектура. и кто это придумал?
          Ответить

          • ava SadKo 22.02.2011 19:32 # 0

            Человек, который с нами уже не работает. А ко мне оно перешло из другого отдела только потому, что в своё время я активно занимался написанием полезных Perl-скриптов, сопутствующих основному софту.
            Ответить

        • ava Мистер Хэнки 22.02.2011 18:36 # +1

          - Алё, Галочка? Ты щас умрёшь - я еду с Якиным в Гагры...
          - Алё, Натусик?...
          - Алё, Леночка?...
          - Алё, Маришка?...
          Ответить

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