=()= / Говнокод #28535 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
  32. 32
#!/usr/bin/guile -s
!#

(define (square x)
  (* x x))

(define (square_sum x y)
  (+ (square x) (square y)))

(define (tmax x y z)
  (cond ((and (>= x y) (>= x z)) x)
        ((and (>= y x) (>= y z)) y)
        (else z)))

(define (tms x y z)
  ((cond ((= (tmax x y z) x)
          (if (> y z)
              (square_sum x y)
              (square_sum x z)))
         ((= (tmax x y z) y)
          (if (> x z)
              (square_sum x y)
              (square_sum y z)))
         ((= (tmax x y z) z)
          (if (> x y)
              (square_sum x z)
              (square_sum y z)))
         (else 0))))

(display "Ans: ")
(display (tms 6 5 4))
(newline)

Почему не работает?

JloJle4Ka JloJle4Ka, (Updated )

Комментарии (90, +90)

=()= / Говнокод #28304 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
  39. 39
  40. 40
  41. 41
  42. 42
  43. 43
  44. 44
  45. 45
  46. 46
  47. 47
  48. 48
  49. 49
  50. 50
  51. 51
  52. 52
  53. 53
  54. 54
  55. 55
  56. 56
  57. 57
  58. 58
  59. 59
  60. 60
  61. 61
  62. 62
  63. 63
  64. 64
  65. 65
  66. 66
  67. 67
  68. 68
  69. 69
  70. 70
  71. 71
  72. 72
  73. 73
  74. 74
  75. 75
  76. 76
  77. 77
  78. 78
#!/usr/bin/perl -w

# apt install  libdatetime-format-dateparse-perl libemail-sender-perl libemail-mime-perl
use warnings FATAL => 'all';
use strict;
use v5.28;
use utf8;

use Date::Parse;
use Date::Language;
use Date::Language::English;
use Socket;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP qw();
use Email::MIME;
use Encode;

use constant FROM_MAIL => '<a href="/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="066b676f6a46766372736e286a6965676a">[email protected]</a>';
use constant TO_MAIL => 'postmaster';

# user->ip->error
my %errors;

my $dateLang = Date::Language->new('English');
my $yesterday = time() - 86400;
my %patterns = (
    "Ошибка аутентификаици"            => qr/.+Authentication failed for user (.+?)\. Attempt from IP address ([0-9.]+)\. (.+)$/,
    "Попытка отправки с чужого адреса" => qr/.+Message from authenticated user: <([<a href="/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="20410d5a0e60">[email protected]</a>]+)> was rejected, because sender identity was detected as spoofed. \(Source IP address: ([0-9.]+), (From header: <[<a href="/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="eec08fc394ae">[email protected]</a>]+?>).*/,
);

while (<>) {
    next unless m/^\[(.+)\](.+)/;
    my $time = $dateLang->str2time($1);
    next unless $time > $yesterday .. 0;
    my $message = $2;
    while ((my $error, my $regex) = each %patterns) {
        next unless $message =~ m/$regex/;
        $errors{$error}{$1}{$2}{$3} += 1;
    }
}

exit 0 if !%errors;

my @message;
while ((my $error, my $userIpLogTimes) = each %errors) {
    push @message, $error;
    while ((my $user, my $ipLogTimes) = each %$userIpLogTimes) {
        push @message, "\tПользователь $user";
        while ((my $ip, my $logTimes) = each %$ipLogTimes) {
            my $hostName = gethostbyaddr(inet_aton($ip), AF_INET) || $ip;
            push @message, "\t\tс IP $ip ($hostName)";
            while ((my $log, my $times) = each %$logTimes) {
                push @message, "\t\t\t$times раз: $log";
            }
        }
    }
}

my $email = Email::MIME->create(
    attributes => {
        content_type => "text/plain",
        charset      => "UTF-8",
    },
    header_str => [
        From    => FROM_MAIL,
        To      => [ TO_MAIL ],
        Subject =>  'Неудачи на почтовике за последние сутки',
    ],
    body       => encode('utf8', join "\n", @message));

sendmail(
    $email,
    {
        from      => FROM_MAIL,
        to        => TO_MAIL,
        transport => Email::Sender::Transport::SMTP->new({ host => 'localhost' })
    }
) || die 'Cant send';

Покритикуйте скрипт

MAPTbIwKA MAPTbIwKA, (Updated )

Комментарии (13, +13)

=()= / Говнокод #27611 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 *

За гомосексуализм!

begmst begmst, (Updated )

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

=()= / Говнокод #27566 Ссылка на оригинал

0

  1. 1
