Dave writes:

This is my monthly report on work done during July covered by my TPF perl core maintenance grant. 3:57 BBC: TODDR/YAML-Syck-1.34.tar.gz (Issue #19939) 3:28 Format in fill-mode has inconsistent behaviour (Issue #19985) 4:58 Goto xsub forces scalar context (#19188) 0:57 Returning undef returns a weird hash reference (Issue #19996) 0:37 Segmentation fault with use re 'eval' (Issue #19390) 0:20 fix build warning 39:28 make stack reference counted 6:11 process p5p mailbox 1:16 segfault on goto &xs_sub when calling sub is replaced (Issue #19936) ------ 61:12 TOTAL (HH::MM) I worked on…

The Grants Committee has concluded voting on the July 2022 round. One grant request was submitted:

VOTING RESULTS: Approved. 3 YES votes (12 points), 0 NO votes, 3 ABSTAIN

We accept proposals throughout the year; our next round of review will begin in July. You can submit proposals at any time.

If you want to help with funding and increase our budget, please visit our donations page. We sincerely appreciate all the donors which make the grant program possible. If you donate, please take advantage of your employ…

We would like to present Todd Rinaldo as a candidate to join the foundation Board. He has worked with the foundation for many years as a conference organizer and in other capacities.

The board will vote on Todd's appointment at the board meeting scheduled for 19th August 2022.

Below is Todd's application, answering the questions of why he wants to be a member of the board and what he would like the foundation to work on.

I am Todd Rinaldo. I've been programming for 40 years and coding Perl since my first Perl programming class in 1995. I've been a resident of Houston, TX most of my life. I've bee…

John Napiorkowski

The minimum budget for this project is $8,800 USD

This grant proposal is for the development of a Perl API to Google TensorFlow, a software library for machine learning (ML) and artificial intelligence (AI).

TensorFlow is generally considered to be the most mature and well-supported ML/AI library, and will benefit the Perl community tremendously.

Most new software development projects tend to incorporate or utilize machine learning in some way.

Most machine learning libraries, including TensorFlow, provide a well-documente…

Tony writes: ``` [Hours] [Activity] 2022/06/01 Wednesday 0.28 comment on Win32 p5p thread 0.60 #18882 review, comment briefly 1.17 review github notifications 1.40 #19668 fail to build perl (using tools from strawberry), get it built, reproduce, work on test

3.62

2022/06/02 Thursday 0.07 #19668 open PR 1.42 review coverity report 351943, diagnose, research, fix, testing, push change for CI, open PR #19807 0.77 cid 351946 - diagnose and reject as false positive, review some other coverity issues 1.68 more coverity cid 351960 - try to make i…

As with past conferences, the TPRC 2022 conference had a Standards of Conduct document all attendees were required to agree to. We believe that it’s important to share the outcome of these policies so that people in our community know that we are enforcing them and what outcomes to expect from violations.

This is an anonymized summary of the incidents reported to the SoC Committee and the committee’s response:

• A conference attendee made an inappropriate remark to a fellow attendee. The Standards of Conduct committee spoke with the reported attendee. As this was not the first such incident with t…

These are some answers to the Week 177 of the Perl Weekly Challenge organized by Mohammad S. Anwar.

Spoiler Alert: This weekly challenge deadline is due in a few of days from now (on Aug. 14, 2022 at 23:59). This blog post offers some solutions to this challenge, please don’t read on if you intend to complete the challenge on your own.

You are given a positive number, $n.

Write a script to validate the given number against the included check digit.

Please checkout the wikipedia page for information.

Example 1

Input: $n = 5724
Output: 1 as it is valid number

Example 2

Input: $n…

Sometimes I want to filter a set of strings, but the details of the filter are not known beforehand. In particular, I may want a null filter, which simply accepts anything.

This looks like a job for a regular expression, but I can think of at least two implementations. One is to pass around regular expression objects. The second is to wrap a match (m//) in a subroutine reference, and pass that around. Given the use of regular expressions, there are a number of possibilities for a regular expression that matches any string.

I wondered whether one of the alternatives I was choosing among was faste…

These are some answers to the Week 176 of the Perl Weekly Challenge organized by Mohammad S. Anwar.

Spoiler Alert: This weekly challenge deadline is due in a few of days from now (on Aug. 7, 2022 at 23:59). This blog post offers some solutions to this challenge, please don’t read on if you intend to complete the challenge on your own.

Write a script to find the smallest positive integer x such that x, 2x, 3x, 4x, 5x and 6x are permuted multiples of each other.

For example, the integers 125874 and 251748 are permuted multiples of each other as

251784 = 2 x 125874

and also…

Sorry, SPVM continues to undergo heavy changes.

After building real-world modules and applications, I realized that a lot of changes needed to be made.

You can see what I'm currently working on below.

SPVM modules - CPAN modules

JSON - JSON

Math - Math functions

Regex - Regular Expression

Unicode - Unicode Utilities

Base64 - Base 64

Time::Local - Time Reverse Manipulation

SPVM::Errno - Error Number

SPVM::Resource::Re2::V2022_06_01 - Resource of Google RE2 release 2022-06-01.

SPVM::Resource::Zlib::V1_2_11 - zlib v1.2.11 Resource

SPVM::Cwd - get pathname of current working directory

SPVM::IO - File IO, Socket…

These are some answers to the Week 175 of the Perl Weekly Challenge organized by Mohammad S. Anwar.

Spoiler Alert: This weekly challenge deadline is due in a few of days from now (on July 31, 2022 at 23:59). This blog post offers some solutions to this challenge, please don’t read on if you intend to complete the challenge on your own.

Write a script to list Last Sunday of every month in the given year.

For example, for year 2022, we should get the following:

2022-01-30
2022-02-27
2022-03-27
2022-04-24
2022-05-29
2022-06-26
2022-07-31
2022-08-28
2022-09-25
2022-10-30
2022-11-27…

Over on the p5p mailing list, a user raised the issue that use of variable $00 is an error starting with Perl 5.32, and asked that this "regression" be fixed.

I have always understood that variables whose names begin with anything but an alphabetic or an underscore are reserved to Perl, and you mess with them at your peril. And this is the gist of the Porters' response to the post. Recent versions of perlvar say this explicitly, though earlier versions of that document restrict themselves to describing currently-implemented special variables.

For what it's worth, perl532delta appears not to ment…

Hi there,

Personally I have noticed the fresh energy among all Perl fans ever since the release of latest Perl v5.36. I am telling this based on the amount of positive noise I heard on various public platform. There are still few in the pipeline that would give further push e.g. Corinna. If you are interested to know more then please do checkout this page maintained by Curtis Poe.

MetaCPAN is another place where you can see all the latest cool Perl projects. I know plenty of volunteers helping to improve the code base. If you use a distribution and you like it then why not share your experience…

Hi there!

One of the ongoing discussions in the Perl community is the question of backward compatibility. One group of people say it is (one of) the most important traits of Perl that you can run very old code on a very new version of Perl. The other side mostly say that there are very few cases when this is actually needed and the change in the version of Perl is just one aspect of upgrades people need to handle.

Then comes the case, like the introduction of th $00 variable in Perl 5.32 that breaks the code of people who used that variable for their own purposes. This is not the first case wher…

Hi there,

The community spirit among Perl fans is always the highlight of any event. I am sure you have experience it too. Little while ago, there was discussion to give new life to Perl Advent Calendar. Many volunteers came forward to help the project, like, Adam Russell. As we are getting close to the next edition, Olaf Alders and Julien Fiegehenn came together and kickstarted the project with a big push. I noticed in the recent weeks, lots of activities on GitHub repository, thanks to all the volunteers. Olaf Alders made an official call for papers in the blog post. I request all Perl fans t…

Hi there!

Last week Mohammad raised the idea of a GitHub-pages-based central blogging platform for Perl to which Dave Cross added his comment pointing out a misunderstanding. At first I liked the idea of Mohammad as way of making it easier for people who don't know how to setup a blog, but on a second thought. Setting up a site for blogging on GitHub pages is less than 5 minutes. On GitLab and Codeberg it might take a bit more, but still way less than the whole writing part. If you need help ask Flavio, David, Mohammad, or myself.

A few years ago the Perl community got really enthusiastic by the…

Hi there,

Are you a Perl blogger?

The state of Perl blogging is not hidden from anyone. Dave Cross wrote an extensive blog post explaining not just the issues but also suggestions to get around it.

I proposed an idea on my personal twitter handle and asked for public opinion. As of today, it got 22 likes. I know, it isn't big number.

By the way, what was the proposal?

The proposal was to setup dedicated domain (https) powered by GitHub Pages. The static site would be generated by Hugo. It would be open to public to submit blog post as Markdown formatted page as pull request. After a quick review, t…

Hi there!

What if you had a steady income of a few thousand USDs just for doing awesome things for Perl so you can afford to do whatever you want? I bet there would be tons of things you could do. Improving CPAN modules, patching Perl, writing articles, recording videos, encouraging others to write more. etc.

So what if we could support a few people to do just that? How could you be part of it? You could donate to TPF, but for you, as an individual it might be better to support an individual directly. Without the organizational overhead. For this a while ago I put together the list of all the Pe…

Originally published on my blog.

In my team we run "masterclasses" every couple of weeks, where someone in the team presents a topic to the rest of the team.

This article is basically the content of the class on regular expressions (otherwise known as regex) I gave recently.

It's an introduction to the basics of regular expressions. There are many like it, but this is mine.

Wikipedia defines regular expressions as:

"a sequence of characters that define a search pattern"

They are available in basically every programming language, and you’ll probably most common…

Challenge, My solutions

Write a script to find the smallest positive integer x such that x, 2x, 3x, 4x, 5x and 6x are permuted multiples of each other.

This is one challenge where we could over-engineer it to make it faster. Given that the solution can be found in a fraction of a second, this won't be necessary.

For example after 1,666, the next possible solution is 100,000. 1667 × 6 will result in a five digit number which can't possibly be a permutation of the original number.

The easiest way to work out if a number is a permutation is…

Scripts and output for coloring page book pages based on digital elevation data

Introduction
Adult coloring books are all the rage. Most are hand-drawn, and subjects are wide-ranging. I happen to love maps and landscape data, so I created an automated method to convert digital elevation models (or any greyscale image, for that matter) into a color-able coloring book image.

View the web site here.

before after

Usage
Before using the included Perl script, you'll need to make sure that the NetPBM and TurboJPEG packages are installed and in the user's path. You can do this on an RPM system with:

sudo yum…

Code that performs side effects is difficult to test because we need figure out how to sandbox the effects so we can observe the state of the sandbox before and after executing the effectful code. The difficulty is increased when the side effectful code also depends on specific OS configurations. Let us explore my solution to such a predicament.

I have been working on the next major release of my btrfs snapshot manager yabsm and I want to write unit tests for functions that take and delete btrfs snapshots. This code performs the side effect of taking and deleting snapshots and depends on the OS…

Challenge, My solutions

Write a script to list Last Sunday of every month in the given year.

Date math is hard, although not as hard as date and time calculations. As a quick refresher, the days, months and year as we know it was introduced in October 1582 by Pope Gregory XIII as a modification of, and replacement for, the Julian calendar. Both solutions I've provided have assumed the Georgian Calendar since the beginning of time, and thus will give wrong results for old dates.

In my solution, I use the date module from datetime. For the specified…

Challenge, My solution

Just doing one task this week. The second one is nothing more than copying and pasting code from the mentioned website, so I cannot see the point. YMMV.

Write a script to generate first 19 Disarium Numbers.

A disarium number is an integer where the sum of each digit raised to the power of its position in the number, is equal to the number.

This is pretty straight forward. Have a list (array in Perl) called solutions. Keep iterating a number until their are nineteen items in that list. Add the number to the list if the number is disarium.

To de…

The examples used here are from the weekly challenge problem statement and demonstrate the working solution.

Write a script to find the smallest integer x such that x, 2x, 3x, 4x, 5x and 6x are permuted multiples of each other.

use strict;
use warnings;
use boolean;

sub is_permuted{
    my($x, $y) = @_;
    my(@x, @y); 
    map {$x[$_]++} split(//, $x);
    map {$y[$_]++} split(//, $y);
    return false if $#x != $#y;
    my @matched = grep {(!$x[$_] && !$y[$_]) || ($x[$_] && $y[$_] && $x[$_] == $y[$_])} 0 .. @y - 1;
    return true if @matched == @x;
    return false;
}

sub sma…

The examples used here are from the weekly challenge problem statement and demonstrate the working solution.

Write a script to list the last sunday of every month in the given year.

use strict;
use warnings;
use Time::Piece; 

sub last_sunday_month{
    my($month, $year) = @_;
    $month = "0$month" if $month < 10;
    my $sunday;
    my $t = Time::Piece->strptime("$month", "%m");   
    for my $day (20 .. $t->month_last_day()){
        $t = Time::Piece->strptime("$day $month $year", "%d %m %Y");
        $sunday = "$year-$month-$day" if $t->wday == 1;
    }  
    return $sunday…

The examples used here are from the weekly challenge problem statement and demonstrate the working solution.

Write a script to generate the first 19 Disarium Numbers.

use strict;
use warnings;
use POSIX;

sub disarium_n{
    my($n) = @_;
    my @disariums;
    map{
        return @disariums if @disariums == $n;
        my @digits = split(//, $_);
        my $digit_sum = 0;
        map{
            $digit_sum += $digits[$_] ** ($_ + 1);
        } 0 .. @digits - 1;
        push @disariums, $digit_sum if $digit_sum == $_;
    } 0 .. INT_MAX / 100;
}

MAIN:{
    print join(", ", disar…

The examples used here are from the weekly challenge problem statement and demonstrate the working solution.

You are given a positive integer, $n. Write a script to find out if the given number is an Esthetic Number.

use strict;
use warnings;
use boolean;

sub is_esthetic{
    my($n) = @_;
    my @digits = split(//, $n);
    my $d0 = pop @digits;
    while(@digits){
        my $d1 = pop @digits;
        return false if abs($d1 - $d0) != 1;
        $d0 = $d1;
    }
    return true;
}

MAIN:{
    my $n;
    $n = 5456;
    print "$n is ";
    print "esthetic\n" if is_esthetic($n…

The examples used here are from the weekly challenge problem statement and demonstrate the working solution.

You are given two positive integers, $n and $k. Write a script to find out the Prime Partition of the given number. No duplicates are allowed.

use strict;
use warnings;
use boolean;
use Math::Combinatorics;

sub sieve_atkin{
    my($upper_bound) = @_;
    my @primes = (2, 3, 5);
    my @atkin = (false) x $upper_bound;    
    my @sieve = (1, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 49, 53, 59);
    for my $x (1 .. sqrt($upper_bound)){
        for(my $y = 1; $y <= sqrt…

The examples used here are from the weekly challenge problem statement and demonstrate the working solution.

Write a script to generate the first twenty Abundant Odd Numbers.

use strict;
use warnings;
sub proper_divisors{
    my($n) = @_;
    my @divisors;
    for my $x (1 .. $n / 2){
        push @divisors, $x if $n % $x == 0;
    }
    return @divisors;
}

sub n_abundant_odd{
    my($n) = @_; 
    my $x = 0;
    my @odd_abundants;
    {
        push @odd_abundants, $x if $x % 2 == 1 && unpack("%32I*", pack("I*", proper_divisors($x))) > $x;
        $x++;
        redo if @odd_abun…

1. Alien::Build - Build external dependencies for use in CPAN
   • Version: 2.51 on 2022-08-03
   • Votes: 22
   • Previous version: 2.51 was before
2. App::Netdisco - An open source web-based network management tool.
   • Version: 2.053005 on 2022-08-04
   • Votes: 14
   • Previous version: 2.052010 was 8 days before
3. App::perlbrew - Manage perl installations in your $HOME
   • Version: 0.96 on 2022-07-31
   • Votes: 170
   • Previous version: 0.95 was 2 months, 16 days before
4. Catalyst::View::TT - Template View Class
   • Version: …

This is the weekly favourites list of CPAN distributions. Votes count: 32

Week's winner: Algorithm::Line::Bresenham (+2)

Build date: 2022/08/06 21:12:25 GMT

Clicked for first time:

• Apache::ConfigParser - Load Apache configuration files
• App::PFT - Hacker friendly static blog generator
• Dist::Zilla::Plugin::SyncCPANfile - Sync a cpanfile with the prereqs listed in dist.ini
• Excel::ValueWriter::XLSX - generating data-only Excel workbooks in XLSX format, fast
• Search::Fzf - Ported Fzf using perl.
• Test2::Tools::HTTP::UA::Mojo - Mojo user agent wrapper for Test2::Tools::HTTP

Increasing its reputation:

• Algorithm…

These are the five most rated questions at Stack Overflow last week.
Between brackets: [question score / answers count]
Build date: 2022-08-06 21:10:40 GMT

1. Perl: speed of s/// with variable in replacement - [7/2]
2. Perl regex capture groups and nth occurence - [3/4]
3. How can I pass prove (Test::More) an argument, e.g. an API URL? - [2/2]
4. Perl regex combining capture groups & nth string - [2/2]
5. Linux grep command in Perl script now working - [2/2]

1. App::Netdisco - An open source web-based network management tool.
   • Version: 2.052010 on 2022-07-27
   • Votes: 14
   • Previous version: 2.052008 was 15 days before
2. Devel::CheckOS - require that we are running on a particular OS
   • Version: 1.94 on 2022-07-24
   • Votes: 13
   • Previous version: 1.93 was 2 months, 29 days before
3. HTTP::Tiny - A small, simple, correct HTTP/1.1 client
   • Version: 0.082 on 2022-07-25
   • Votes: 103
   • Previous version: 0.080 was 8 months, 20 days before
4. Memoize - Make functions f…

This is the weekly favourites list of CPAN distributions. Votes count: 41

Week's winner (+3): Storable::Improved 

Build date: 2022/07/30 19:39:07 GMT

Clicked for first time:

• Linux::Statm::Tiny - simple access to Linux /proc/../statm

Increasing its reputation:

• Authen::TOTP (+1=2)
• BioPerl (+1=29)
• Book::Chinese::MasterPerlToday (+1=5)
• Cache::FastMmap (+1=22)
• CGI (+1=41)
• Chart (+1=8)
• Data::Enum (+1=2)
• DBI (+1=257)
• DBIx::Class::InflateColumn::FS (+1=4)
• DBIx::Class::UUIDColumns (+1=2)
• Devel::CheckOS (+1=13)
• Excel::Writer::XLSX (+1=56)
• Feature::Compat::Try (+1=10)
• LaTeX::Driver (+1=3)
• libnet (+1=27)
• Minion::Backend::mysql…

These are the five most rated questions at Stack Overflow last week.
Between brackets: [question score / answers count]
Build date: 2022-07-30 19:36:39 GMT

1. Perl regex capture groups and reshuffle pattern - [3/3]
2. Can't install some POE perl module in Strawberry Perl - [3/0]
3. Replace newline if condition is met in next line in text file with linux command line tools - [2/3]
4. Calculate the difference between two dates as years-and-days but without months? - [2/1]
5. Perl 5 : assignment of an anonymous arrayref, where the array is still empty = copy-construction? - [2/1]