blogs.perl.org

PWC#068

Inexperienced in object-oriented, (after a few hours violent trial and error, ) I finally gave up the task #2 reordering a singly linked list.

For the task #1 zero matrix (task statement here), I handled it innocently. By the way, I read the review by Mr Crain and deeply recommend others read Myoungjin Jeon's solution.

PWC#069

Task #1 - Strobogrammatic Number

I use the combinatorics library on CPAN. However, a poorly designed code performs poorly in the face of combinatorial explosion, in comparison with other PWC members' scripts. If I had considered symmetry, as the Perl Reviewer Mr Crain stated, the code would be more effective.

There is a mistake on my code: I treat all single digits as strobogrammatic. Forgetting what happened around during that week...

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

Spoiler Alert: This weekly challenge deadline is due in a couple of days (June 20, 2021). This blog post offers some solutions to this challenge, please don’t read on if you intend to complete the challenge on your own.

Task 1: Missing Row

You are given text file with rows numbered 1-15 in random order but there is a catch one row in missing in the file.

Mom is a shortcut for creating Moo classes (and roles). It allows you to define a Moo class with the brevity of Class::Tiny. (In fact, Mom is even briefer.)

A simple example:

I read today's Perl Weekly and it suggested supporting module authors on patreon. Figured I would give it a try.

I maintain several perl modules, if you depend on any (Such As Test-Simple, Test2, or yath) here is a way to show your support :-)

https://www.patreon.com/exodist

https://perlweeklychallenge.org/blog/weekly-challenge-072

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

Spoiler Alert: This weekly challenge deadline is due in a couple of days (June 13, 2021). This blog post offers some solutions to this challenge, please don’t read on if you intend to complete the challenge on your own.

Task 1: Number Sequence

• You are given a number $N >= 10.*

• Write a script to split the given number such that the difference between two consecutive numbers is always 1 and it shouldn’t have leading 0.*

Print the given number if it impossible to split the number.

Example:

LWN has covered an email from Rjb's to perl5-porters

Read on: https://lwn.net/Articles/828384/

Yesterday I posted about this in the Perl Weekly newsletter and both Mohammad and myself got 10 new supporters. This is awesome.

There are not many ways to express the fact that you really value the work of someone.
You can send them postcards or thank-you notes, but when was the last time you remembered to do that?

Right, I also keep forgetting to thank the people who create all the free and awesome stuff I use.

Giving money as a way to express your thanks is frowned upon by many people, but trust me, the people who open an account on Patreon to make it easy to donate them money will appreciate it.

In any case it is way better than not saying anything.

Patreon, GitHub sponsor and Perl

So pick one or all three of us and depending on your financial possibilities sign up to give a monthly donation.

Update

New names were added and support via GitHub is also mentioned.

I've posted the list of Perl-related creators who have a Patreon or GitHub sponsors account on the Perl Maven site where updating the list is just a Pull-request away.

https://perlweeklychallenge.org/blog/weekly-challenge-071

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

Spoiler Alert: This weekly challenge deadline is due in a couple of days (June 6, 2021). This blog post offers some solutions to this challenge, please don’t read on if you intend to complete the challenge on your own.

Task 1: String Chain

You are given an array of strings.

Write a script to find out if the given strings can be chained to form a circle. Print 1 if found otherwise 0.

A string $S can be put before another string $T in circle if the last character of $S is same as first character of $T.

Examples:

Input: @S = ("abc", "dea", "cd")
Output: 1 as we can form circle e.g. "abc", "cd", "dea".

Input: @S = ("ade", "cbd", "fgh")
Output: 0 as we can't form circle.

Before reading this, you should watch this video where Bryan Cantrill explains a value-conflict between Joyent and Node.js, I believe we have a similar problem.

In it he defines a list of project values:

All these values are important - but they are in tension. In the end one has to choose between them.

Perl's has traditionally prioritized certain values over these others, and in my experience these are:

• Expressiveness
• Extensibility
• Stability

I've been posting some Perl related polls in Perl Programmers over the last few weeks. Despite the obvious weaknesses in the sampling method, they've provided some good insights and great talking points.

Here's some results as of this afternoon. People can still respond to these polls.

Regarding area's where Perl could help out:

This surprised me, I didn't expect Performance Monitoring to come out on top.

Regarding what Perl is being run on:

This didn't surprise me at all. The weakness in this poll is that we didn't find out if people are using their own App Perl or the System Perl. But we know that CentOS+RHEL & Debian+Ubuntu are what the majority are running, with Windows and MacOS being important too.

Regarding the question of Perl's logo:

Folks seem to be happy with the Raptor and feel a bit of a facelift is all that's needed. My favorite suggestion (in the comments) was for a new Perl7 logo was a bike shed.

I will use more polls to dive deeper in the above in the near future. Please come Join Us

DBD::SQLite 1.65_03 (with SQLite 3.32.3) is a release candidate for the next stable DBD::SQLite. There are no big changes, maybe except for the ncrease of the default upper bound on the number of parameters from 999 to 32766 (since SQLite 3.32).

