Condensed Perl-code

Bij het opschonen cq herschijven van wat code kwam de volgende regel uit mijn vingers. Deze condensed Perl-code blijkt ook nog redelijk leesbaar te zijn.

do $domains{lc($1)}++ if /postfix\/qmgr.+ from=<.+\@(.+)>,/;

Of het verstandig is moet de toekomst uitwijzen, maar het past nu wel netjes op één regel zonder wrapping. Een ding wat wel langzaam duidelijk wordt is dat Perl een taal is die je door de jaren heen je code anders laat uitschrijven. We zullen zien wat de toekomst brengt, maar ik vrees het ergste 😉