Hi all,

Nelson Ferraz has been working with generative AI for a while. I've started collaborating with him on his OpenAI modules. He wrote a module named OpenAI::API, but it required manually writing the code for all of the behavior. With the size of the OpenAI API, the rapid evolution, of said API, the birth of new models and the deprecation of old models, this approach turned out to be unmaintainable.

Thus, that module was deprecated in favor of Nelson's OpenAPI::Client::OpenAI module. Throw the 13K+ lines OpenAPI spec for OpenAI at it and it just works. Further, the module is pretty much a single Perl class rather than a bunch of hand-crafted code.

CPAN authors know it can be hard to keep modules up-to-date (mea culpa, mea culpa!) and this module is no exception. I need this module so I offered to collaborate and created a PR to update it to version 2.0.0 of the OpenAI spec. It now passes all the tests (for those wondering, you need an OpenAI key and it costs $0.04 USD to run the test suite).

In trying to build a Whisper pipeline for that, I found that I couldn't. There was a PR for Whisper support for the older module, but for the newer one, I can't figure out how to get it to issue a request with multipart/form-data support. I've noted the issue in the PR.

If anyone would like to see OpenAI support for Perl, we would dearly love to collaborate with you to make this happen.

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

Nelson Ferraz

CPAN Author

^metacpan.org

MariaDB 10 and SQL::Translator::Parser

https://blogs.perl.org/users/usna78/2024/05/mariadb-10-and-sqltranslatorparser.html

This week in PSC (148) | 2024-05-16

https://blogs.perl.org/users/psc/2024/05/this-week-in-psc-148-2024-05-16.html

Confirming The LPW 2024 Venue & Date

https://blogs.perl.org/users/lpw/2024/05/confirming-the-lpw-2024-venue-date.html

Perl Weekly Challenge 269: Distribute Elements

https://blogs.perl.org/users/laurent_r/2024/05/perl-weekly-challenge-269-distribute-elements.html

Perl Weekly Challenge 269: Bitwise OR

https://blogs.perl.org/users/laurent_r/2024/05/perl-weekly-challenge-269-bitwise-or.html

I want to repeat a process for every key in a hash, with numeric keys. So there are 3 possibilities, with 3 if, and each one compares the value of the index of an array, so that if that position eq to "sp", "sp2" or "sp3" it will search in a document some value so then it can be printed. It doesn´t work and every times gives me only one value, i would like to get the values that correspond with the hash. For example the hash could be %grupos=(1,'A',2,'G',3,'J')

