A grant application from Paul Evans has just managed to be squeezed in into this round. Paul needs no introduction; he is one of the few people who speaks XS like a native, and has long been a valuable contributor to the Perl Core, as well as a lot of other interesting ancilliary projects. Also into animatronics, he has many modules dedicated to interacting with electronic interfaces. This application targets the Core development, which continues to evolve and improve.

• Name: Paul Evans / LeoNerd
• Amount requested $20,000 (derived from roughly 20-40 hours per month at USD 60/hour…

Tony writes: ``` [Hours] [Activity] 2023/08/01 Tuesday 0.20 look at new coverity hits, briefly discuss with khw 0.27 github notifications 0.87 #21306 review and briefly comment 0.05 #21084 check latest CI results, apply to blead 0.13 #21296 test blead with the fix, close this PR 0.28 coverity look at older hits, one harmless, another false positive (in the context of perl) 0.18 #21181 apply to blead, perldelta 0.42 #21212 comment

3.68

2023/08/02 Wednesday 0.08 #21306 review new changes and approve 0.37 #21304 comment 3.05 #21313 debugging

A new grant application from John Napiorkowski and Robert Grimes, this time targetting the development of a large language model trained specifically to develop Perl Code. These veteran coders suggest that using natural language to generate Perl code may potentially allow one to rapidly generate new APIs and applications, or at least give a skeleton to flesh out into a more elaborate tool.

John Napiorkowski & Robert Grimes

The budget for this project is $8,800 USD, to be made in one lump-sum payment upon completion.

This amount is calculated by multiplying the estimated…

The first ever Perl and Koha conference was held in Helsinki, Finland this year. It featured three main days of Perl and Koha presentations and two days of workshops. Workshops included a Perl training session, a masterclass for new Koha developers, Koha improvement initiatives, discussions on the future of Perl as a language, and more.

Koha is the first free open source software library automation package. In use worldwide its development is steered by a growing community of users. Koha is a framework developed in Perl with modules stored on CPAN. Koha allows end users to borrow books from wit…

Dave writes:

This is my monthly report on work done during June-August 2023 covered by my TPF perl core maintenance grant.

I fixed a performance regression bug related to my 'multiconcat' optimisation work from about 5 years ago.

Other than that, I restarted my work on my "make stack reference counted" branch, got it into a working state, and merged it into blead. See below for a detailed explanation.

SUMMARY:

• 11:02 GH #21360: Severe regex/concatenation performance regression
• 49:45 make stack reference counted
• 18:13 process p5p mailbox

TOTAL: * 79:00 (HH::MM)

Understanding the "stack not reference coun…

Tony writes:

``` [Hours] [Activity] 2023/07/03 Monday 0.92 #21181 fixes, testing, re-push and push to smoke-me 0.50 #21180 fixes, testing, push for re-CI 1.52 apply one of my PRs, look into unexpected mingw64 failure

2.94

2023/07/04 Tuesday 0.42 #21120 apply to blead, perldelta update, add to maint votes 0.65 #21132, #21095 apply to blead, perldelta #21202 comment 0.08 #21118, #21060 apply to blead 0.28 #21031 apply to blead 0.85 #21041 testing, checks to see if regen changes meant this needed updates, apply to blead 0.45 #21030 testing, apply to blead, perldelta 0.30 #21180 check CI…

Welcome back to another round of the weekly challenge, with just one solution this week. I'm setting up a lemonade stand and need to deal with change. Interestingly, I can only sell one juice per person, so I hope you're not super thirsty!

We can take $5, $10, and $20 bills, and we don't start with any change, so we need our previous customers to provide us with change for future customers. Let's find out if we can make change for a set of customers.

Here's the code:

#!/usr/bin/perl
use v5.36;
use List::Util 'any';

my %till;
my $failure;
foreach my $bill (@ARGV) {
    if(!any {$bill == $_} (5, 1…

All three of us returned. We talked about

• Getting a Perl 5.38.1 maint release out of the door
• How to progress Pod format improvements (i.e. U<>)

A plenv plugin to add additional include directories to Perl.

This plugin sets the contents of file .perl-libdirs. It hooks into plenv-exec command and every time you run perl or any other command under plenv, plenv-libdirs uses the .perl-libdirs files to set the PERL5LIB environment variable.

plenv-libdirs makes use of .perl-libdirs files in the current working directory and every directory between it and root. Environment variable PERL5LIB has a list of paths separated (like in PATH) by a colon on Unixish platforms and by a semicolon on Windows (the proper path separator being given by the com…

These are some answers to the Week 236, Task 1 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 October 1, 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 asked to sell juice each costs $5. You are given an array of bills. You can only sell ONE juice to each customer but make sure you return exact change back. You only have $5, $10 and $20 notes. You do not have any change in hand…

These are some answers to the Week 236, Task 2, 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 October 1, 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 unique integers.

Write a script to determine how many loops are in the given array.

To determine a loop: Start at an index and take the number at array[index] and then proceed to that index and continue this unti…

Each week Mohammad S. Anwar sends out The Weekly Challenge, a chance for all of us to come up with solutions to two weekly tasks. My solutions are written in Python first, and then converted to Perl. It's a great way for us all to practice some coding.

This weeks pull request and blog post comes after the deadline. It's a long weekend here, so a virtual Sunday for me :)

Challenge, My solutions

You are asked to sell juice each costs $5. You are given an array of bills. You can only sell ONE juice to each customer but make sure you return exact change bac…

Originally published at Perl Weekly 636

Hi there,

A belated, Happy Birthday to the creator of Perl. May the joy that you have spread in the past come back to you on this day. Just for record, the birthday was on 27th September.

Do you use homebrew?

brian d foy did all the hard work to get homebrew up to the latest Perl v5.38. If you are keen to know the details then please do checkout the pull request.

Olaf Alders recently shared his cool creation, is: an inspector for your environment. I am sure for all System Administrators out there, it would be very handy.

I am not sure, if you noticed this but…

Welcome back to another round of the weekly challenge, with just one solution this week. I'm setting up a lemonade stand and need to deal with change. Interestingly, I can only sell one juice per person, so I hope you're not super thirsty!

We can take $5, $10, and $20 bills, and we don't start with any change, so we need our previous customers to provide us with change for future customers. Let's find out if we can make change for a set of customers.

Here's the code:

#!/usr/bin/perl
use v5.36;
use List::Util 'any';

my %till;
my $failure;
foreach my $bill (@ARGV) {
    if(!any {$bill == $_} (5, 1…

Task 1 of Perl Weekly Challenge 236 asks us to run a juice business in a highly ethical way: either customers get their juice, or we close the shop in humiliation, unable to give them correct change.

You are asked to sell juice; each costs $5.
You are given an array of bills.
You can only sell ONE juice to each customer
but make sure you return exact change back.
You only have $5, $10 and $20 notes.
You do not have any change in hand at first.

Write a script to find out if it is possible
to sell to each customers with correct change.

Input: @bills = (5, 5, 5, 10, 20…

In a previous article, I talked about why I created Venus. In this article, I'd like to formally introduce you to Venus, what it is, and what it does.

Venus provides a standard library; a rich collection of pre-written packages, classes, and roles (i.e. traits) that come bundled with the distribution. This library provides a wide range of functionality that simplifies common programming tasks, making it a valuable resource for both new and experienced Perl developers.

At the heart of Venus' standard library is its focus on simplicity, productivity, and reusability. It includes cl…

Originally published at Perl Weekly 635

Hi there!

I just saw this question posted on DEV: Is There a Developer Shortage?. There were a few responses saying that there is an abundance of newbies and not very good engineers and there is a shortage in experienced and qualified engineers. That's the general view. How is it specifically for Perl?

On a related note, I guess we are all wondering what will be the impact of the rise of AI in software development. My guess is that it will further widen the gap between beginners and experienced programmers. It will be even harder to get an entry level job a…

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

You are asked to sell juice each costs $5. You are given an array of bills. You can only sell ONE juice to each customer but make sure you return exact change back. You only have $5, $10 and $20 notes. You do not have any change in hand at first. Write a script to find out if it is possible to sell to each customers with correct change.

use v5.38;
use boolean;
use constant COST_JUICE => 5;

sub exact_change{
    my @bank;
    my $current_customer = shift;
    { 
        pus…

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

You are given an array of words made up of alphabets only. Write a script to find the number of pairs of similar words. Two words are similar if they consist of the same characters.

use v5.38;
use boolean;

sub is_similar{
    my($s0, $s1) = @_;
    my(%h0, %h1);
    do { $h0{$_} = undef } for split //, $s0; 
    do { $h1{$_} = undef } for split //, $s1; 
    return false if keys %h0 != keys %h1;
    do { return false if !exists $h1{$_} } for keys %h0;
    return true;
}

s…

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

You are given an array of distinct integers. Write a script to find all elements that is neither minimum nor maximum. Return -1 if you can’t.

use v5.38;
sub not_min_max{
    my($minimum, $maximum);
    do{
        $minimum = $_ if !$minimum || $_ < $minimum;
        $maximum = $_ if !$maximum || $_ > $maximum;
    } for @_;
    my @r = grep { $_ ^ $minimum && $_ ^ $maximum } @_;
    return @r ^ 0 ? @r : -1;
}

MAIN:{
    say join q/, /, not_min_max 3, 2, 1, 4;
    say join…

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

You are given an array of positive integers. Write a script to separate the given array into single digits.

use v5.38;
sub separate_digits{
    return separater([], @_); 
}

sub separater{
    my $seperated = shift;
    return @{$seperated} if @_ == 0;
    my @digits = @_;
    push @{$seperated}, split //, shift @digits;
    separater($seperated, @digits);
}

MAIN:{
    say join q/,/, separate_digits 1, 34, 5, 6;
}

$ perl perl/ch-1.pl 
1,3,4,5,6

It has been…

1. App::DBBrowser - Browse SQLite/MySQL/PostgreSQL databases and their tables interactively.
   • Version: 2.342 on 2023-09-28, with 13 votes
   • Previous CPAN version: 2.341 was 8 days before
   • Author: KUERBIS
2. App::Netdisco - An open source web-based network management tool.
   • Version: 2.067002 on 2023-09-27, with 15 votes
   • Previous CPAN version: 2.066000 was 8 days before
   • Author: OLIVER
3. HTTP::Message - HTTP style message (base class)
   • Version: 6.45 on 2023-09-27, with 63 votes
   • Previous CPA…

1. App::DBBrowser - Browse SQLite/MySQL/PostgreSQL databases and their tables interactively.
   • Version: 2.341 on 2023-09-20, with 13 votes
   • Previous CPAN version: 2.340 was 25 days before
   • Author: KUERBIS
2. App::Netdisco - An open source web-based network management tool.
   • Version: 2.066000 on 2023-09-19, with 15 votes
   • Previous CPAN version: 2.065002 was 16 days before
   • Author: OLIVER
3. DBD::SQLite - Self Contained SQLite RDBMS in a DBI Driver
   • Version: 1.74 on 2023-09-19, with 101 vote…

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

Week's winner: Mojo::IOLoop::ReadWriteProcess (+3)

Build date: 2023/09/23 20:12:50 GMT

Clicked for first time:

• Data::HexDump - Hexadecial Dumper
• IO::Socket::TIPC - TIPC sockets for Perl
• jacode - Perl program for Japanese character code conversion
• System::CPU - Cross-platform CPU information / topology
• Text::ASCII::Convert - Perl module to convert non-ASCII characters to their ASCII equivalents
• XMLRPC::Fast - fast XML-RPC encoder/decoder

Increasing its reputation:

• Algorithm::MasterMind (+1=2)
• App::TimeTracker (+1=16)
• Config::General…

These are the five most rated questions at Stack Overflow last week.
Between brackets: [question score / answers count]
Build date: 2023-09-23 20:11:27 GMT

1. Return to old behavior for Perl hash randomization - [3/2]
2. Performance of deep recursion versus tail recursion - [3/0]
3. How to skip the rest in perl as next in awk? - [2/3]
4. Perl to set/reset 8th bit on string - [2/2]
5. Get "Inappropriate ioctl for device" when using Perl - [2/2]

1. CBOR::XS - Concise Binary Object Representation (CBOR, RFC7049)
   • Version: 1.87 on 2023-09-10, with 13 votes
   • Previous CPAN version: 1.86 was 1 year, 10 months, 6 days before
   • Author: MLEHMANN
2. MCE - Many-Core Engine for Perl providing parallel processing capabilities
   • Version: 1.889 on 2023-09-13, with 102 votes
   • Previous CPAN version: 1.888 was 2 months, 22 days before
   • Author: MARIOROY
3. MCE::Shared - MCE extension for sharing data supporting threads and processes
   • Version: 1.886…

These are the five most rated questions at Stack Overflow last week.
Between brackets: [question score / answers count]
Build date: 2023-09-17 06:42:34 GMT

1. Why are "1...2" and "1....2" not syntax errors? - [18/2]
2. What is the difference between $var[1] and @var[1]? - [4/2]
3. How does one consistently set rpath on a dynamic library and compile time? - [3/1]
4. Reverse dump of a compact string into variable in Perl - [2/2]
5. CGI::param called in list context and Undefined subroutine &CGI::Plus::randword called errors - [2/2]

Review Perl in A Nutshell A Desktop Quick Reference nd Edition by Ellen Siever Stephen Spainhour Nathan Patwardhan

Continue reading on Medium »

Review Advanced Perl Programming From Advanced to Expert by William quot Bo quot Rothwell

Continue reading on Medium »

Yes, all of us consciously or not are using scripting languages in our daily life. For instance, if you are able to read this article…

Continue reading on Medium »

Review Joseph Perl s Revealer Of Secrets The First Hebrew Novel Modern Hebrew Classics by Dov Taylor

Continue reading on Medium »

Review Perl in a Nutshell A Desktop Quick Reference In a Nutshell O Reilly by Nathan Patwardhan Ellen Siever Stephen Spainhour

Continue reading on Medium »

Özyinelemeli Fonksiyonla Karmaşık Veri Yapısı İçerisindeki Stringlerin Decoding’i

Continue reading on Medium »

TL;DR

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

You are given an array of unique integers.

Write a script to determine how many loops are in the given array.

To determine a loop: Start at an index and take the number at array[index] and then proceed to that index and continue this until you end up at the starting index.

Example 1

Input: @ints = (4,6,3,8,15,0,13,18,7,16,14,19,17,5,11,1,12,2,9,10)
Output: 3

To determine the 1st loop, start at index 0,
the number at that index is 4, proceed to index 4,
the number at that index is 15, proceed to index 15
and so on until you're…

TL;DR

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

You are asked to sell juice each costs $5. You are given an array of bills. You can only sell ONE juice to each customer but make sure you return exact change back. You only have $5, $10 and $20 notes. You do not have any change in hand at first.

Write a script to find out if it is possible to sell to each customers with correct change.

Example 1

Input: @bills = (5, 5, 5, 10, 20)
Output: true

From the first 3 customers, we collect three $5 bills in order.
From the fourth customer, we collect a $10 bill and give back…

TL;DR

Schwern wrote a little gem.

Some time ago I wanted to import a few CSV files in one SQLite database file and I initially tried to do it with Perl. It was sloooooow.

Then I looked for alternatives and found out .import from the command-line client sqlite3. This is reasonably fast, so I used it straight away and forgot about it.

Until I came to read Schwern’s little gem, hinting to turn AutoCommit off. That hit the nail so good that one single hit sufficed.

So here’s an example:

#!/usr/bin/env perl
use v5.24;
use warnings;
use experimental 'signatures';

use DBI;
use Text::CSV_XS;

my $csv_file…

TL;DR

Playing Skull with the Decktet is pretty straightforward.

If you happen to have a deck of the Decktet, you can easily play Skull too:

• use the “Aces” as skulls
• use the “Kings” as point counters
• use any triple of numbered cards as roses (e.g. first player takes all twos, second player all threes, and so on).

That’s it! It even supports up to 6 players like the original game.

It’s also possible to use a regular deck of cards, although it can be challenging to go beyond 4 players (still possible but a little “abstract”).

Cheers!

TL;DR

I discovered about X-Unsent.

I like automating repetitive tasks with small command-line programs because it’s fun and spares me a lot of errors, mostly in the form of things I forget. So it’s no wonder that after the thirdAHEMthirtiest email with the same shape, I thought about automating the generation of those emails too.

For reasons that I’m not willing to confeAHEMdisclose, I’m not sending those email straight away but through the Outlook client. Only fact is, when I generate an email in a valid, standards-compliant way using Perl (via module MIME::Entity, in particular), opening it wit…

Go read On Craft.

I found a note to myself that I should post about my per-host colors. I don’t know whether it’s of general interest to whoever reads this thing, but I guess I thought that once, so here we go.

I work on a bunch of different hosts, from my laptop to my Raspberry Pis to work systems, and others. At work, hosts have different color prompts by datacenter, and I thought this was a good way to remind myself where I was running my commands.

First, I made a little shell program called .sh/host-color:

HOSTNAME=`hostname -s`
if [ -z "$HOSTNAME" ]; then
  RJBS_HOST_COLOR=247 # no hostname! dim unto death
el…

When I bought my Nanoleaf panels, which I wrote about in my previous two posts, I didn’t realize that they’re not just programmable lights. They’re also touch sensors. Or so they claim! The truth is, I haven’t been able to use the touch interface reliably. This post will recount my efforts.

I should say up front: I haven’t really tried to use the default touch programming. That is: I haven’t gone into the Nanoleaf iOS app to set events onto touch events. I know that isn’t what I want to do long term, and I didn’t have any good ideas about how to use it for diagnostic purposes. I do know that th…

For my birthday, some family sent me a $200 gift card for Amazon. I wasn’t sure what I’d like. I have too many books queued up already, and just sort of enough stuff. I knew there’d be some toy or luxury that would be a good pick, but nothing sprang to mind. I mentioned this conundrum to Rob N, who said “Why not Nanoleaf?”

I didn’t recognize the name, but once I looked it up, I did. Nanoleaf makes a bunch of “smart” lighting stuff that may have seen, too. The most notable products are sticks or basic geometric shapes that snap together and light up independently. I said, “Colored lighting with…

In my last post about Nanoleaf, I ended by saying that I wrote a program to light up each panel a different color, to help me pick out which panel had which panel id. I also said that I didn’t make that program using the custom animation API. It’s true! I used the streaming interface. I actually got that going before the custom animations. It felt like what I’d want: a way to send a never-ending stream of instructions doing something like tracking log events or keystrokes or I don’t know what.

To get started, you need the same thing: a way to make HTTP requests to the controller. The request to…

Right now it looks like we'll make it to Dec 8, if all of the articles materialize. I won't consider it a failure if we produce < 24, but it's nice to have a full calendar, as we did last year, when we had 27. More info at https://cfp.perladvent.org/ You can see the already accepted articles at https://github.com/perladvent/Perl-Advent/issues?q=is%3Aissue+is%3Aopen+label%3A2023

​

​

Is there a Perl based tool or a framework to submit, monitor and cache SLURM/SGE/... jobs on a cluster? I personally use nextflow, but it is a real pain to debug, also not a big fun of it's DSL. Here is the long list of the "frameworks" but none in Perl as far as I see: https://github.com/pditommaso/awesome-pipeline

It did take a while, but finally my Perl got upgraded to 5.38 during my early morning brew upgrade. Good times!