Я стал ласкать их. У них, был свой вкус. Не такой, как у Наташкиных, и не такой, как у других женщин, а особый, только ей принадлежащий, волшебный вкус.

Потом парень заканчивал, снимал презик, бросал его на пол, а эта самка ожидала следующего героя. Иногда за вечер через Наткину вагину «проходило» до двух десятков парней!

Chupacabramiamor Chupacabramiamor, (Updated )

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

=()= / Говнокод #26798 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
# The API methods die when an error occurs.
say $api->getMe->{result}{username};
# ... but error handling is available as well.
my $result = eval { $api->getMe }
    or die 'Got error message: ', $api->parse_error->{msg};

https://metacpan.org/pod/WWW::Telegram::BotAPI

Продолжаем пиздеть про перл.

Решил выбрать предметную область "Телеграм-бот" чтобы поднатаскаться в «Perl».

Вопрос: что за говно в оп-коде? Это говноспособ обработки ошибок предлагают, или такое распространено? Типа eval вместо try?

vistefan vistefan, (Updated )

Комментарии (84, +84)

=()= / Говнокод #26509 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
Приветствую. Меня зовут Алита,
я представитель боевой группировки "Возрождение - Яркий рассвет 4".
Коронавирус - это наше биологическое оружие, созданное,
чтобы помешать перенаселению планеты.
Наша цель - убить 3 миллиарда человек.
Всем ученым - прекратите создание вакцины, или мы вас взорвём.
Обычным людям - если у вас есть симптомы простуды, убейте себя,
иначе будет хуже. Спасибо за внимание.

Вся правда о коронавирусе

hui9999km hui9999km, (Updated )

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

=()= / Говнокод #26407 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
$the_cow = <<EOC;
      $thoughts
       $thoughts                            @@@###==#######@#@@@@@@@@@@@@
                                   @@@###====***====##########@@@@#
                                   @@@###===***++********===###@@@#
                                  #@@###==*****+++++++++**===##@@@#
                                  <a href="/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="99a4d9">[email protected]</a>@#####==****++++++++***==###@@@
                                 #@@=##======*++*+++++***===###@@#
                                 #@#===###===#**+++++*+***==###@#
                                 @###**#=*++==#=****==#===####@@#
                                ##====**==***+==++==##@###=###@@#
                 ###=====***=######====*******==*+*=*+***=##=###
            ###====******+++*=#####===******===**==*****====##
          #===*******++++++++=######==******#=***==******==##
        #===******+++++++++++*=#####==**+++=#=*+*==****==####
      #===****++++++++++++++++*=####=**++++**=====*+***==###=###
    ##==****++++++++++++++++++*=####===***===*=*=**+***==##**===###
   ##==***++++++++++++++++++++*#######=======*====****==##=***====###
  ##==***+++++++++++++++:+++++*######===#@@@@@@##=====##===****=====##
  #===***++++++++++++++++++++*=########<a href="/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="90adadadd0">[email protected]</a>@@@@@@######=====**++*=====##@@
 ##===*****++*++++++++++++++**=####@@@@@##=====####@##=======******====###
###===***********+++++++++++***=####@#@######=##@@###===#===*********====#
##====*************+*****+******=###@@#@##@##@@@####======*****+******====
###===***************************=##@@@@@@@@######=======****++++*+****===
@##=====**************************===#########=#========*****++++++++**===
###======*********************========######================**********====
####=======****=**********==================================**=*==***=====
####============***====*=======================================*=**======#

Пахом для cowsay

ExModE ExModE, (Updated )

Комментарии (28, +28)

=()= / Говнокод #26260 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
  39. 39
  40. 40
  41. 41
  42. 42
  43. 43
  44. 44
  45. 45
  46. 46
  47. 47
  48. 48
  49. 49
  50. 50
  51. 51
  52. 52
  53. 53
  54. 54
  55. 55
  56. 56
  57. 57
  58. 58
  59. 59
  60. 60
  61. 61
  62. 62
  63. 63
  64. 64
  65. 65
  66. 66
  67. 67
  68. 68
  69. 69
  70. 70
  71. 71
  72. 72
  73. 73
  74. 74
  75. 75
  76. 76
  77. 77
  78. 78
  79. 79
  80. 80
  81. 81
  82. 82
  83. 83
  84. 84
  85. 85
  86. 86
  87. 87
  88. 88
  89. 89
  90. 90
  91. 91
  92. 92
  93. 93
  94. 94
  95. 95
  96. 96
  97. 97
  98. 98
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ

СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ

xyu_100cm xyu_100cm, (Updated )

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