Perl / Говнокод #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 )

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

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

0

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

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

hui9999km hui9999km, (Updated )

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

Perl / Говнокод #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="0b364b">[email protected]</a>@#####==****++++++++***==###@@@
                                 #@@=##======*++*+++++***===###@@#
                                 #@#===###===#**+++++*+***==###@#
                                 @###**#=*++==#=****==#===####@@#
                                ##====**==***+==++==##@###=###@@#
                 ###=====***=######====*******==*+*=*+***=##=###
            ###====******+++*=#####===******===**==*****====##
          #===*******++++++++=######==******#=***==******==##
        #===******+++++++++++*=#####==**+++=#=*+*==****==####
      #===****++++++++++++++++*=####=**++++**=====*+***==###=###
    ##==****++++++++++++++++++*=####===***===*=*=**+***==##**===###
   ##==***++++++++++++++++++++*#######=======*====****==##=***====###
  ##==***+++++++++++++++:+++++*######===#@@@@@@##=====##===****=====##
  #===***++++++++++++++++++++*=########<a href="/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="0c3131314c">[email protected]</a>@@@@@@######=====**++*=====##@@
 ##===*****++*++++++++++++++**=####@@@@@##=====####@##=======******====###
###===***********+++++++++++***=####@#@######=##@@###===#===*********====#
##====*************+*****+******=###@@#@##@##@@@####======*****+******====
###===***************************=##@@@@@@@@######=======****++++*+****===
@##=====**************************===#########=#========*****++++++++**===
###======*********************========######================**********====
####=======****=**********==================================**=*==***=====
####============***====*=======================================*=**======#

Пахом для cowsay

ExModE ExModE, (Updated )

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

Perl / Говнокод #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)

Perl / Говнокод #26031 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
#!/usr/bin/perl -w
use strict;
use warnings;
use v5.22;
use Encode qw(encode decode);

binmode $_, ':utf8' for qw(STDOUT STDIN);
my $c = 'KOI8-R';
print decode $c, join '', map {chr (ord() & 0x7F)} split '', encode $c, $_ while (<>);

данный програмный продукт переводит русские буквы в забавные волапюки.
Пользуйтесь на здоровье!

$ echo "милости прошу к нашему шалашу" | ./koi.pl
mILOSTI PRO[U K NA[EMU [ALA[U

neTyx_npoTKHyTbIu neTyx_npoTKHyTbIu, (Updated )

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

Perl / Говнокод #26003 Ссылка на оригинал

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
#!/usr/bin/perl

# Fetch all JS from govno
use strict;
use warnings FATAL => 'all';
use LWP;

my $res = LWP::UserAgent->new->request(HTTP::Request->new("GET" => "http://govnokod.xyz/"));
die "Failed: " . $res->code unless $res->is_success;

for (split /\n/, $res->content) {
    print if /<script/ ... /script>/ and !m/[<>]/;
}

кууик.

Официальный тред для ржания над пятым перлом

MAKAKA MAKAKA, (Updated )

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