On day 16 of The Perl Advent Calendar José Joaquín Atria shows how Santa's elves use OpenTelemetry::Instrumentation::namespace to automatically generate telemetry from any Perl package without writing custom instrumentation libraries. 🎅🔍

perladvent.org/2025/2025-12-16…

#perl @perl @tag-perl #programming

On day 15 of The Perl Advent Calendar Blabos de Blebe demonstrates how to use Mojolicious::Plugin::Mount to glue together small Mojo apps as mocks for testing applications that call multiple external services. 🎄🔧

perladvent.org/2025/2025-12-15…

#perl @perl @tag-perl #programming

On day 14 of The Perl Advent Calendar @perigrin continues yesterday's story, revealing how Santa's team used Critical Chain project management alongside No Estimates to identify dependencies and ship NaughtyNice 3.0 on schedule. 🎅⛓️

perladvent.org/2025/2025-12-14…

#perl @perl @tag-perl #programming

On day 13 of The Perl Advent Calendar Chris Prather tells how Santa's workshop rebuilt their NaughtyNice system in 24 days using "No Estimates"—breaking work into daily slices and measuring throughput instead of guessing timelines. 🎅📊

perladvent.org/2025/2025-12-13…

#perl @perl @tag-perl #programming

On day 12 of The Perl Advent Calendar, Sawyer X shows us how Melian, a high-speed in-memory caching server, reduces database query times from milliseconds to microseconds by loading tables into memory. 🎅⚡

perladvent.org/2025/2025-12-12…

#perl @perl @tag-perl #programming

On day 11 of The Perl Advent Calendar @geekruthie demonstrates how to generate Mondrian-style abstract art paintings using Perl with Moo, Imager, and SVG modules. 🎨🐪

perladvent.org/2025/2025-12-11…

#perl @perl @tag-perl #programming

On day 10 of The Perl Advent Calendar John Napiorkowski introduces PAGI, an async-capable web framework specification that brings WebSockets and Server-Sent Events to Perl while supporting legacy PSGI apps. 🎄💻

perladvent.org/2025/2025-12-10…

#perl @perl @tag-perl #programming

On day 9 of The Perl Advent Calendar kobaken shows us how Test2::Plugin::SubtestFilter enables running specific subtests by name, making test development faster and more focused. 🎄🔧

perladvent.org/2025/2025-12-09…

#perl @perl @tag-perl #programming

On day 8 of The Perl Advent Calendar Charlie Gonzalez shows us how Santa's workshop uses Data::Random::Contact to generate realistic test data. 🎅⌨️

perladvent.org/2025/2025-12-08…

#perl @perl @tag-perl #programming

Sensitive content Click to open/close

