Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
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
Запостил: 
neTyx_npoTKHyTbIu,
(Updated )
Комментарии (13) RSS