Perl

This magazine is from a federated server and may be incomplete. Browse more on the original instance.

manwar,

Start your week with yet another @Perl weekly newsletter.

https://perlweekly.com/archive/662.html

mjgardner,
@mjgardner@social.sdf.org avatar

@manwar Bad news, @Perl shut down about a month ago: https://social.sdf.org/@mjgardner/112169057544724389

Please use the hashtag. Also, I've heard that @perl works but its server intentionally obscures follower counts.

metacpan,
@metacpan@fosstodon.org avatar

How to automate staying connected to hotel wifi, by @peateasea.

@Perl

https://www.perl.com/article/hotel-hotspot-hijinks/

mjgardner,
@mjgardner@social.sdf.org avatar

@metacpan I’m sorry, but messages addressed to @Perl are no longer reposted to the 492 members of the Perl community that followed it on the . There is no longer any point in tagging posts with that address as the owner of https://chirp.social shut it down at the end of February.

You should continue to use the hashtag, though!

DrHyde,
@DrHyde@fosstodon.org avatar

@mjgardner @metacpan there's also @perl (at perl at a.gup.pe, in case your UI hides it) which is basically the same idea.

metacpan,
@metacpan@fosstodon.org avatar

Most of the MetaCPAN core devs will be attending the Perl Toolchain Summit in Lisbon next month. We plan to get a lot of work done. There is still time to come on board as a sponsor.

https://www.perl.com/article/5-reasons-to-sponsor-the-perl-toolchain-summit/

@Perl

dakkar,

PAUSE is giving me 500 when I try uploading a distribution tarball… is it just me?
@perl

dakkar,

worked now
@perl

timlegge,

@Perl, Published a timeline and write up of the recent module vulnerabilities in parsing spreadsheets.

https://blogs.perl.org/users/timothy_legge/2024/02/vulnerable-perl-spreadsheet-parsing-modules.html

barubary,

@timlegge Broken link/mangled formatting: "A detailed write up of the vulnerability and Proof of Concept (PoC) is available at https://github.com/haile01/perlspreadsheetexcelrcepoc"

mjgardner,
@mjgardner@social.sdf.org avatar

They say if you whisper the hashtag three times into a mirror, I show up in your pull requests to tell you that for loop would really be much nicer as a map

👻 @Perl

steppl,

@mjgardner

@scottcain @Perl

still sort of proves, that the difference between Basic 2 and Assembly language on a C64 is primarily speed in code execution. And in this case the music would be over too soon when using assembly 😉

tinmouth,

@mjgardner @scottcain @Perl I tell people often I still code Perl like I used to C64 BASIC (or maybe BBC BASIC) so this toot resonates!

oalders,
@oalders@fosstodon.org avatar

When is the last time you saw a new "What's New on CPAN" article on perl.com?

How about today?

https://www.perl.com

@Perl

manwar,

Please checkout the latest edition of weekly newsletter. @Perl
https://perlweekly.com/archive/654.html

mjgardner,
@mjgardner@social.sdf.org avatar

@Perl The #perldoc utility included with #Perl has long provided an -X option to find modules and POD files via a separate architecture-specific pod.idx file: https://perldoc.perl.org/perldoc#-X

But I can't find any tooling that creates or maintains this file as one installs and uninstalls module distributions. Does anything use this, or is it a vestigial feature from the late 90s?

