Tony writes: ``` [Hours] [Activity] 2022/12/01 Thursday 0.83 github notifications 0.08 #20564 review and approve 1.87 ceil/floor overloading - debugging, solve one issue, try to do the next

5.43

2022/12/05 Monday 0.40 github notifications 0.22 #20566 review and approve 0.35 #20581 review and comment 0.55 #20575 review and comments 0.63 #20580 testing, review code and comment 0.28 #20583 review, debugging, and comment

3.85

2022/12/06 Tuesday 0.38 #20584 comment 0.83 rfc 015

2.79

2022/12/07 Wednesday 0.42…

The Perl/Raku communities rely heavily on volunteer work. It is sad to know that hate speech has been directed at members of the Perl/Raku community recently.

Of course there are differences in our backgrounds, beliefs and experiences and we must build on these, be curious and learn about each other.

Aggressive, hostile and violent behaviour is never an appropriate way to relate to others and it is disappointing that such behaviour is witnessed from people within our circles.

Please use this moment to reflect on how you interact with others, and consider if you could be more welcoming, warm and i…

The Grants Committee is accepting grant proposals all the time. We evaluate them every two months and another round is starting.

If you have an idea for doing some work that will benefit the Perl or Raku communities, please consider submitting a grant application. The application deadline for this round is 23:59 January 29th, 2023, UTC. We will publish the received applications, get community feedback through February 4th, and we will conclude the process shortly thereafter.

We now accept grant requests for core Perl and Raku development. There are some eligibility requirements that must be met…

After several years of service to The Perl/Raku Foundation, Dave Rolsky is retiring. The board thanks Dave for all of his work, he will be missed.

One of the goals TPRF would like to achieve, now that conferences are becoming increasingly available in person, is to spread awareness of current Perl and Raku projects.

In support of this goal, TPRF will be issuing a limited number of mini grants of up to $300 to participants interested in holding Perl/Raku based talks in FOSDEM 2023 dev rooms. TPRF has made an intentional decision to not apply for a dev room, but to encourage talks to be given in other, non-language specific dev rooms instead. This will allow Perl and Raku to be shared with new audiences.

In addition, TPRF will have a 2 day s…

Dave writes:

This is my monthly report on work done during December covered by my TPF perl core maintenance grant.

This month I continued work on making the stack reference counted.

A couple of weeks ago I reached a major milestone: the point where I actually enabled reference-counting of SVs on the stack for the first time. Since then I have reached the point where the perl build actually completes (including the make runs in each dist/ and cpan/ subdir) and 'make minitest' only has a couple of failures. A full 'make test' seems to have a lot of passing test files but currently hangs in some of…

Just like domain name registrations, SSL certificates need to be renewed regularly, otherwise they expire. This means you now have one more thing to monitor. Let's look at ways to do this in Perl, curl and Go. We'll also get a quick introduction to a hosted Mojolicious app that I wrote to make this even easier.

Read the full post.

Welcome to 2023 (just a little bit late)! We've put together a number of long overdue updates for Dancer, Dancer2, and other parts of the ecosystem.

Dancer2 version 0.400001:

 [ BUG FIXES ]
* PR #1247: Fix edge case in plugin compat (Sawyer X)
* GH #1621: Fix recursion error in TT after longjump (Andy Beverley, Russell @veryrusty Jenkins)
* PR #1667: Remove failing module from GitHub Actions config (Jason A. Crome)

[ ENHANCEMENTS ]
* GH #769, PR #829, #1662: Rename show_errors as show_stacktrace (Nuno Ramos Carvalho, Sawyer X)
* GH #1594: Use Unicode::UTF8 if available (Sawyer X)

[ DOCUMENTATI…

Just Paul and Philippe this week.

• Smartmatch deprecation continues - just one more distribution left now (Test-Simple).
• RFC process needs a new name and ID allocation scheme. We will continue discussing ideas and post when we have something presentable.
• overload::v2 feels like the best solution to the problem of how to add substr overloading.
• join overloading might want a join_uses_concat flag to avoid surprising existing modules.

We are happy to announce that united-domains
supports the German Perl/Raku-Workshop!

united-domains ist ein erfahrenes Team von mehr als 80 Domain-Spezialisten, die sich zuverlässig und mit Leidenschaft um die Domains unserer Kunden kümmern. Wir inspirieren Brands und Professionals, ihre digitale Identität zu entwicklen.

Mit einem umfassenden Domain-Angebot, intuitiven Lösungen und unserer Domain-Expertise helfen wir unseren Kunden, erfolgreich zu sein. Als einer der führenden Domain-Registrare in Europa, haben wir bereits über 1,6 Millionen registrierte Domains und mehr als 300.000 zufriedene K…

I have very gradually been adopting Test2::V0 as a testing tool. I had a test file that performed a group of tests inside a for loop, and discovered there were circumstances where I wanted to skip an iteration. Well, the skip() provided by Test2::Tools::Basic operates by executing last SKIP;. In the case of a labeled for this skips not only the current iteration but all subsequent iterations.

I wondered if there was a Test2::Tools plugin that did a next SKIP;, so I generated an annotated index of Test2 tools. This index reports all of them in ASCIIbetical order, with the distribution they are f…

These are some answers to the Week 202 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 February 5, 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 integers.

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

Example 1

Input: @array = (1,5,3,6)
Output: 1

Example 2

Input: @array = (2,6,3,5)
Output: 0

Example 3

Input…

ChatGPT exposes an API, but there’s no CPAN module for taking advantage of that. Let’s put that right (with help from ChatGPT)…

Write a Perl CPAN module for connecting to a ChatGPT server

To create a Perl CPAN module for connecting to a ChatGPT server, you will need to have Perl and the necessary dependencies installed on your system.

To begin, create a new directory for your module and create a file called “ChatGPT.pm” with the following content:

package ChatGPT;

use strict;
use warnings;

use Net::WebSocket::Client;
use Net::WebSocket::Server;
use HTTP::Async;

sub new {
  my ($class, %params…

Hi there,

I got the sad news about Ben Davies through the git notifications, being member Raku github repositories. Although I didn't know him personally but I felt a personal loss. He was so young and actively involved in development of Raku language. I found this page sharing the details, if you are interested.

It reminded of loss another very dear friend of mine, Jeff Goff (aka DrForr). I had the honour to meet him at various Perl/Raku conferences. Life is so unpredictable, it is unbelievable. I have reached a point in my life where every little things create havoc as far as health is concern…

Welcome to the Perl Weekly!

I am ambivalent about writing this and including in the Perl Weekly, but I feel if I don't speak up then how can expect others to do so.

For another perspective on the subject I'd recommend you read this thread by Mohammed Hashim on trust and perspective.

A couple of weeks ago I received an email full of good old antisemitism. It was clearly indicating that it is from one of the readers of the Perl Weekly. It was a tirade of expressions common to white Christian antisemites. Usually also referred to as white supremacists. It is clear that the sender knew what he was do…

Hi there,

Last week, Team PWC celebrated the 200th week and today we are presenting 600th edition. Kudos to all the editors, current and past for the care and affections. It feels nice to be associated with such a popular events.

I would also like to thank all the die hard fans of the Perl Weekly Newsletter for their support and constructive suggestions from time to time. It really helps me to focus on things important to the readers. I know it is not easy to do this every week but the love and affection we get works like a magic.

I remember there was time when blogging was the only source of inf…

Hi there!

Recently I started to offer a course called Open Source Development Course. The idea is to let participants learn and practice(!) git/github/pull-request/testing/code-coverage/linters/ci/etc. That way they improve their development practices and can also contribute to Open Source projects.

It is a course designed to run for 12-13 weeks with about 5 hours per week workload. It can be either part of a university program or people can take it while they have a full-time job. Every week there is a 1-2 hours long presentation and the rest is hands-on work with my async help.

I'd like to offe…

Hi there,

Happy New Year everyone !!!

Year 2022 saw the biggest release of Perl v5.36. It was released with big bang. There were lots of positive vibes around it. I had never seen such noise before. If you missed the fun then you can checkout my GitHub repository.

I am not a big fan of TIOBE but came across TIOBE Index for January 2023 talking about Perl going up slightly in the index recently. It is refreshing to see the progress. Who knows one day, it would reach the TOP 5 brackets.

Looking back the participation in The Weekly Challenge, it looks promising. Nearly 10K contributions in Perl by th…

Hi there!

I hope you had a successful 2022 and you are ready for the next year. I certainly have lots of plans. As always. They are also changing a lot all the time. One of them is a new course I am working on called OSDC - Open Source Development Course. It is a hands-on course that covers git/GitHub/GitLab/Testing/CI using real-world open source projects. It is also not only a plan, I am starting the first session next Sunday. It will be given in Hebrew.

For the course I started to collect Open Source projects developed by corporations. There are a few where the product is open source such as…

After joining OSDC, starting submitting pull requests and creating github.io pages, I learned that my username in github.com is actually greengorcer, not greengrocer.

After checking github.com, I found that greengrocer was available I When I joined github.com in 2014. So it was totally my spelling error at that time.

Someone took greengrocer in 2016, so I need to figure out what to do with my username now. greengorcer is kinda stupid.

Then using ssh-keygen to generate a ssh public key for SSH github push.

Originally published at Perl Weekly 602

Hi there,

I got the sad news about Ben Davies through the git notifications, being member Raku github repositories. Although I didn't know him personally but I felt a personal loss. He was so young and actively involved in development of Raku language. I found this page sharing the details, if you are interested.

It reminded of loss another very dear friend of mine, Jeff Goff (aka DrForr). I had the honour to meet him at various Perl/Raku conferences. Life is so unpredictable, it is unbelievable. I have reached a point in my life where every little things c…

Challenge, My solutions

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.

This task is pretty straight forward, so doesn't need much explanation. I have a variable odds. As I iterate through the array, I add one to the odds variable if it is an odd number. If it is even, I reset odds value as zero.

If at any time the odds value is 3, I print 1 and exit. Otherwise I will print 0 if we have exited the loop without finding three consecutive odd values.

$ ./ch-1.py 1 5 3…

First release of SPVM::File::Spec, a port of Perl's File::Spec to SPVM. The repository is SPVM::File::Spec.

File::Spec is a Perl module to handle file paths in an OS-independent manner, allowing Linux, Mac, and Windows to have similar descriptions of file paths.

One of the difficulties of implementing File::Spec is that it uses many regular expressions to handle file paths.

Therefore, in porting File::Spec to SPVM, it was necessary to be able to use regular expressions.

I ported Google RE2, a regular expression l…

I have been interested in the US government opensource activities since around 2016, so all my OSDC homework entries of the open source projects are in the governments section.

The most interesting project would be ghidra.

Back in 2018 I was looking for a reverse compiling tool to look at the binary of Dominions 5 (it is a play by email 4X game. lots of fun!). IDA pro is really nice but I do not have the budget to purchase a license.

NSA opensourced ghidra right at that moment. It works like a charm on x64 ELF.

NSA's rationale is simple. They do not have the budget to keep the…

Challenge 202

My answers will also be on github.

Given a list of integers, write a script to print 1 if there are THREE consecutive odds in the given array, otherwise print 0.

In a list of altitudes, return the first widest valley.

On this I return 0 if there aren't three neighboring odds, otherwise pass through to check that they are consecutive.

use v5.30.0;
my @array1 = (1,5,3,6);
my @array2 = (2,6,3,5);
my @array3 = (1,2,3,4);
my @array4 = (2,3,5,7);
my @test = (\@array1, \@array2,\@array3,\@array4);    
sub are_three_odds {
    my @list = @_;
    my @ind…

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…

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

You are given a list of integers, @list. Write a script to find the total count of Good airs.

use v5.36;
sub good_pairs{
    my(@numbers) = @_;
    my @pairs;  
    do{ 
        my $i = $_;
        do{
            my $j = $_;
            push @pairs, [$i, $j] if $numbers[$i] == $numbers[$j] && $i < $j;  
        } for 0 .. @numbers - 1;
    } for 0 .. @numbers - 1;
    return 0 + @pairs;  
}

MAIN:{
    say good_pairs 1, 2, 3, 1, 1, 3;
    say good_pairs 1, 2, 3;
    say go…

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

You are given a list of integers, @list. Write a script to find the total pairs in the sorted list where 2 consecutive elements has the max gap. If the list contains less then 2 elements then return 0.

use v5.36;
sub largest_gap{
    my(@numbers) = @_;
    my $gap = -1;
    map{ $gap = $numbers[$_] - $numbers[$_ - 1] if $numbers[$_] - $numbers[$_ - 1] > $gap } 1 .. @numbers - 1;  
    return $gap;
}

sub gap_pairs{
    my(@numbers) = @_;
    return 0 if @numbers < 2; 
    m…

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

You are given a positive integer, $n > 0. Write a script to print the count of all special integers between 1 and $n.

use v5.36;
use boolean;  
sub is_special{
    my($x) = @_;
    my %h; 
    my @digits = split(//, $x);
    map{ $h{$_} = undef } @digits; 
    return keys %h == @digits; 
}

MAIN:{
    say q// . grep{ is_special($_) } 1 .. $ARGV[0];  
}

$ perl perl/ch-1.pl 15
14
$ perl perl/ch-1.pl 35
32

The definition of a special integer for this problem is…

1. App::DBBrowser - Browse SQLite/MySQL/PostgreSQL databases and their tables interactively.
   • Version: 2.314 on 2023-02-03
   • Votes: 12
   • Previous version: 2.313 was 21 days before
2. autodie - Replace functions with ones that succeed or die with lexical scope
   • Version: 2.36 on 2023-01-30
   • Votes: 58
   • Previous version: 2.35 was 3 days before
3. DateTime::Format::Natural - Parse informal natural language date/time strings
   • Version: 1.16 on 2023-02-04
   • Votes: 18
   • Previous version: 1.15 was 23 days b…

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

Week's winner: Dist::Zilla::Plugin::GitHub (+2)

Build date: 2023/02/04 22:41:43 GMT

Clicked for first time:

• Crypt::PK::ECC::Schnorr - Public key cryptography based on EC with Schnorr signatures
• Data::Validate::OpenAPI - Validate and untaint input parameters via OpenAPI schema
• Device::Chip::CC1101 - chip driver for a CC1101
• Device::Modbus::TCP - Distribution for Modbus TCP communications
• Dist::Zilla::Role::ModuleMetadata - A role for plugins that use Module::Metadata
• Domain::Details - Domain class with DNS/SSL/WHOIS fields
• Future…

These are the five most rated questions at Stack Overflow last week.
Between brackets: [question score / answers count]
Build date: 2023-02-04 22:39:41 GMT

1. How to check if an array has an element that is not integer? - [3/3]
2. Remove upfront zeros from floating point lower than 1 in Perl - [3/2]
3. Perl: How to copy directory without any files? - [3/1]
4. Perl 5.18 | Archive::ZIP 1.68 | Recursive files not included in ZIP - [3/0]
5. Using gawk or sed to inplace change line after or before every other match - [2/5]

1. App::cpanminus::reporter - send cpanm output to CPAN Testers
   • Version: 0.18 on 2023-01-23
   • Votes: 36
   • Previous version: 0.17 was 6 years, 8 months, 29 days before
2. autodie - Replace functions with ones that succeed or die with lexical scope
   • Version: 2.35 on 2023-01-27
   • Votes: 58
   • Previous version: 2.34 was 2 years, 5 days before
3. Exporter - Implements default import method for modules
   • Version: 5.77 on 2023-01-23
   • Votes: 27
   • Previous version: 5.74 was 3 years, 3 days before
4. Firefox::Mar…

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

This week there isn't any remarkable distribution

Build date: 2023/01/28 20:50:55 GMT

Clicked for first time:

• Alien::Role::Dino - Experimental support for dynamic share Alien install
• AnyEvent::RipeRedis::Cluster - Non-blocking Redis Cluster client
• AnyEvent::Stomper - Flexible non-blocking STOMP client
• Chemistry::Harmonia - Decision of simple and difficult chemical puzzles.
• Lingua::RU::Numeral - Perl extension for generate Russian wording of numerals from the natural numbers and 0 (zero).
• Math::Assistant - functions for various ex…

These are the five most rated questions at Stack Overflow last week.
Between brackets: [question score / answers count]
Build date: 2023-01-28 20:49:22 GMT

1. Open a scalar as a file in Perl - [4/1]
2. Perl JSON arrays within a parent key - [3/2]
3. Get the first item of the list returned by function - [2/3]
4. How to use File-Rename aka Perl's rename in Windows? - [2/1]
5. Cast array into list - [2/1]