- 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};
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
# 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?
0
$the_cow = <<EOC;
$thoughts
$thoughts @@@###==#######@#@@@@@@@@@@@@
@@@###====***====##########@@@@#
@@@###===***++********===###@@@#
#@@###==*****+++++++++**===##@@@#
[email protected]@#####==****++++++++***==###@@@
#@@=##======*++*+++++***===###@@#
#@#===###===#**+++++*+***==###@#
@###**#=*++==#=****==#===####@@#
##====**==***+==++==##@###=###@@#
###=====***=######====*******==*+*=*+***=##=###
###====******+++*=#####===******===**==*****====##
#===*******++++++++=######==******#=***==******==##
#===******+++++++++++*=#####==**+++=#=*+*==****==####
#===****++++++++++++++++*=####=**++++**=====*+***==###=###
##==****++++++++++++++++++*=####===***===*=*=**+***==##**===###
##==***++++++++++++++++++++*#######=======*====****==##=***====###
##==***+++++++++++++++:+++++*######===#@@@@@@##=====##===****=====##
#===***++++++++++++++++++++*=########[email protected]@@@@@@######=====**++*=====##@@
##===*****++*++++++++++++++**=####@@@@@##=====####@##=======******====###
###===***********+++++++++++***=####@#@######=##@@###===#===*********====#
##====*************+*****+******=###@@#@##@##@@@####======*****+******====
###===***************************=##@@@@@@@@######=======****++++*+****===
@##=====**************************===#########=#========*****++++++++**===
###======*********************========######================**********====
####=======****=**********==================================**=*==***=====
####============***====*=======================================*=**======#
Пахом для cowsay
0
#!/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
+1
use Unicornify::URL;
my $url = unicornify_url( email => '[email protected]' );
https://metacpan.org/pod/Unicornify::URL
+1
#!/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/[<>]/;
}
кууик.
Официальный тред для ржания над пятым перлом
+1
http://pragmaticperl.com/issues/26/pragmaticperl-26-грамматики-в-perl-6.html
:3
Где еще такое может быть то?
+1
#! /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
−1
SADASD
0
#!/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);
Пользуйтесь на здоровье
+3
print for <>
Базовая функциональность программы cat на perl. Кто короче?
(только возможности самого языка без exec и подобных, шеллы вне олимпиады)