/ domm
Thomas Klausner domm

Just in case you like to know, I'm currently spending my time as a father of 2 grown-up sons, Perl hacker who is not afraid to touch other tech, sort-of DJ, bicyclist, cook & taker-of-pictures - while being 40+ years old but too lazy to update my profile once a year.

I'm also head of Vienna.pm, member of the TPF Grants Commitee and the YAPC Europe Foundation and previous maintainer of the CPANTS project.

I've got stuff on CPAN, held various talks and organise the Austrian Perl Workshops and YAPC::Europe 2007.

Follow me on twitter!
Atom Icom ... on Atom!
Perl
03.01.2021: Bulk downloading all episodes of a podcast

In some regards, I'm a very old school person. For example I do not like the concept of streaming audio (via Spotify et.al.). I want MP3s on my hard disk (and/or vinyl on my record player). I want access to my music when I'm offline (and I'm offline a lot) and without using a so-called smart phone (I prefer vintage USB-stick MP3 players). My ...
more ]

Picture of the Day: New vinyl

more ]
Mixtapes
24.12.2020: Songs abo being free

Erledigen wir mal das unvermeidliche: Corona-Songs! Von dem sehr gut gefüllten Quarantunes-Sampler (7 Alben!) habe ich den Subterranean Shut-In Blues (01) von Mattiel ausgesucht, weil es das beste Dylan-Lied paraphrasiert. Bibiza ist im Corona Song (02) brav am Händewaschen. Müßiggang suchen die positiven Seiten der Krisa am verhatschten Samstag ...
more ]

Perl
12.12.2020: Advent of Code Day 12 - sailing to a pause

This was another fun one. It took me some time to get the logic right (or left?), but in the end I came up with a nice solution. BTW, this will be the last daily blog post, as I'll have to finish some work projects, and start with some holiday projects. https://adventofcode.com/2020/day/12 Part 1 my @in = map { [/^(\w)(\d+)$/] } <>; my ...
more ]

Perl
11.12.2020: Advent of Code Day 11 - slow SeatGoL

Finally, some Game of Life https://adventofcode.com/2020/day/11 Part 1 Today I needed quite a bit of code, so let's split it up: my @map = map { chomp; [ split // ] } <>; my $h = @map; my $w = $map[0]->@*; my $occ = 0; my $max = 4; my @around = ( [ -1, -1 ], [ -1, 0 ], [ -1, 1 ], [ 0, -1 ], [ 0, 1 ], [ 1, -1 ], [ 1, 0 ], [ 1, ...
more ]

Perl
10.12.2020: Advent of Code Day 10 - trillion jolts

While the first part was ridiculously easy (after stripping away the overly complex "explanation"), I was not in the mood for doing the second part (recursion, memoization, ..) in the morning. https://adventofcode.com/2020/day/10 Part 1 We first need to sort the adapters by int value (hence the spaceship op <=>). We start with a jolt of ...
more ]

an image named mixtapes/songs_abo_being_free.jpg
an image named perl/2020_03_late_gpw_report_images/gpw_01.jpg
an image named mixtapes/never_met_a_stranger.jpg
an image named perl/2019_10_vienna_pm_techsocialmeet.jpg
an image named reisen/2019_latvia/3_incupe_images/incupe_00.jpg
Microblog
things I never wanted to learn #232: PostgreSQL 'concat' and '||' behave differently on NULL: SELECT concat(NULL,'foo'), NULL || 'foo';
23.06.2020 12:22:36

a = 11nⁿ where n ∈ ℕ and 11 < a < 150
26.02.2020 20:00:00

Just released https://metacpan.org/release/DOMM/App-TimeTracker-Command-Billing-1.000 - a new TimeTracker plugin to add 'billing points' to tasks: tracker start --issue 123 --billing 2019/Q4
11.12.2019 19:43:00

[ all ]
New Vinyl
Dirty Projectors - 5EPs
Quakers - II - the next wave
Müßigang - Massenlethargie
Felix Kramer - Alles gut
Mulatu Astatke & the Black Jesus Experience - To know without knowing
Kayo - Reunion

[ all ]
<