0
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 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 ,
03.02.2020 (Updated 27.08.2020 )
0
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
СТРАЙКЕР СОСИ МОЙ ХУЙ
xyu_100cm ,
13.12.2019 (Updated 13.12.2019 )
0
1
АЛИСА ЛЮБИТ БОЛЬШИЕ ХУИ
ВЫ ВСЕ ГЕЙ ШЛЮХИ
ГОВНА КУСОК ПИДОРА
xyu_100cm ,
13.12.2019 (Updated 13.12.2019 )
0
ХУЙ
xyu_100cm ,
13.12.2019 (Updated 13.12.2019 )
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.11.2019 (Updated 16.11.2019 )
0
1 2 3
use Unicornify::URL;
my $url = unicornify_url( email => '<a href="/cdn-cgi/l/email-protection" class="__cf_email__" data-cfemail="abc7cad9d9d2ebdccac7c785c4d9cc">[email protected]</a>' );
https://metacpan.org/pod/Unicornify ::URL
PACTPOBblu_nemyx ,
30.10.2019 (Updated 07.08.2022 )
0
1 2 3 4 5 6 7 8 9 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.10.2019 (Updated 29.10.2019 )
0
1
http://pragmaticperl.com/issues/26/pragmaticperl-26-грамматики-в-perl-6.html
:3
Где еще такое может быть то?
OlegUP ,
10.04.2019 (Updated 10.04.2019 )
0
rHujlb ,
01.01.2019 (Updated 01.01.2019 )
0
1 2 3 4 5 6 7 8 9 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.10.2018 (Updated 09.10.2018 )