Skip to main content



Associate user-defined magic to variables from Perl.

Changes for 0.64 - 2024-03-18T23:20:00Z

  • This is a maintenance release. The code contains no functional change. Satisfied users of version 0.63 can skip this update.
  • Add : Contributing guidelines are now listed in the new CONTRIBUTING file.
  • Fix : [RT #151104] : fix for t/18-opinfo.t broken under blead Some optimization in core made t/18-opinfo.t fail since perl 5.39.7, but that was reverted before 5.40 was released. This fix will make this test pass even when the optimization is reinstantiated after release freeze. Thanks David Mitchell for reporting and providing a fix.


I have inherited some perl scripts that I've generally been able to edit well enough with my knowledge from other languages, but I need to make a change that has me stumped.

The user wants the output that happens from this loop to be reversed.

for ($nn=0;$nn<=$range_max;$nn++) { my $range=sprintf("%02d",$nn); $sum_of_A += $A_EACH_RANGE{"$range"}; $sum_of_B += $B_EACH_RANGE{"$range"}; printf("\"\",\"%s\",\"%s\",\"%s\",\"%s\",\"%s\"\n", $scale[$nn], commify($A_EACH_RANGE{"$range"}), commify($B_EACH_RANGE{"$range"}), commify($sum_of_A), commify($sum_of_B)); } 

So I figured all I had to do was start the for loop at the end like this:
for ($nn=$range_max;$nn>=0;$nn--) { 

Then I realized there's some cumulative math going on in the loop, which means the sum of everything needs to be at the top now instead of the bottom.

Now I'm stuck, I've made a few attempts like pushing it into an array so I could have the option to output in forward or reverse, but all my attempts just hang with no warnings or errors.

I figure there's a more elegant solution but my Google-fu hasn't helped.

submitted by /u/wirikidor
[link] [comments]




Randal Schwartz is guest on Flosss Weekly 765, mostly for Dart, but he also talks quite a bit about Perl.

One of the interesting management of Dart is that they have people assigned to work shifts to triage and respond to issues so that requestors can get immediate feedback that at least someone saw their issue. I'll let him tell the rest of the story, but it's a good one.

submitted by /u/briandfoy
[link] [comments]





Hi,

I am using Template::Mustache in a prooted Debian in termux on Android.

It works fine, however it produces this annoying warning:

"Flock not available: 'Function not implemented': continuing in unsafe mode".

As far as I can see it ultimately comes from Path::Tiny when slurping a file.

I have tried to get rid of it with "no warnings" but that did not do the trick.

So how can I suppress this warning?

submitted by /u/ghiste
[link] [comments]



submitted by /u/niceperl
[link] [comments]


submitted by /u/oalders
[link] [comments]





Hello everyone, I'm new to Perl and I'm currently writing a script to handle a repeated call of a sequence of commands (currently using the ` operator to evaluate them) to generate a dataset. As the generation takes a lot of time, i would like to find a way to do a clean interrupt in the middle in case I need to shutdown, so I set up a sigint handler to exit the loop. However, the Sigint also interrupts the command and I would like to avoid that. Since I don't really have control over the command's code, is there a way to block the sigint from Perl to prevent it from reaching the evaluating command?

submitted by /u/P1G4ME
[link] [comments]



So, I was imagining some sort of debug thingy, where one would insert debug commands into code, like with two ##es like critic or even straight Perl as with Data::Printer. But these wouldn't render on stderr but to another output. A tmux layout on another shell would then listen to these output and display whatever comes from the executing code. Like some kind of display socket.

It would render in a log like way, but also tui like, say htop, kind. How, in gross terms, and with which libs, could this be done?

submitted by /u/fellowsnaketeaser
[link] [comments]



Pointless personal side projects - Perl Hacks submitted by /u/davorg
[link] [comments]


submitted by /u/niceperl
[link] [comments]







So hear me out...


This idea is stupid. But on Star Trek (VOY, TNG, and DS9 at least), they measured their data as "quads". ( https://memory-alpha.fandom.com/wiki/Quad ). This was never defined because it's just Sci-Fi and doesn't need a real definition. But... what if they're quad-floats aka 128bit floating point values. This would mean then that all the storage could be done as LLM or other neural network style models, and vector embeddings and such. Given what we've got today with transformer style models for doing translation, chat, etc. If you had ultrapowerful computers that could do these calculations with such gigantic precision then you'd be able to store very accurate data and transform it back and forth from vector embeddings and other fancy structures. It'd enable very powerful searches, and the kind of analysis we're trying to use LLMs for and see them use in the shows when talking to the computers. This would also explain a lot about the universal translators from ENG onward, and could even help make sense of Darmok and Jalad at Tenagra. And then Voyager even has bio-neural circuitry for doing things faster, some kind of organic analog computing doing stuff "at the edge". Using weights and embeddings to do things with them and have them react by programming them with a machine learning model at each node could easily explain how that could work too.

This idea honestly feels too stupid to be real but it could explain so much.







Perl.social server upgrades


So if anyone noticed things being a bit unstable recently it looks like the server was hitting the OOM killer sometimes and caused some odd behavior. In response to this I've added more ram to the VPS running perl.social so this shouldn't happen anymore and it'll also probably mean things run faster now too since more things will sit in the caches.







perlbot and related status


to stave off any rumors, i just had a hardware failure in my main server of some kind (likely motherboard failure) and I can't fucking fix it right now. I'm about to go out of town and won't be back for a little more than a week. there is literally nothing i can do right now, perlbot and all the related stuff will be down for that time while i get back from vacation and then spend gobs of money fixing the thing.
in reply to Ryan Voots

@Paul Evans pinging you here so you see this too, sent the above on irc too.







Perl.social updates


I've done some updates to https://perl.social/ to get it up to date with the latest Friendica version, along with getting it to properly use Redis to cache data and sessions instead of the mysql database. This has lead to some improvement in performance but it's still not at the level I'd (or others I imagine) would like. I'll be trying to do some more updates over the next week as I'm finally getting around to setting up some automation pipelines for building and deploying the site so that I can do tests of everything before pushing out updates, and to make keeping things up to date a bit easier. I'll also be looking at getting things finally setup with those changes to make it easier for anyone else to try to help out with development of things too (Mostly I'll need help with theme editing and finally giving this place it's own look).



Webservice to connect to Onfido API

Changes for 0.006 - 2023-07-02T15:36:03+00:00

  • Add hook



Open a file for shared reading and/or writing

Changes for 4.05 - 2023-07-02

  • Fix tests with perl-5.38.0.


Fast, safe DBI connection and transaction management

Changes for 0.59

  • Fix for Windows t/load.t failures





Get stock and mutual fund quotes from various exchanges

Changes for 1.57 - 2023-07-01T12:37:07-07:00

  • Correct set exchange in YahooJSON.pm - Issue #306
  • Added close, change and p_change to Tradegate, XETRA and Sinvestor Added optional parameter INST_ID to specify the institute id. Fixed bug in Tradegate, XETRA and Sinvestor for numbers equal or higher than 1.000 - PR #304
  • Added GoogleWeb Module
  • YahooWeb module added - PR #296
  • Added MarketWatch Module
  • Replaced cached file with IO::String object in IndiaMutual.pm
  • Fixed missing date in AEX.pm - Issue #298
  • Fixed Examples in POD Documentation in a few modules - PR #295
  • move use strict to be the first statement in TreasuryDirect.pm and TwelveData.pm #290
  • remove old perl version requirement statements from TreasuryDirect.pm and TwelveData.pm #290
  • removed Data:😁umper that caused another test to fail from TreasuryDirect.pm #290
  • Fixed Fool.pm and fool.t - PR #289
#298 #295 #290 #289 #296 #304 #306


A Perl module for handling webhooks sent by Stripe

Changes for 1.12

  • Modified tests to prevent failure when Test::Warn is not installed Added new author test for VERSION in module and POD


Synthesizer settings librarian

Changes for 0.0029 - 2023-07-01T11:39:38Z

  • Adjust make_setting() logic.
  • Improve the eg/mojo-ui.pl program.