Adapter for USA holidays

Changes for 0.0101 - 2024-03-20T20:35:19Z

• Remove the accidental circular dependency from the dist.ini file.

Implementation of various techniques used in data compression.

Changes for 0.01 - 2024-03-21

• Initial release.

Use Data::Dump::SkipObjects to stringify some objects

Changes for 0.001 - 2020-06-19

• First release.

SPVM Language

Changes for 0.989090 - 2023-03-20

• Exception Message Improvement
• Compilation Error Message Improvement
• New Features with Incompatible Changes

IRS Form 1040 worksheets calculations

Changes for 0.06 - 2024-03-20T05:12:32Z

• Comment out all instances of Data::Dump, as they were only used during development

Merges two users into the same effective user

Changes for 1.09 - 2024-03-20

• Do not try to load user from an empty email address
• Fix uninitialized warnings cased by undefined FIELD
• Only limit roles by id for valid users

IRS Form 1040 worksheets calculations

Changes for 0.05 - 2024-02-23T09:49:50Z

• In 0.04, pp_ssbw() wasn't doing any pretty-printing. Corrected.
• Like preceding versions, this version will probably not make it to CPAN, so I'm tagging it and pushing to GH

high-performance, selector-based, content-aware HTML template engine

Changes for 0.0901 - 2024-03-20

• fix a few typos in the documentation
• no functional changes

Perl Weekly Challenge 261: Element Digit Sum

https://blogs.perl.org/users/laurent_r/2024/03/perl-weekly-challenge-260-element-digit-sum.html

Mapping Perl releases on CPAN to the location of the tarballs

Changes for 5.20240321

• Change: df997bd0ee0776a18f93e9d599a6467d13cbc6d0 Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk> Date : 2024-03-20 16:34:34 +0000

what modules shipped with versions of perl

Changes for 5.20240320

• Updated for v5.39.9

Mapping Perl releases on CPAN to the location of the tarballs

Changes for 5.20240320

• Change: f7e0bee4932f14f630ebd92ea809f1924d2771bb Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk> Date : 2024-03-20 16:29:41 +0000

Problem- I have an apache application in which I am using mod_perl module. I want to log few things in a request lifecycle. I am able to do it across multiple files by calling get_logger("nameOfLogger"); and log to the hash that I am maintaining in my appender. But strangely there is one file in which when I call get_logger("nameOfLogger"); it no more has context of previous logs that I have captured before it in other files. What could be the possible cause. does this file needs to be in startup.pl ?

I would really appreciate the help and suggestions since I am stuck on this issue since a day

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

access GCC compiler builtin functions via XS

Changes for 0.03 - 2024-03-20

• Added more builtins. Added one test file for each builtin function supported. Created benchmarks comparing clz() XS vs PP. Enhanced documentation.

SPVM Language

Changes for 0.989089 - 2023-03-19

• Incompatible Changes
• Internal Changes

https://metacpan.org/recent is showing a reupload of perl-5.38.2 by user INGENICO.

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

access GCC compiler builtin functions via XS

Changes for 0.01

• First version, released on an unsuspecting world.

Hey all!

As a recent graduate seeking a junior developer position, I received an invitation for a job interview which included a Perl coding exercise. How can i make my code better? Additionally, are there recommended best practices for documenting my progress on this exercise? I never programmed in perl, so bare with me. Thanks a lot!!

​

here's the task:

- read the data from a .csv file

- store data in one hash

- outputs the data as HTML, sorted by company and within the company by name

​

here is my code:

#!/usr/bin/perl use strict; use warnings; use Text::CSV; my $csv_file = 'Bewerbungstest.csv'; open(my $fh, '<', $csv_file) or die "Could not open file '$csv_file' $!"; my $csv = Text::CSV->new({ binary => 1 }) or die "Cannot use CSV: ".Text::CSV->error_diag(); $csv->header($fh); # Hash Wert my %data_hash; while (my $row = $csv->getline($fh)) { my $pid = $row->[0]; # PID as key my $company = $row->[1]; # Company name as key my $last_name = $row->[2]; # Employee last name my $first_name = $row->[3]; # Employee first name push @{$data_hash{$company}}, [$pid, $last_name, $first_name]; } close($fh); # Sort the company names alphabetically foreach my $company (sort keys %data_hash) { @{$data_hash{$company}} = sort {$a->[1] cmp $b->[1]} @{$data_hash{$company}}; } # HTML Output open(HTML, '>', 'output.html') or die "Could not open file: $!"; print HTML "<html>\n"; print HTML "<head>\n"; print HTML "<title>Employee List</title>\n"; print HTML "</head>\n"; print HTML "<body>\n"; print HTML "<h1>User Liste</h1>\n"; print HTML "<table border='1'>\n"; print HTML "<tr><th>PID</th><th>Company</th><th>Last Name</th><th>First Name</th>\n"; foreach my $company (sort keys %data_hash) { foreach my $entry (@{$data_hash{$company}}) { my ($pid, $last_name, $first_name,) = @$entry; print HTML "<tr>\n"; print HTML "<td>$pid</td>\n"; print HTML "<td>$company</td>\n"; print HTML "<td>$last_name</td>\n"; print HTML "<td>$first_name</td>\n"; print HTML "</tr>\n"; } } print HTML "</table>\n"; print HTML "</body>\n"; print HTML "</html>\n"; close(HTML); print "HTML file erfolgreich generiert\n"; 

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

Data objects for login.

Changes for 0.02 - 2024-03-19T14:01:19+01:00

• Regen example file.
• Rewrite to new Data::HashType@0.04 with added 'valid_from' parameter.

Random hash type objects.

Changes for 0.03 - 2024-03-19T13:59:34+01:00

• Add support for Data::HashType@0.04.

find, build and install the bowtie2 tools

Changes for 0.01 - 2024-03-19T05:13:18-06:00

Data objects for hash type.

Changes for 0.04 - 2024-03-19T13:12:38+01:00

• API CHANGE: Add 'valid_from' and 'valid_to' parameters. 'active' parameter will be removed in future. And 'valid_from' will be required in future.
• Add DESCRIPTION section to doc.

An open source web-based network management tool.

Changes for 2.074000 - 2024-03-19

• NEW FEATURES
• BUG FIXES

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)); } 

for ($nn=$range_max;$nn>=0;$nn--) { 

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]

FLOSS Weekly Episode 765: That Ship Sailed… And Sank

This week Jonathan Bennett and Aaron Newcomb talk with Randal Schwartz, the longest running host of FLOSS Weekly, Perl’s biggest cheerleader, and now Dart and Flutter expert. What’s new…

^Hackaday

Changes in MooX::Role::Parameterized

https://blogs.perl.org/users/e_choroba/2024/03/changes-in-mooxroleparameterized.html

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]

PSC #140 2024-03-14

https://blogs.perl.org/users/psc/2024/03/psc-140-2024-03-14.html

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]

Reading sequences from fasta foramt alignment by Bio::Perl

https://blogs.perl.org/users/glycine/2024/03/reading-sequences-from-fasta-foramt-alignment-by-bioperl.html

This Week in PSC (139)

https://blogs.perl.org/users/psc/2024/03/this-week-in-psc-139.html

Perl Weekly Challenge 258: Sum of Values

https://blogs.perl.org/users/laurent_r/2024/03/perl-weekly-challenge-258-sum-of-values.html

This Week in PSC (138)

https://blogs.perl.org/users/psc/2024/03/this-week-in-psc-138.html