It’s time to plan TPRC 2024. If you are interested in organizing the event in your city, please submit a proposal by April 28th.

Please view the information, along with a sample RFP you can send to possible vendors here. When ready to submit your proposal, please use the same form.

If you have any questions, please contact us at hello@perlfoundation.org .

This report is a collaboration between Dr. Ann Barcomb's research lab and TPRF.

The research was primarily conducted by Aadharsh Hariharan. The goal of this research project is to analyse the current existing volunteering scenario within these communities and create techniques that will help in better management of volunteers. The Perl community is ideal for this research project as there is no single large corporate entity behind the communities.

Please click here to view the report in it's entirety.

We will be discussing the report at the next Community and Reps meeting, which will be held on…

TPRF is looking for community input on the future of the TPRF website(s).

We are asking for community members to submit proposals for the Perl/Raku website(s). The proposals would ideally address the following:

* Should there be separate websites for Perl and Raku, with a single set of main content that will be on both pages, or should TPRF continue to operate with one website, but feature separate sites for language specific donations?

* An approach to the professional graphic designing of the website (Please provide links to any examples/existing websites that show what a website along these li…

The Perl & Raku Conference is a high-quality, inexpensive technical Conference that celebrates the Perl and Raku programming languages. The beauty of the conference is that it remains accessible to everyone regardless of experience, yet it is still valuable to the most skilled programmers.

The Perl & Raku Conference 2023 will be held in Toronto, Ontario, Canada from July 11-13, 2023.

The deadline to submit your talks is coming up quickly! Please visit https://www.papercall.io/tprctor23 to submit your talk before March 31st.

The Perl and Raku Foundation is delighted to announce that the annual North American Perl and Raku Conference will be held in Toronto, Canada on July 11 to 13, 2023. The venue will be the DoubleTree (a Hilton Hotels property), located at 108 Chestnut St in downtown Toronto. That's directly North from Toronto's city hall, close to public transit and one of the country's biggest malls, the Toronto Eaton Centre.

Toronto is Canada's largest city, and the city and surrounding area offers many attractions for a vacation before or after your conference attendance. For…

The Perl & Raku Foundation would like to thank all of our community volunteers that helped run the TPRF stand at FOSDEM this year. The stand was successful in spreading interest in the Perl and Raku languages and promoting involvement in our communities.

A special thank you to Theo van Hoesel for providing these photos.

Notice

Thanks to demerphq and Sebastian Schleussner's comments, we should visit a better and easy way to do a regex matching in Perl now. It is not Regexp::Assemble introduced two weeks before - the…

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

Spoiler Alert: This weekly challenge deadline is due in a few days from now (on March 26, 2023 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 an array of binary bits that ends with 0.

Valid sequences in the bit string are:

[0] -decodes-to-> "a"
[1, 0] -> "b"
[1, 1] -> "c"

Write a script to print 1 if the last character is an “a” otherwise print 0.

Example…

First of all, a greeting. I posted an introduction with a notification of intent to take over a module on CPAN, but the maintainer responded to me. I'm Avery, I'm developing SeekMIDI, a small graphical MIDI sequencer. I started it in 2016 and I took a long break from programming entirely, and I've just restarted developing my programming skills again. For starters, I'm working on Perl Weekly Challenges and bug fixes to modules.

Without further ado, here are my solutions to the PWC #208. All solutions are about to be posted, but this could be a spoiler if you're trying to solve it too. I was ver…

Hi ! Everyone there ! How are you ?

Until recently I runs all of my Perl scripts as well as Perl_CGI scripts by starting the folowing salutation,

#! /usr/bin/perl -w

The script with this beginning runs well at BASH shell at (/home/mkido/bin) LINUX such as Fedora, Ubuntu, Rocky (Alma-derivative). However, almost right now I noticed some of Perl example around has the different first line as below,

#! /usr/bin/env perl

And it doesn't seem to run at HOME BASH shell (/home/mkido/bin) by simple way of executing it by-itself by the command line. Will someone explain me about what is this [env perl] stuff…

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

Spoiler Alert: This weekly challenge deadline is due in a few days from now (on March 19, 2023 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 two arrays of strings.

Write a script to find out all common strings in the given two arrays with minimum index sum. If no common strings found returns an empty list.

Example 1:

Input: @list1 = ("Perl", "Raku", "Love")
       @lis…

Quoth the fine manual for Template Toolkit:

The DEFAULT directive is similar to SET but only updates variables that are currently undefined or have no "true" value (in the Perl sense).

Nice. Basically, where SET is like the = operator in Perl, DEFAULT is like the ||= operator. Quite useful! If it were, that is. Because the analogy is only superficially true.

You see, DEFAULT in Template Toolkit does not short-circuit: it evaluates the right-hand side before it checks whether the expression on the left-hand side is true. If you deparse the compiled template it is obvious why:

SET foo = bar ;
# comp…

This is a story of one of those nice incidents where something starts off simple, then spirals out of control for a while but, in the end, everyone wins.

On Reddit, a few days ago, someone asked ‘Is there a “Planet Perl” with an RSS feed?’ and a few people replied, pointing out the existence of Planet Perl (which is the first Google result for “Planet Perl”). I’m obviously not marketing that site very well as every time I mention it, I get people (pleasantly) surprised that it exists.

On this occasion, it was Elvin Aslanov who seemed to discover my site for the first time. And, very soon afterwa…

Hi there,

My 6 years old twins reminded me on Sunday morning about Mother's Day. Although I didn't even know such day existed when I was in India but this country exposed me to all kind of celebrations. I miss my mom a lot. Let me share with you one of my childhood memory. During my school days, everytime somebody complain to my mom about my fight she wouldn't listen to my side of story. In fact she would start beating me up infront of the complainant. All my so-called friends knew this and they would blackmail me all the time. My mom would never defend me and believe what others have to say ab…

Hi there!

In the previous newsletter Mohammad included a blog post of Dave Cross about the Perl Planetarium, but I think it is worth another highlighting. It is an excellent way to follow what's going on in and around Perl on a daily basis. Now also including commits to the source code of Perl and questions on Stack overflow. I've also opened two issues asking Dave to allow the user to filter the messages based on source and to color-code the sources. Something one of you could implement in the front-end.

A couple of days ago I saw a post on Facebook by Curtis Ovid Poe and then Will Braswell rep…

Hi there,

Do you remember the first programming language you picked up?

I am sure in the life span of a programmer, one picks more than one programming language but still have special place for one. I remember during my first encounter in the year 1993, I was introduced to COBOL as part of the course I joined immediately after getting through 12th or (+2 as some remember). I had only access to PC at the institute and that too 2 times a week for one hour each. Imagine relying on books and nothing else, I was attracted towards many other programming languages. During that period, I picked up Fortr…

Hi there!

In 1492 the Jews were expelled from Spain and 4 years later also from Portugal. Many of those Jews settled in the Ottoman Empire and kept talking and changing their language. This is what created the language we call 'Judeo-Espanyol' or in its modern name 'Ladino'. For 500 years these people kept speaking and improving their language which is now a mix of medieval Spanish, Portuguese, Catalan, Turkish, Greek, Italian, Hebrew, Arabic, and probably a few other languages. These Jews are usually referred to as the 'Sephardic' Jews because 'Sepharad' means Spain in Hebrew. It was originall…

Hi there,

Depending who you ask the question, you might get different answer. As I am native Perl speaker, I would say it stands for Perl.

I first came to know about LAMP in the year 1999 when I was first introduced to Perl. Although the term was first coined by Michael Kunze in the year 1998. During that time, Perl and PHP were the only two contenders. Many years later, Python joined the gang. That makes it good fun discussion on what P stands for in LAMP. Those days, Web Development was mostly around Perl and good old friend CGI. Things have changed for good in all these years. We now have ple…

Hi there!

I am sure most of you reading this newsletter have heard that "perl is unreadable" or "perl is a write only language", or maybe that "perl is dead". In many cases this comes from people who have never actually saw perl. You might have not named this phenomenon, but this is called prejudice.

Prejudice is having (usually negative) opinion about an individual, a group of people, or a thing, with partial or no real knowledge about the subject. It's name is quite clear. It is having a judgement before (pre) having knowledge.

One can see prejudice as a phenomenon that happens naturally, but i…

I recently came up with an interesting pattern that is supposed to use a closure to return a read-only configuration. Unfortunately this pattern has a terrible flaw.

{
    my %config;

    sub config {
        return %config if %config;
        %config = create_config();
        return %config;
    }
}

The config() subroutine is a lexical closure over the %config hash. No other code in a program would be able to access the %config variable, as everything is defined in its own block.

As an aside, this pattern could just as easily be written with a state variable, but I find it harder to explain t…

This was the 6th session of the the Open Source Developer Course (OSDC) that I started to teach at the end of January. (We have a weekly session, but we had to skip several weeks in the middle).

This time instead of having a grand presentation we worked on a Perl library (module) that was failing its tests. Here are my notes about what we have accomplished during the session.

The changes we made were not huge, but I believe a little improvement every day by many people can lead to a lot of value to the whole open source ecosystem and through that to the world.

• We sent several pull-re…

NYC publishes vehicle collision data which anyone can access using their API. You can also download this information in standard CSV (Comma Separated Values) file format.
The file is fairly large, 420 MB, with almost 2 Million lines.

-rw-rw-r-- 1 austin austin 402M Mar  4 20:38 all_motor_vehicle_collision_data.csv
…
bash > wc -l all_motor_vehicle_collision_data.csv 
1972886 all_motor_vehicle_collision_data.csv

bash …

Originally published at Perl Weekly 608

Hi there,

My 6 years old twins reminded me on Sunday morning about Mother's Day. Although I didn't even know such day existed when I was in India but this country exposed me to all kind of celebrations. I miss my mom a lot. Let me share with you one of my childhood memory. During my school days, everytime somebody complain to my mom about my fight she wouldn't listen to my side of story. In fact she would start beating me up infront of the complainant. All my so-called friends knew this and they would blackmail me all the time. My mom would never defend me…

I've been doing the Perl Weekly Challenge, so here are my solutions to the PWC #208. All solutions are about to be posted, but this could be a spoiler if you're trying to solve it too. I was very pleased this week that I got it down to about 15-25 minutes for each task, so I'm definitely getting more comfortable in Perl again.

First, task 1:

use strict;
use v5.10;

my @list1 = ("Perl", "Raku", "Love");
my @list2 = ("Raku", "Perl", "Hate");

# my @list1 = ("A", "B", "C");
# my @list2 = ("D", "E", "F");

# my @list1 = ("A", "B", "C");
# my @list2 = ("C", "A", "B");

my $minindex;
my @results;
for…

Challenge, My solutions

Last minute commit this week, so this blog will be briefer than usual.

You are given two arrays of strings.

Write a script to find out all common strings in the given two arrays with minimum index sum. If no common strings found returns an empty list.

This is one of those tasks where optimisation of the solution probably isn't required. I'm sure some clever Team PWC people have a blog post on the most optimal solution.

For this task, I extract the word-like strings from the first two parameters, and call them first_list and second_list…

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

You are given an array of integers. Write a script to print 1 if there are THREE consecutive odds in the given array otherwise print 0.

use v5.36;
use boolean;

sub three_consecutive_odds{
    my @numbers = @_;
    my $consecutive_odds = 0;
    {
        my $x = pop @numbers;
        $consecutive_odds++   if 1 == ($x & 1);
        $consecutive_odds = 0 if 0 == ($x & 1);
        return true if 3 == $consecutive_odds;
        redo if @numbers;
    }
    return false;
}

MAIN…

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

You are given an array of unique numbers. Write a script to find out all missing numbers in the range 0..$n where $n is the array size.

use v5.36;
use boolean;
sub missing_numbers{
    my @numbers = @_;
    my %h;
    do { $h{$_} = undef } for @numbers;
    my @missing = grep { !exists($h{$_}) } 0 .. @numbers;
    return @missing;
}

MAIN:{
    say q/(/ . join(q/, /, missing_numbers(0, 1, 3)) . q/)/;
    say q/(/ . join(q/, /, missing_numbers(0, 1)) . q/)/;
    say q/(/ . j…

1. App::DBBrowser - Browse SQLite/MySQL/PostgreSQL databases and their tables interactively.
   • Version: 2.320 on 2023-03-14, with 12 votes
   • Previous version: 2.316 was 23 days before
   • Author: KUERBIS
2. Crypt::Passphrase - A module for managing passwords in a cryptographically agile manner
   • Version: 0.010 on 2023-03-14, with 12 votes
   • Previous version: 0.009 was 5 days before
   • Author: LEONT
3. ExtUtils::MakeMaker - Create a module Makefile
   • Version: 7.68 on 2023-03-14, with 52 votes
   • Previous…

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

Week's winner: Playwright (+2)

Build date: 2023/03/19 07:07:48 GMT

Clicked for first time:

• Affix - A Foreign Function Interface eXtension
• Data::Roundtrip - convert between Perl data structures, YAML and JSON with unicode support (I believe ...)
• Lingua::RU::Numeral - Perl extension for generate Russian wording of numerals from the natural numbers and 0 (zero).
• Mojolicious::Plugin::DirectoryServer - Serve static files from document root with directory index
• Net::Google::OAuth - Simple Google oauth api module
• Parse::Deb::Control - p…

These are the five most rated questions at Stack Overflow last week.
Between brackets: [question score / answers count]
Build date: 2023-03-19 07:05:48 GMT

1. Subroutine with same name in 2 different CPAN modules - [4/2]
2. Where in the perl documentation does it mention 0.0001, 0.00001 printing differences? - [4/1]
3. How do you use globbing in perl for a one-liner with many files, avoiding xargs/find/etc - [3/3]
4. why do @- and @+ have different sizes after perl regex match - [3/1]
5. Using a module or a feature in another package than where it is supposed to be used - [2/4]

1. Alien::Build - Build external dependencies for use in CPAN
   • Version: 2.78 on 2023-03-07, with 22 votes
   • Previous version: 2.77 was 1 month, 18 days before
   • Author: PLICEASE
2. App::Netdisco - An open source web-based network management tool.
   • Version: 2.060010 on 2023-03-10, with 14 votes
   • Previous version: 2.060007 was 7 days before
   • Author: OLIVER
3. Class::Method::Modifiers - Provides Moose-like method modifiers
   • Version: 2.15 on 2023-03-05, with 29 votes
   • Previous version: 2.15 was be…

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

This week there isn't any remarkable distribution

Build date: 2023/03/11 22:14:10 GMT

Clicked for first time:

• App::PerlNitpick - change-suggester about insignificant details.
• jacode - Perl program for Japanese character code conversion
• MsOffice::Word::Template - generate Microsoft Word documents from Word templates
• WWW::PiHole - Perl interface to Pi-hole

Increasing its reputation:

• AI::MXNet (+1=37)
• Algorithm::Combinatorics (+1=25)
• App::cpanminus (+1=274)
• App::Pod (+1=2)
• Carton (+1=119)
• CGI (+1=42)
• common::sense (+1=23)
• CPAN::Audit (+1=8…

These are the five most rated questions at Stack Overflow last week.
Between brackets: [question score / answers count]
Build date: 2023-03-11 22:12:37 GMT

1. Is it possible to use Smart::Comments:from<Perl5> in a raku program? - [6/0]
2. Perl exclude words with pattern - [2/5]
3. Determine width in terminal of asian/japanese characters? - [2/1]
4. collision between objects and addition of onomatopoeias(splat) - [2/1]
5. How can I ask for the username and password only the first time I need it? - [2/1]

As a Perl developer, you need to have a solid understanding of the language’s syntax, semantics, and best practices. This blog provides a…

Continue reading on Medium »

Hai, disini saya akan menjelaskan cara mendapatkan username pada Login wordpress, yangmana cocok sekali apabila digabungkan dengan teknik…

Continue reading on Medium »

Collection of resources for anyone preparing for a Perl programming interview. These frequently asked questions and their detailed answers…

Continue reading on Medium »

Perl is a general-purpose, high-level, interactive, and interpreted programming language created by Larry Wall in 1987, originally…

Continue reading on Medium »

Perl Syntax: Master the Perl syntax. Get a basic understanding of Perl’s language features, data types, conditional expressions, loops…

Continue reading on Medium »

Hi guys, in this post we will learn how to develop Perl program, we will create a Perl file and print a statement.

Continue reading on Medium »

TL;DR

Here we are with TASK #1 from The Weekly Challenge #209. Enjoy!

You are given an array of binary bits that ends with 0.

Valid sequences in the bit string are:

[0] -decodes-to-> "a"
[1, 0] -> "b"
[1, 1] -> "c"

Write a script to print 1 if the last character is an “a” otherwise print 0.

Example 1

Input: @bits = (1, 0, 0)
Output: 1

The given array bits can be decoded as 2-bits character (10) followed
by 1-bit character (0).

Example 2

Input: @bits = (1, 1, 1, 0)
Output: 0

Possible decode can be 2-bits character (11) followed by 2-bits
character (10) i.e. the last character i…

TL;DR

It beats me that I had to use AutoHotKey for two simple keys.

I’m Italian and I use the Italian keyboard layout. No big deal.

Up to some Windowses ago, I had to build my own custom keyboard layout because, as it appears, neither the backtick nor the tilde are anywhere to be found in the keyboard.

No, I don’t consider typing the code on the numeric pad anything that is meaningful to consider. Especially on a laptop keyboard without a separate numeric pad.

As much as it already left me extremely dubious about the care that Microsoft might have for foreigners, it went even beyond this. With Wind…

TL;DR

I submitted a Pull Request to Fantasy Name Generator.

About two years and a half ago I run a little series of post starting with post Fantasy Name Generator - a grammar. The gist of it is that the Fantasy Name Generator repository contains a Perl implementation, but it can become quickly slow for moderately complex expressions, as also noted in the project itself.

I finally got to generate a Pull Request about it, proposing a different parser implementation.

I suspect that there’s not much interest in that repository since a long time, because my previous issue didn’t receive any answer, and…

TL;DR

I want to tack a new meaning to the Italian word Modulabile.

Modulabile is an Italian word that more or less means adjustable. I’d like to attach a new meaning in a Perl context, though, and in particular of a module that can be easily used in a one-liner.

We already know about Modulinos: a Perl module that doubles down as an executable, if needed.

Now, with a Modulabile I’d like to do something much in that spirit, but going a bit farther. Where modulinos are normally created as an evolution from programs to make them more easily testable, with a Modulabile I’d like to add an easy way to us…

TL;DR

I pushed the first release of Validate::CodiceFiscale.

I recently had to validate some Codice Fiscale (sort of social security number) and turned to the mighty CPAN. It contains a module that can be used to this goal, but I was not too enthusiastic about it.

My main itch is about this:

$obj = String::CodiceFiscale->parse('WLLLRY87T18Z404B');
 
unless ($obj) {                 # check for errors
   print "We have an error: " . String::CodiceFiscale->error;
}

In my very humble opinion, parse errors should be collected at the point of parsing, not with some global mechanism like a class me…

TL;DR

On with TASK #2 from The Weekly Challenge #208. Enjoy!

You are given an array of integers in sequence with one missing and one duplicate.

Write a script to find the duplicate and missing integer in the given array. Return -1 if none found.

For the sake of this task, let us assume the array contains no more than one duplicate and missing.

Example 1:

Input: @nums = (1,2,2,4)
Output: (2,3)

Duplicate is 2 and Missing is 3.

Example 2:

Input: @nums = (1,2,3,4)
Output: -1

No duplicate and missing found.

Example 3:

Input: @nums = (1,2,3,3)
Output: (3,4)

Duplicate is 3 and Missing is 4.

I ignored Mastodon for a long time, but eventually I had to stop. Now that I stopped ignoring it and started using it, I feel like I’m either going to lose interest or (ugh) get involved.

Mastodon is built on ActivityPub, a standard for pub/sub of stuff. I think it’s fair to say Mastodon is “what if we used ActivityPub to build a federated Twitter-alike”. This is okay, but so far I feel like everything is a big step backwards in the realm of “just making sense”, and there are probably some places where the Twitter metaphor of a single continuous timeline will just break down in Mastodon and pap…