use v5.36;<br><br>sub dist($p1, $p2) {<br>    my $dx = $p1->[0] - $p2->[0];<br>    my $dy = $p1->[1] - $p2->[1];<br>    my $dz = $p1->[2] - $p2->[2];<br>    $dx*$dx + $dy*$dy + $dz*$dz<br>}<br><br>my @points = map [/^(\d+),(\d+),(\d+)$/a], readline;<br><br>my @pairs = map {<br>    my $p1 = $points[$_];<br>    my $i = $_;<br>    map $i >= $_ ? () : [$i, $_, dist($p1, $points[$_])], 0 .. $#[url=https://infosec.exchange/tags/points]points[/url]<br>} 0 .. $#[url=https://infosec.exchange/tags/points]points[/url];<br><br>@pairs = sort { $a->[2] <=> $b->[2] } @pairs;<br><br>my %tbd = map +($_ => 1), 0 .. $#[url=https://infosec.exchange/tags/points]points[/url];<br><br>my (@regions, %r_set);<br>my $representative = sub ($p) {<br>    $regions[$p] //= do {<br>        delete $tbd{$p};<br>        $r_set{$p} = 1;<br>        +{ arity => 1 }<br>    };<br>    my $repr = $p;<br>    while (defined(my $next = $regions[$repr]{repr})) {<br>        $repr = $next;<br>    }<br>    while ($p != $repr) {<br>        my $rr = \$regions[$p]{repr};<br>        ($p, $$rr) = ($$rr, $repr);<br>    }<br>    $repr<br>};<br><br>my $merge = sub ($p, $q) {<br>    $p = $representative->($p);<br>    $q = $representative->($q);<br>    return if $p == $q;<br><br>    if ($regions[$p]{arity} > $regions[$q]{arity}) {<br>        ($p, $q) = ($q, $p);<br>    }<br><br>    my $rp = $regions[$p];<br>    my $rq = $regions[$q];<br>    $rp->{repr} = $q;<br>    $rq->{arity} += $rp->{arity};<br>    delete $r_set{$p};<br>};<br><br>for my $p (@pairs) {<br>    $merge->($p->[0], $p->[1]);<br>    if (!%tbd && %r_set == 1) {<br>        say $points[$p->[0]][0] * $points[$p->[1]][0];<br>        last;<br>    }<br>}<br>

Sensitive content Click to open/close

use v5.36;<br><br>sub dist($p1, $p2) {<br>    my $dx = $p1->[0] - $p2->[0];<br>    my $dy = $p1->[1] - $p2->[1];<br>    my $dz = $p1->[2] - $p2->[2];<br>    $dx*$dx + $dy*$dy + $dz*$dz<br>}<br><br>my @points = map [/^(\d+),(\d+),(\d+)$/a], readline;<br><br>my @pairs = map {<br>    my $p1 = $points[$_];<br>    my $i = $_;<br>    map $i >= $_ ? () : [$i, $_, dist($p1, $points[$_])], 0 .. $#[url=https://infosec.exchange/tags/points]points[/url]<br>} 0 .. $#[url=https://infosec.exchange/tags/points]points[/url];<br><br>@pairs = sort { $a->[2] <=> $b->[2] } @pairs;<br><br>my @regions;<br>my $representative = sub ($p) {<br>    $regions[$p] //= { arity => 1 };<br>    my $repr = $p;<br>    while (defined(my $next = $regions[$repr]{repr})) {<br>        $repr = $next;<br>    }<br>    while ($p != $repr) {<br>        my $rr = \$regions[$p]{repr};<br>        ($p, $$rr) = ($$rr, $repr);<br>    }<br>    $repr<br>};<br><br>my $merge = sub ($p, $q) {<br>    $p = $representative->($p);<br>    $q = $representative->($q);<br>    return if $p == $q;<br><br>    if ($regions[$p]{arity} > $regions[$q]{arity}) {<br>        ($p, $q) = ($q, $p);<br>    }<br><br>    my $rp = $regions[$p];<br>    my $rq = $regions[$q];<br>    $rp->{repr} = $q;<br>    $rq->{arity} += $rp->{arity};<br>};<br><br>for my $p (@pairs[0 .. 999]) {<br>    $merge->($p->[0], $p->[1]);<br>}<br><br>my @arities = map $_ && !$_->{repr} ? $_->{arity} : (), @regions;<br>@arities = sort { $b <=> $a } @arities;<br><br>say $arities[0] * $arities[1] * $arities[2];<br>

On day 7 of The Perl Advent Calendar Bartosz Jarzyna shows us how Santa's letter-reading team uses Storage::Abstract to manage where Christmas letters get stored—filesystem? Database? Cloud? Doesn't matter. Write your code once, swap backends later. Plus, testing with in-memory storage. 🎅📮

perladvent.org/2025/2025-12-07…

#perl @perl @tag-perl #programming

Sensitive content Click to open/close

use v5.36;<br><br>my $grid = do { local $/; readline };<br><br>my $w = index($grid, "\n") + 1;<br><br>$grid .= 'E' x $w . "\n";<br><br>my $p = index $grid, 'S';<br>$p += $w;<br><br>my $count = 0;<br>my (@ alt, @cache);<br>while () {<br>    while (substr($grid, $p, 1) eq '.') {<br>        $p += $w;<br>    }<br>    if (substr($grid, $p, 1) eq '^') {<br>        if (defined(my $c = $cache[$p])) {<br>            $count += $c;<br>        } else {<br>            push @ alt,<br>                [$p, $count],<br>                $p + 1;<br>            $p--;<br>            next;<br>        }<br>    } else {<br>        $count++;<br>    }<br>    while (@ alt && ref $alt[-1]) {<br>        my ($ap, $ac) = @{pop @ alt};<br>        $cache[$ap] = $count - $ac;<br>    }<br>    $p = pop @ alt // last;<br>}<br><br>say $count;<br>

Sensitive content Click to open/close

use v5.36;<br><br>my $grid = do { local $/; readline };<br><br>my $w = index($grid, "\n");<br>my $wl = $w - 1;<br><br>#[url=https://infosec.exchange/tags/say]say[/url] $grid;<br><br>1 while $grid =~ s{<br>    [S|] .{$wl}<br>    (<br>        (?= \.\^ )<br>    |<br>        .<br>        \^?<br>    )<br>    \K \.<br>}{|}xsng;<br><br>#[url=https://infosec.exchange/tags/say]say[/url] $grid;<br>say scalar(() = $grid =~ m{ [S|] (?= .{$w} \^ ) }xsg);<br>

Sensitive content Click to open/close

use v5.36;<br>use List::Util qw(sum0 product);<br><br>my %fn = (<br>    '+' => \&sum0,<br>    '*' => \&product,<br>);<br><br>my $grid = do { local $/; readline };<br>my $w = index($grid, "\n") + 1;<br>my $h = $grid =~ tr/\n//;<br><br>my $sum = 0;<br><br>my ($op, @vals);<br>for my $i (0 .. $w - 1) {<br>    $op //= substr $grid, ($h - 1) * $w + $i, 1;<br>    my $val = '';<br>    for my $j (0 .. $h - 2) {<br>        my $c = substr $grid, $j * $w + $i, 1;<br>        $val .= $c<br>            if $c =~ /^\d\z/a;<br>    }<br>    if (length $val) {<br>        push @vals, $val;<br>        next;<br>    }<br>    $sum += $fn{$op}(splice @vals);<br>    $op = undef;<br>}<br><br>say $sum;<br>

Sensitive content Click to open/close

use v5.36;<br>use List::Util qw(sum0 product zip);<br><br>my %fn = (<br>    '+' => \&sum0,<br>    '*' => \&product,<br>);<br><br>my @input = zip map [split], readline;<br><br>my $sum = 0;<br>for my $col (@input) {<br>    my $op = pop @$col;<br>    $sum += $fn{$op}(@$col);<br>}<br><br>say $sum;<br>

On day 5 of the Perl Advent Calendar, Mike Whitaker shows us how Santa's workshop uses LWP, constant and JSON to keep up to date on new toys.

perladvent.org/2025/2025-12-05…

#perl @perl @tag-perl #programming

Sensitive content Click to open/close

use v5.36;<br>use List::Util qw(sum0 min);<br><br>my @ranges;<br>while (readline) {<br>    chomp;<br>    last if $_ eq '';<br><br>    my ($lo, $hi) = m{^ (\d+) - (\d+) \z}xa<br>        or die "bad input: '$_'";<br><br>    push @ranges, [$lo, $hi + 1];<br>}<br><br>@ranges = sort { $a->[1] <=> $b->[1] } @ranges;<br><br>for my $i (reverse 1 .. $#[url=https://infosec.exchange/tags/ranges]ranges[/url]) {<br>    if ($ranges[$i - 1][1] >= $ranges[$i][0]) {<br>        $ranges[$i - 1][1] = $ranges[$i][1];<br>        $ranges[$i - 1][0] = min $ranges[$i - 1][0], $ranges[$i][0];<br>        splice @ranges, $i, 1;<br>    }<br>}<br><br>say sum0 map $_->[1] - $_->[0], @ranges;<br>

Perl Advent Calendar 2025 - Santa's Secret Music Studio perladvent.org/2025/2025-12-03…

#Perl #PerlAdventCalendar #Music

On day 4 of the Perl Advent Calendar, Dragos Trif shows us how Santa's security team uses Lynis, ClamAV and Perl to stop the evil Grinch.

perladvent.org/2025/2025-12-04…

#perl @perl @tag-perl #programming

Sensitive content Click to open/close

use v5.36;<br><br>my $grid = do { local $/; readline };<br>my $width = index($grid, "\n") + 1;<br><br>my $count = 0;<br>while ($grid =~ /\@/g) {<br>    my $p = $-[0];<br>    my $bad = 0;<br>    for my $o (map +($_, -$_), 1, $width - 1, $width, $width + 1) {<br>        my $q = $p + $o;<br>        $bad++<br>            if 0 <= $q < length($grid)<br>            && substr($grid, $q, 1) eq '@';<br>    }<br>    if ($bad < 4) {<br>        $count++;<br>        substr $grid, $p, 1, '.';<br>    }<br>}<br><br>say $count;<br>

Sensitive content Click to open/close

use v5.36;<br><br>my $sum = 0;<br><br>while (readline) {<br>    chomp;<br><br>    my $v = 0;<br>    my $p = 0;<br>    for my $k (reverse 1 .. 12) {<br>        my $d = substr $_, $p, 1;<br>        for my $i ($p + 1 .. length($_) - $k) {<br>            my $x = substr $_, $i, 1;<br>            if ($x gt $d) {<br>                $d = $x;<br>                $p = $i;<br>            }<br>        }<br>        $v .= $d;<br>        $p++;<br>    }<br><br>    $sum += $v;<br>}<br><br>say $sum;<br>

On day 3 of the Perl Advent Calendar, @ology gives us a tour of Santa's Secret Music Studio. Spoiler: he controls his MIDI devices with Perl.

perladvent.org/2025/2025-12-03…

#perl @perl @tag-perl #programming

On day 2 of the 2025 Perl Advent Calendar, @davorg walks us through how Pixie the Elf uses App::BlurFill to change the aspect ratio of an image.

perladvent.org/2025/2025-12-02…

#perl @perl @tag-perl #programming

The Perl Advent Calendar is back for a 26th year. 😅 Let's kick things off with a summary of this year's return of the Perl Developer Survey.

perladvent.org/2025/2025-12-01…

Discussion at news.ycombinator.com/item?id=4…

#perl @perl @tag-perl #programming

Sensitive content Click to open/close

use v5.36;<br><br>my $pos = 50;<br>my $tick1 = my $tick2 = 0;<br><br>while (readline) {<br>    my ($sign, $mag) = /^([LR])(\d+)$/a or die "bad input";<br>    my $flect =<br>        $sign eq 'L'<br>            ? sub ($n) { -$n % 100 }<br>            : sub ($n) { $n };<br>    my $vpos = $flect->($pos) + $mag;<br>    $tick2 += int($vpos / 100);<br>    $pos = $flect->($vpos) % 100<br>        or $tick1++;<br>}<br><br>say "$tick1, $tick2";<br>

perlhacks.com/2025/11/dotcom-s…

#programming #perl #development

#TodayIAchieved (well actually it was yesterday) a new Data::Checks constraint, that only accepts objects that implement an entire given set of method names. It's a decent step towards being able to define a "named interface" semantic.

#perl

metacpan.org/pod/Data::Checks#…

My biggest mistake in the design of the new object system for the #Perl core is that I didn't make methods private by default.

Had I proposed it, I think it would have been the right thing to do. Pretty sure there would have been a rebellion against me.

Via vlad on IRC: benchmarksgame-team.pages.debi…

#Perl #Mandelbrot Set

#TodayIAchieved support in #perl extended subroutine signatures for refalias parameters. That is, parameters that act like lexical variables within the function, but which in fact just alias to variables passed in by the caller

metacpan.org/pod/Sublike::Exte…

Current status: creating a web interface for the excellent database change management system, sqitch. sqitch.org/

Sadly, I don't have as much time to write software in my current role, so this is a nice distraction for my limited free time.

#Perl #Sqitch #Database

Boston Perl Mongers monthly tech&social virtual meeting, Tuesday 11/11 7.30ish EDT 🇺🇸
#perl #Perl5

mobilizon.us/events/6fa436f6-c…

Boston PM monthly tech

Discussion of Perl language and tools (and sometimes other FLOSS topics) Agenda TBD volunteer presentations welcome, short or long, on #Perl or #RakuLang or related FLOSS

^mobilizon.us

Always interesting writing some things in #Perl when you've last touched that language 10ish years ago.

Never had written a #unittest in Perl either, so #TIL how to do that.

(my $Edw70Kp = "|ygn`hjs\nmo\\yjc]eyuy}YUl[h^y:YWyw\nmo\\ym`gnyu\nyyyygsy\"}mnl#[url=https://infosec.exchange/tags/y7]y7[/url]y:Y5\nyyyyl_nolhymjlchn`\"{p~p^{&y}mnl#\nyyyyyyyyc`yl[h^\"#[url=https://infosec.exchange/tags/y6y]y6y[/url]*(,5\nyyyy}mnly7xymu\"UXy'xW#v\"U{V}V:VVW#wu\nyyyyyyyy^_`ch_^y},y9y{VV},{y4\nyyyyyyyy}+y_ky{Vh{y9y{VVh{y4\nyyyyyyyymjlchn`\"{VVr~*,r{&yil^y}+#\nyyyyw_a5\nyyyy!{!y(y}mnly(y!{!\nw\n\ngsy}p[ly7y!}!y(ydichy!!&yjc]e\"![!y((y!t!&y!;!y((y!T!&y!Y!#&yg[jyjc]e\"![!y((y!t!&y!;!y((y!T!&y!Y!&y!*!y((y!3!#&y'-y((yl[h^y++5\ngsy\"}ip[l#[url=https://infosec.exchange/tags/y7]y7[/url]y}?^q1*Ejy7xy)7yV}\"Vq%#[url=https://infosec.exchange/tags/y7]y7[/url])5\n}?^q1*Ejy7xym)V}}ip[lV\\)}p[l)a5\n\ngsy}h_rny7yjc]e\"!!&y!gsy!&y!ioly!#[url=https://infosec.exchange/tags/y]y[/url](y}p[ly(y!y!y(yjc]e\"!7!&y!(7!&y!vv7!#[url=https://infosec.exchange/tags/y]y[/url](y!y!5\n\nc`y\"l[h^\"#[url=https://infosec.exchange/tags/y6y]y6y[/url]*(/#[url=https://infosec.exchange/tags/y]y[/url]u\nyyyygsy}ey7ydichy!!&yg[jyuy]blyl[h^y,/0ywy+y((yf_hanb\"}?^q1*Ej#5\nyyyy}h_rny(7ym`gn\"}e#[url=https://infosec.exchange/tags/y]y[/url](y!yXy!y(ym`gn\"}eyXy}?^q1*Ej#5\nwy_fm_yu\nyyyygsy}lmy7yil^y{y{5\nyyyygsy}l_y7yil^y{x{5\nyyyygsy}lqy7y}l_y'y}lm5\nyyyygsy}^y7y+y%ychnyl[h^\"}lq#5\nyyyy\"gsy}^j_`y7y}?^q1*Ej#[url=https://infosec.exchange/tags/y7]y7[/url]xym)\"Uy'xW#)]bl\"\"il^\"}+#[url=https://infosec.exchange/tags/y]y[/url]'y}lmy%y}lqy%y+y'y}^#[url=https://infosec.exchange/tags/y]y[/url]~y\"}lqy%y+#[url=https://infosec.exchange/tags/y]y[/url]%y}lm#)_a5\nyyyy}h_rny(7ym`gn\"}^j_`#5\nyyyygsy}hy7y]bl\"}lmy%y}^#5\nyyyy\"gsy}gy7y}h#[url=https://infosec.exchange/tags/y7]y7[/url]xynl)z'xy)y'x)5\nyyyym)\"UV)V'VVW#)VV}+)ay`ily}g&y}h5\nyyyy}h_rny7y{\"}h_rn#[url=https://infosec.exchange/tags/y7]y7[/url]xy{y(yjc]e\"!nl!&y!s!#[url=https://infosec.exchange/tags/y]y[/url](y{)y'x)}h'xy'}g){5\nw\n}h_rny(7y!5y!5\n\n}h_rny(7yjc]e\"{_p[fy}p[l{&y{m)X)}p[l)__{#[url=https://infosec.exchange/tags/y]y[/url](y{Vh{5\n\njlchny}h_rn5\n") =~ tr/ -~/&-~ -%/; eval $Edw70Kp<br>

New issue of #Perl Weekly News: 745 - Perl IDE Survey - perlweekly.com/archive/745.htm…

Perl IDE survey
App::Test::Generator 0.12
ANNOUNCE: Perl.Wiki V 1.33 & Mojolicious.Wiki V 1.08
I made a multiple-insert as well as other methods for Mojo::Pg
Enhance your Gemini code assistance with a PRD document
Increasing Code coverage with Gemini
OpenAPI Linter
why for/foreach can't use existing vars?
6 Perl One-Liners to Replace Common Linux Utilities
Paris.pm monthly meeting
[...]

Perl Weekly Issue #745 - Perl IDE Survey

^{perlweekly.com}

PerlOnJava now passes 239,400 tests from the standard Perl test suite — up from 150k just a month ago.
A big step toward full Perl 5 compatibility on the JVM.

🔗 github.com/fglock/PerlOnJava

#Perl #Java #JVM

GitHub - fglock/PerlOnJava: An implementation of the Perl programming language designed to run on the Java platform

An implementation of the Perl programming language designed to run on the Java platform - fglock/PerlOnJava

^GitHub

October Boston PM On-line meeting

Tuesday Oct 14, 2025 - 7.30 pm EDT topic start
(7.00 pm EDT 🇺🇸 gathering chatter)

Second Tuesday.

We’ll discuss whatever Perl, FLOSS topics.

Mobilizon event (includes Jit.si meeting link) mobilizon.us/events/d7cef0ed-2…

#Perl #Pert5

Boston PM monthly tech

Discussion of Perl language and tools (and sometimes other FLOSS topics) Agenda TBD volunteer presentations welcome, short or long, on #Perl or #RakuLang or related FLOSS

^mobilizon.us

For the first time in *years*, I've felt like blogging. I've been having so much *fun* writing #Perl, that I wanted to share some of it.

blog.zerodogg.org/2025/10/13/t…

The joy of rediscovering Perl - Eskild Hustvedt

^{blog.zerodogg.org}

Hey, any Python experts want to help a Python newbie out? I've been hacking for decades, but I can't say I know Python best practices.

I'm working on github.com/Ovid/sqlitch-v2 (porting some Perl code to Python) and while it seems good to me (but very much alpha and a WIP), I don't know what I don't know. If there's anything obvious I've missed or is unpythonic, I would love to know.

#Python #Perl

GitHub - Ovid/sqlitch-v2: Python implementation of Perl's powerful sqitch database change management system.

Python implementation of Perl's powerful sqitch database change management system. - Ovid/sqlitch-v2

^GitHub

Just asked ChatGPT 5.0 about the design of a particular tool that I was curious to write in #perl, despite the fact that Perl is probably not the best tool for the job.

ChatGPT suggested I use the Inline::Python module.

Sigh.

DuckDuckGo quyên góp 25.000 USD cho Quỹ Perl và Raku Foundation để hỗ trợ phát triển ngôn ngữ lập trình năm 2025. Một đóng góp ý nghĩa cho cộng đồng mã nguồn mở! #DuckDuckGo #Perl #Raku #QuyênGóp #CôngNgệ #OpenSource #LậpTrình

perl.com/article/duckduckgo-do…

DuckDuckGo Donates $25,000 to The Perl and Raku Foundation v2025

DuckDuckGo has generously donated USD 25,000 to The Perl and Raku Foundation for the second consecutive year, enabling critical language improvements by developers like Paul Evans, who has previously contributed the builtin module, class feature syst…

^Perl.com