I'll wait for about a month as always, and release 1.66 at the end of August if there's no blocker nor request to wait for more. Thank you for your patience.

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

Spoiler Alert: This weekly challenge deadline is due in a few days (May 30, 2021). This blog post offers some solutions to this challenge, please don’t read on if you intend to complete the challenge on your own.

Task 1: Next Palindrome Number

You are given a positive integer $N.

Write a script to find out the next Palindrome Number higher than the given integer $N.

Example:

Input: $N = 1234
Output: 1331

Input: $N = 999
Output: 1001

Next Palindrome Number in Raku

https://perlweeklychallenge.org/blog/weekly-challenge-070

In the Perl Programmers Facebook group we have kicked off a Perl Mentoring program. Already more than a dozen experienced Perl people have offered their services to anyone looking to learn more about Perl. It's very convenient that mechanics of volunteering and looking for a mentor are handled by Facebook's mentoring functions. Here's a few thoughts on how to build on that.

For Mentees:

Before reaching out to mentors first pick a specific area of Perl you would like help with. Think up a few ideas for projects that you can complete in 4-6 weeks. With those in mind, review the available mentors looking for skills & experiences that might match your project ideas.

A good project might be: adding a test suite to your module, writing a nagios plugin, a perl weekly challenge, something from pull request club, a bug/feature for your CPAN module, or learning how to create modules from scratch and using Moo.

Hello from the Swiss Alps, where we have been working from home and avoiding all but essential trips out like so many others over the last few months.

The current situation has led to the cancellation of several community events, including this year's main Raku and Perl conferences in North American and Europe. We have been following the situation closely in Switzerland, and have also decided not to go ahead with our event this year.

We will be following the news, recommendations, and restrictions from The Federal Council and may have a smaller meetup sometime in late Summer/early Autumn. This will be an informal event with no expectation of presentations/workshops/etc. Details will be announced later, and probably at relatively short notice.

Hoping you are safe and well, and that we will meet again in Switzerland next year.

The Swiss Raku and Perl Miniconf organisers.

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

Task 1: Represent Integer

You are given a positive integer $N and a digit $D.

Write a script to check if $N can be represented as a sum of positive integers having $D at least once. If check passes print 1 otherwise 0.

Example:

Input: $N = 25, $D = 7
Output: 0 as there are 2 numbers between 1 and 25 having the digit 7 i.e. 7 and 17. If we add up both we don't get 25.

Input: $N = 24, $D = 7
Output: 1

I’m very late and have very little time this week, so I’ll implement this task only in Raku.

Represent Integer in Raku

d Slhfh ri Qrwh rq Xqlfrgh Hqfrglqj iru FMN fkdudfwhuv

Uhdoob ryhuzkhophg eb zrun lvvxhv dqg wkh orfdo srolwlfv dqg sdqghplfv wkhvh gdbv. Doo duh rxw ri pb frqwuro. Vrphwlphv L kdyh ehhq uhdoob ghsuhvvhg exw kdyh qr rqh wr wdon wr gluhfwob, khqfh L flskhu zkdw L zdqw wr vdb; shrsoh zdqw wr xqghuvwdqg ph fdq kdyh d zdb wr uhdg lw, dqg shrsoh zkr duh douhdgb wluhg ru qhjdwlylvwlf fdq dyrlg pb zrugv. L kdyh zulwwhq d vlpsoh Fdhvdu hqfrghu lq Shuo iru Hqjolvk doskdehwv. Krzhyhu, zkdw L prvw zdqw wr zulwh lv d shuvrqdo Fdhvdu hqfrghu iru wkh whq wkrxvdqgv Fklqhvh fkdudfwhuv lq Xqlfrgh. L kdyh froohfwhg vrph olqnv rq wkh Xqlfrgh zhe hqfrglqj iru FMN(Fklqhvh, Mdsdqhvh, Nruhdq) fkdudfwhuv, iru lqvwdqfh:

• http://www.ruanyifeng.com/blog/2007/10/ascii_unicode_and_utf-8.html (zh)
  

Zkdw L zdqw wr frgh wr shuirup lv vrphzkdw vlplodu wr zkdw wkhvh sdjhv gr:

• http://tools.jb51.net/transcoding/unicode_chinese (zh)
  
• https://www.ifreesite.com/unicode-ascii-ansi.htm (zh)
  

Inspired by the blog by Gabor Szabo, I am writing this blog to thank all the supporters on Patreon. I would also like to thank Gabor Szabo for the support and guidance. I wouldn't have come this far without your support.

I still can't believe there are people out there willing to support me. Although I knew about Patreon but never had the courage to go public.

I remember my first contribution Test::Excel to CPAN was uploaded on 13th Aug 2010. The second came within 2 months, on 25th Oct 2010, Map::Tube. These 2 are still very close to me out of 85 contributions to CPAN till date. As of today, there 39 maps created using the library by fellow contributors. You can find them on Meta CPAN under the namespace Map::Tube::*.

Looking at the CPAN author page, I find some very useful distributions that I adopted in the past e.g. PDF::Create, XML::XPath and SVG.