Perl — Говнокод.ру

Perl / Говнокод #26798

0

1
2
3
4
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, 09 Июля 2020

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

Perl / Говнокод #26407

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

$the_cow = <<EOC;
      $thoughts
       $thoughts                            @@@###==#######@#@@@@@@@@@@@@
                                   @@@###====***====##########@@@@#
                                   @@@###===***++********===###@@@#
                                  #@@###==*****+++++++++**===##@@@#
                                  [email protected]@#####==****++++++++***==###@@@
                                 #@@=##======*++*+++++***===###@@#
                                 #@#===###===#**+++++*+***==###@#
                                 @###**#=*++==#=****==#===####@@#
                                ##====**==***+==++==##@###=###@@#
                 ###=====***=######====*******==*+*=*+***=##=###
            ###====******+++*=#####===******===**==*****====##
          #===*******++++++++=######==******#=***==******==##
        #===******+++++++++++*=#####==**+++=#=*+*==****==####
      #===****++++++++++++++++*=####=**++++**=====*+***==###=###
    ##==****++++++++++++++++++*=####===***===*=*=**+***==##**===###
   ##==***++++++++++++++++++++*#######=======*====****==##=***====###
  ##==***+++++++++++++++:+++++*######===#@@@@@@##=====##===****=====##
  #===***++++++++++++++++++++*=########[email protected]@@@@@@######=====**++*=====##@@
 ##===*****++*++++++++++++++**=####@@@@@##=====####@##=======******====###
###===***********+++++++++++***=####@#@######=##@@###===#===*********====#
##====*************+*****+******=###@@#@##@##@@@####======*****+******====
###===***************************=##@@@@@@@@######=======****++++*+****===
@##=====**************************===#########=#========*****++++++++**===
###======*********************========######================**********====
####=======****=**********==================================**=*==***=====
####============***====*=======================================*=**======#

Пахом для cowsay

ExModE, 03 Февраля 2020

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

Perl / Говнокод #26031

0

1
2
3
4
5
6
7
8
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, 16 Ноября 2019

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

Perl / Говнокод #26005

+1

1
2
3

use Unicornify::URL;
 
my $url = unicornify_url( email => '[email protected]' );

https://metacpan.org/pod/Unicornify::URL

PACTPOBblu_nemyx, 30 Октября 2019

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

Perl / Говнокод #26003

+1

01
02
03
04
05
06
07
08
09
10
11
12
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, 29 Октября 2019

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

Perl / Говнокод #25530

+1

1

http://pragmaticperl.com/issues/26/pragmaticperl-26-грамматики-в-perl-6.html

:3
Где еще такое может быть то?

OlegUP, 10 Апреля 2019

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

Perl / Говнокод #24884

+1

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

#! /usr/bin/perl

use strict;
use warnings;

my %h1 = (one => 1, two => 2);
my %h2 = (three =>3 , four => 4);

sub h_uno { \%h1 }

sub h_multi {
    my %all = (%h1, %h2);

    \%all;
}

while (my ($k, $v) = each %{h_uno()}) {
    print "k=$k, v=$v\n";
}

# следующий цикл не завершится никогда
#while (my ($k, $v) = each %{h_multi()}) {
#    print "k=$k, $v=$v\n";
#}

Один из традиционных подколов собеседований на Perl вакансию.

https://www.linux.org.ru/forum/job/14518840

Elvenfighter, 09 Октября 2018

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

Perl / Говнокод #24491

−1

1

SADASD

kezzyhko, 13 Июля 2018

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

Perl / Говнокод #23788

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use diagnostics;

use LWP;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use JSON;
use HTML::TreeBuilder;
use HTML::FormatText;

my $ua = LWP::UserAgent->new();
$ua->agent('advice/0.9');

my $uri = 'http://fucking-great-advice.ru/api/random';

my $request = HTTP::Request->new('GET', $uri);
my $response = $ua->request($request);
my $content = from_json($response->content(), {utf8 => 1});

binmode(STDOUT, ':utf8');
my $tree = HTML::TreeBuilder->new->parse_content($content->{'text'});

my $formatter = HTML::FormatText->new(leftmargin => 0, rightmargin => 50);
print $formatter->format($tree);

Пользуйтесь на здоровье

Elvenfighter, 14 Февраля 2018

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

Perl / Говнокод #23358

+3

1

print for <>

Базовая функциональность программы cat на perl. Кто короче?
(только возможности самого языка без exec и подобных, шеллы вне олимпиады)

Elvenfighter, 24 Сентября 2017

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

Говнокод: по колено в коде.