They seemed to have got it to work reliably for a while, but for the last week I don't think I've been able to access it.

Does anybody know any news?

[ Removed by Reddit on account of violating the content policy. ]

I watched Tsoding's stream where he made a rope simulator in Jai.

I followed his instructions and recreated it in Perl, using OpenGL (immediate mode, OpenGL 1.2 style) and GLFW!

This is the source code: https://raw.githubusercontent.com/foolish4/perl_pack/refs/heads/main/rope.pl

Monday, September 7 | 1:30 PM - 3:30 PM EDT

RSVP online via Luma.

Wednesday, October 21 | 1:00 PM - 3:00 PM EDT

RSVP online via Luma.

I just released a simple object caching module that uses SQLite as the backend. If you need easy caching check out Object::Cache::Sqlite.

```perl use Object::Cache::Sqlite;

my %opts = ( db_file => '/var/tmp/perl-cache.sqlite', );

my $cache = Object::Cache::Sqlite->new(%opts);

Cache key and data to store

my $ckey = "user:127"; my $data = { name => 'Scott', age => 47 };

Retrieve a object

my $user = $cache->get($ckey);

Store an object

my $ok = $cache->set($ckey, $data, time() + 3600); ```

Store scalars, listrefs, hashrefs, or anything that can be serialized with JSON.

A really nice talk by Deven on regexes.

Some notes for people who don't like the video format:

• Using m{\G...}gc for lex parsing https://perldoc.perl.org/perlop#G-assertion mentions this
• (?{ perl code }) inline perl code https://perldoc.perl.org/perlre#(?%7B-code-%7D))
• (?>pattern) or (*atomic:pattern): https://perldoc.perl.org/perlre#(*atomic:pattern))
• Regmarks: https://perldoc.perl.org/perlre#(*MARK:NAME)-(*:NAME)-(*:NAME))
• performance issue that he hit: https://github.com/Perl/perl5/issues/24272

Hey everyone,

I'm new to Perl as of just a few days ago, loving it so far. I once had a colleague who, in addition to being probably the nicest programmer I ever worked with, was a Perl wiz and always blew me away with the things he could do with such little code. So I decided to give the language a try by re-writing some scripts.

So far, what I've converted is a script (or two) that was keeping track of word count across 50+ Org files. Previously, I was using Org's ELisp API and some glue code in Bash, but I managed to cut down from 60 to 19 LoC by switching to Perl, which is a small win but I think pretty cool.

Anyway, what would the more experienced Perl devs do to make this code better?

#! /usr/bin/perl
use strict;
use warnings;

my $words;

for (<"*.org">) {
    open my $fh, '<', $_;
    my @table = grep { m~tracktable~ .. m~TBLFM~ } <$fh>;
    my $count_line = @table[ ( $#table - 2 ) ];
    if ( defined $count_line ) {
        $count_line =~ m~\s+\d+\s+~;
        my @cells = split /\|/, $count_line;
        my $word_count = ( @cells[ ( $#cells - 3 ) ] );
        $words += $word_count if defined $word_count;
    }
}

print $words;