(note that this has nothing to do with the rarely-used X<> POD formatting code: https://perldoc.perl.org/perlpod#X-an-index-entry)

mjgardner,
@mjgardner@social.sdf.org avatar

@Perl As near as I can tell, GSAR added the flag and it was released with Perl v5.005, but the trail stops cold here: https://github.com/Perl/perl5/commit/89b8affaa500ec6c1699f1c161be0e130b1eb79f#diff-cc0f47e610e4a62664cc9437e9988aa840b774b63367d683ad2c5435a35fbe87R86

ChristosArgyrop,

Introduction to OpenMP for #Perl Programmers - Brett Estrade https://youtu.be/4SRR2-uGg40?si=5bfknCeKRZGepyfm @Perl

adriaan,

Multi-process solution in for the 1 billion record challenge. Runs in about 4 minutes with 8 child processes compared to 30 minutes with the baseline Perl solution (on my hardware). https://github.com/adriaandens/1brc.pl

There's still a lot of room for further optimalizations.

There's an ongoing discussion on the Perl Reddit about the 1BRC. One cool trick someone did was 'use integer;' and work without the default float behaviour of the numbers to get a 10% speed boost. https://www.reddit.com/r/perl/comments/18ygpsi/1_billion_row_challenge_in_perl/

@Perl

mjgardner, (edited )
@mjgardner@social.sdf.org avatar

@adriaan @Perl Per @karjala on Reddit (https://www.reddit.com/r/perl/comments/18ygpsi/comment/kgf8f49/?context=3), have you tried modules like https://metacpan.org/pod/Parallel::ForkManager or (my weapon of choice) https://metacpan.org/dist/MCE/view/lib/MCE.pod ?

adriaan,

@mjgardner @Perl Parallel::ForkManager was easy to implement from what I've made. I'll have to look into MCE to know which interface is best for the 1BRC problem and which also gives the needed control (mostly being able to control memory usage since I might not be able to slurp the 13GB if there's hidden overhead (my pc has 16GB total))

kraih,

Happy 13th birthday Mojolicious! 🎈🎂🎁🎉🎈 https://github.com/mojolicious/mojo/blob/v9.35/Changes#L4389 @Perl

rocket,

@kraih @Perl thanks for creating this useful and fun software!

ilv, Spanish

hello @Perl community, it's been almost ten years since I last created and uploaded a module to CPAN. What are some good resources to follow current guidelines or best practices for creating new modules? So far I've been looking into Minilla for setting up the module skeleton and it looks good. Thoughts?

mjgardner,
@mjgardner@social.sdf.org avatar

@ilv @Perl As long as your module distribution fits all of 's assumptions (https://metacpan.org/pod/Minilla#CONVENTION). it can save you a lot of time managing things like metadata, build scripts, git operations, and releasing to via .

If not, perldoc perlnewmod recommends the module-starter utility from CPAN:

It's even simpler than Minilla but only creates the initial directory structure with stub files

ChristosArgyrop,

Slowly but surely ppl are waking up to the @Perl truths:

https://news.ycombinator.com/item?id=36569727

(Though I have mixed feelings about the backticks)

mjgardner,
@mjgardner@social.sdf.org avatar

@ChristosArgyrop @Perl https://perldoc.perl.org/IPC::Cmd has shipped with to ease your feelings since v5.10 in 2007

dboehmer,

@Perl I have a hard time getting this database query to work with DBIx::Class. I gave my best to describe it in a useful way. I’d very much appreciate any hints or questions:

https://stackoverflow.com/questions/77558505/use-function-value-from-subquery-in-where-clause-fetch-it-with-results-using-d

dboehmer,

@barubary You’re very helpful identifying my mistakes in documenting this! 👍

I unknowingly had DBIC_TRACE=1 set in my session. 😅 So the test script worked for me but was missing this env var. I extended the question once again.

barubary,

@dboehmer By ignoring your attempts and trying to recreate the sample SQL using the DBIC interface, I seem to have recreated your code, mostly:

my $inner_rs = $rs->search_rs(<br></br>    {},<br></br>    {<br></br>        '+select' => [<br></br>            {<br></br>                '' => $schema->resultset('Track')->search_rs(<br></br>                    { 'track.cd' => { -ident => 'me.cdid' } },<br></br>                    {<br></br>                        alias => 'track',<br></br>                        select => 'id',<br></br>                    }<br></br>                )->count_rs->as_query,<br></br>                -as => 'track_count',<br></br>            },<br></br>        ],<br></br>    }<br></br>)->as_subselect_rs;<br></br><br></br>my @x = $inner_rs->search_rs(<br></br>    {<br></br>        track_count => { '<' => 3 },<br></br>    },<br></br>    {<br></br>        prefetch => 'artist',<br></br>        '+columns' => [<br></br>            { track_count => 'track_count' }<br></br>        ],<br></br>    }<br></br>)->all;<br></br>

Which generates:

SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track, me.track_count, artist.artistid, artist.name, artist.rank, artist.charfield <br></br>  FROM ( <br></br>    SELECT me.cdid, me.artist, me.title, me.year, me.genreid, me.single_track, ( <br></br>        SELECT COUNT( * ) <br></br>          FROM track track <br></br>        WHERE track.cd = me.cdid<br></br>       ) AS track_count <br></br>      FROM cd me<br></br>   ) me <br></br>  JOIN artist artist <br></br>    ON artist.artistid = me.artist <br></br>WHERE track_count < '3'<br></br>5 results found<br></br>

Is there an easy way to reproduce the PostgreSQL error?

  • All
  • Subscribed
  • Moderated
  • Favorites
  • •
  • Perl@chirp.social
  • DreamBathrooms
  • mdbf
  • ethstaker
  • magazineikmin
  • GTA5RPClips
  • rosin
  • thenastyranch
  • Youngstown
  • InstantRegret
  • slotface
  • osvaldo12
  • kavyap
  • khanakhh
  • Durango
  • megavids
  • everett
  • cisconetworking
  • normalnudes
  • tester
  • ngwrru68w68
  • cubers
  • modclub
  • tacticalgear
  • provamag3
  • Leos
  • anitta
  • JUstTest
  • lostlight
  • All magazines
    •