and the array @hibridaciones=("sp","sp2",sp3")

The document .txt (simplified) is:

HS0.32 CS0,77 CD0.62 CT0,59 C10,77 C20,62 C30,59 OS0.73 OD0,6 O10,73 O20,6 NS0.75

The code is:

open (covalencia,"<", "cov.txt") or die "$!\n"; print keys %grupos; keys %grupos; foreach my $z (keys %grupos) { print "\n$z\n"; if (@hibridaciones[my $z-1] eq “sp") { while (my $line = <covalencia>) { if ( $line=~/C1/) { $line =~s/C1//; $radio=$line; print "\n$radio"; } } } if (@hibridaciones[my $z-1] eq "sp2") { while (my $line = <covalencia>) { if ($line=~/C2/) { $line =~s/C2//; $radio=$line; print "\n$radio"; } } } if (@hibridaciones[my $z-1] eq "sp3") { while (my $line = <covalencia>) { if ($line=~/C3/) { $line =~s/C3//; $radio=$line; print "\n$radio"; } } } } close (covalencia);

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

Although Benchmark::DKbench is a good overall indicator for generic CPU performance for comparing different systems (especially when it comes to Perl software), the best benchmark is always your own code. Hence, the module now lets you incorporate your own custom benchmarks. You can either have them run together with the default benchmarks, or run only your own set, just taking advantage of the framework (reports, multi-threading, monotonic precision timing, configurable repeats with averages/stdev, calculation of thread scaling etc). Here's an example where I run a couple of custom benchmarks on their own with Benchmark::DKbench:

``` use Benchmark::DKbench;

A simplistic benchmark sub:

sub str_bench { for (1..1000) { my $str = join("", map { chr(97 + rand(26)) } 1..rand(15000)); $str =~ s/a/bd/g; $str =~ tr/b/c/; } }

my %stats = suiterun({ include => 'custom', # Run only my custom benchmarks iter => 5, # Iterations to get an average extra_bench => { custom_bench1 => [&str_bench], # Add one more, just inline this time: custom_bench2 => [sub {my @a=split(//, 'x'x$) for 1..5000}], } }); ``` This will produce a report in STDOUT and also return the results in a hash for a single-thread run. You can also run the benchmarks multi-treaded and then calculate & print the multi/single-thread scalability:

```

If you want to get a count of logical cores:

my $cores = system_identity(1);

my %statsmulti = suite_run({ include => 'custom', threads => $cores, iter => 5, extra_bench => { custom_bench1 => [&str_bench], custom_bench2 => [sub {my @a=split(//, 'x'x$) for 1..5000}], } });

my %scal = calc_scalability(\%stats, \%stats_multi); ```

The report prints results per iteration and also aggregates:

``` Aggregates (5 iterations): Benchmark Avg Time (sec) Min Time (sec) Max Time (sec) custom_bench1: 1.092 1.079 1.107 custom_bench2: 0.972 0.961 0.983 Overall Avg Time (sec): 2.065 2.048 2.080

Aggregates (5 iterations, 10 threads): Benchmark Avg Time (sec) Min Time (sec) Max Time (sec) custom_bench1: 1.534 1.464 1.651 custom_bench2: 1.278 1.225 1.345 Overall Avg Time (sec): 2.812 2.689 2.965 The scalability report summarizes as well: Multi thread Scalability: Benchmark Multi perf xSingle Multi scalability % custom_bench1: 7.12 71

custom_bench2: 7.61 76

DKbench summary (2 benchmarks, 5 iterations, 10 threads): Single: 2.065s Multi: 2.812s Multi/Single perf: 7.36x (7.12 - 7.61) Multi scalability: 73.6% (71% - 76%) ```

The suite normally uses a scoring system which works better than times, so you can set that up by adding reference times to each benchmark, and you can also make the benchmarks return something (checksum etc) to verify results etc, see POD for more.

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

From the tprc-general Slack channel, Todd Rinaldo wrote yesterday that "Talk Accept, Decline, Waitlist emails have been sent out." See tprc.us for more information about this year's Perl and Raku Conference in Las Vegas, NV.

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

Mo utilities for email.

Changes for 0.02 - 2024-04-26T23:02:53+02:00

• Add tests for error parameters.
• Rewrite the tests so that the functional tests are first and then the errors.

PTS 2024 - day 1

https://blogs.perl.org/users/leo_lapworth/2024/04/pts-2024---day-1.html

Perl CPU Benchmark

Changes for 2.6 - 2024-04-25

• Custom benchmark improvements.
• Fix BSD tar xattr.

Code coverage metrics for Perl

Changes for 1.41

• Spelling, linting and formatting changes

load Data::Dumper output, including self-references

Changes for 0.01 - 2024-04-25

Experimental features made easy

Changes for 0.032 - 2024-04-25T22:30:41+01:00

• Add the newly-stable features to stable.pm - extra_paired_delimiters, const_attr, for_list

Non linear optimization routines for PDL

Changes for 0.09 - 2024-04-25

• fix compiler warnings on pointer types (#7) - thanks @YuryPakhomov for report

Schema for CPANTesters database processed from test reports

Changes for 0.026 - 2024-04-25T15:15:16+01:00

• Added

Basic utilities for writing tests.

Changes for 1.302199 - 2024-04-25T15:05:00+01:00

• Minor fixes

Distribution with a rich set of tools built upon the Test2 framework.

Changes for 0.000162 - 2024-04-25T14:57:23+01:00

• Fix #292 and #270

Portable compilation

Changes for 0.001 - 2024-04-25T15:17:34+02:00

This week in PSC (145)

https://blogs.perl.org/users/psc/2024/04/this-week-in-psc-145.html

Hi! Asking for a wisdom here...

We have a module that modifies signal handler $SIG{__DIE__} to log information and to die afterwards. Hundreds of scripts relied on this module which worked fine in perl 5.10.1.

Recently we had the opportunity to install several Perl versions but unfortunately a large number of scripts that used to work with Perl 5.10.1 now behave differently:

• Failed in 5.14.4: /home/dev/perl-5.14.4/bin/perl -wc test.pl RECEIVED SIGNAL - S_IFFIFO is not a valid Fcntl macro at /home/dev/perl-5.14.4/lib/5.14.4/File/stat.pm line 41
• Worked without changes in 5.26.3: /home/dev/perl-5.26.3/bin/perl -wc test.pl test.pl syntax OK
• Worked without changes in 5.38.2: /home/dev/perl-5.38.2/bin/perl -wc test.pl test.pl syntax OK

Many of the scripts can only be updated to 5.14.4 due to the huge jumps between 5.10 and 3.58; But we are stuck on that failures.

Was there an internal Perl change in 5.14 which cause the failures but works on other recent versions without any update on the scripts?

Cheerio!

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

Perl Weekly Challenge 266: X Matrix

https://blogs.perl.org/users/laurent_r/2024/04/perl-weekly-challenge-266-x-matrix.html

Sanity-check calling context

Changes for 0.04

• (no code changes)
• Switched to MIT license.
• Switched README from POD to Markdown.
• Removed Travis CI.

Sort lines of text by a SortKey module

Changes for 0.001 - 2024-03-07

• First release.

Sort lines of text by a Comparer module

Changes for 0.002 - 2024-03-07

• No functional changes.
• [doc] Mention some related links.

An assortment of date-/time-related CLI utilities

Changes for 0.128 - 2024-03-07

• [clis strftime, strftimeq] Use localtime() instead of gmtime(). We can still show UTC using "TZ=UTC strftime ...".

Perl Weekly Challenge 266: Uncommon Words

https://blogs.perl.org/users/laurent_r/2024/04/perl-weekly-challenge-266-uncommon-words.html

Read Perl’s symbol table programmatically

Changes for 0.11

• (No code changes.)
• Remove Travis CI.
• Change README to Markdown.
• Re-license under the MIT License.

Perl implementation for the Prague Markup Language (PML).

Changes for 2.25 - 2024-04-23T15:11:42Z

• Fix saving relative paths to resource files.

Create a DateTime object from a Genealogy Date

Changes for 0.06 - 2024-04-23T08:28:40Z

• Handle entries which have the French 'Mai' instead of the English 'May' Some messages were printed even in quiet mode Handle '1517-05-04' as '04/05/1517'

Show context around syntax errors and exceptions

Changes for v0.4.0 - 2024-04-23

• fixes
• new features
• improvements
• other

I understand that many disagree with this statement, but it really makes it easier to build distributions for people who not monks. Wish the documentation was more detailed

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

Sah schemas related to BCA (Bank Central Asia) bank

Changes for 0.002 - 2024-04-03

• Rename module/dist Sah-Schema{s,Bundle}-* following rename of Sah-Schema{s,Bundle} (for visual clarity and consistency with naming of other bundles).

search nested hashref/arrayref structures using JSONPath

Changes for 1.0.5 - 2024-04-22T16:10:46-05:00

simulating paper and pencil techniques for basic arithmetic operations

Changes for 0.01 - 2024-04

• First version, with the four basic operations, plus square-root, GCD and radix conversion. And HTML rendering

Use a type to validate values in a deep comparison.

Changes for 1.0.1 - 2024-04-22

• Add Test2::Tools::Type