https://kamilborys.com
•
This is a web feed, also known as an Atom feed. Subscribe by copying the URL from the address bar into your newsreader. Visit About Feeds to learn more and get started. It's free.Visit websiteRecent postsUpdated on $DATEdarkdatePerlKamilCase - PerlZola2018-08-15T11:08:11+00:00https://kamilborys.com/tags/perl/atom.xmlDots and Dashes2018-08-15T11:08:11+00:002018-08-15T11:08:11+00:00Kamil Boryshttps://kamilborys.com/blog/dots-and-dashes/#!perl -p
y/.-/01/;s#\d+/?#substr'01etianmsurwdkgohvf,l.pjbxcyzq',31&oct b1.$&,1#ge
Perl is (in)famous for the ability to write programs that look like line noise, and today I will take apart this beautiful piece of code. Written by tybalt89, it can decode sequences of dots and dashes to Latin letters in just 73 characters of code…Anatomy of the heart2018-03-13T08:01:46+00:002018-03-13T08:01:46+00:00Kamil Boryshttps://kamilborys.com/blog/anatomy-of-the-heart/#!/usr/bin/perl -w
use strict;
my$f= $[;my
$ch=0;sub l{length}
sub r{join"", reverse split
("",$_[$[])}sub ss{substr($_[0]
,$_[1],$_[2])}sub be{$_=$_[0];p
(ss($_,$f,1));$f+=l()/2;$f%=l
();$f++if$ch%2;$ch++}my$q=r
("\ntfgpfdfal,thg?bngbj".
"naxfcixz");$_=$q; $q=~
tr/f[a-z]/ [l-za-k]
/;my@ever=1..&l
;my$mine=$q
;sub p{
print
@_;
}
be $mine for @ever
This heart-shaped program is written in the language of choice for producing unreadable and obfuscated code: Perl 5. It also serves an unusual purpose of a proposal…Regex prime checker2017-10-07T13:26:38+00:002017-10-07T13:26:38+00:00Kamil Boryshttps://kamilborys.com/blog/regex-prime-checker/This Java snippet uses a regular expression for something way different than they were designed for: a primality check.
public static boolean prime(int n) {
return !new String(new char[n]).matches(".?|(..+?)\\1+");
}
…