Skip to main content




Provides United States of America holidays

Changes for 0.0101 - 2024-03-19T13:39:45Z

  • Fix SYNOPSIS.
  • Improve documentation.


Adapter for USA holidays

Changes for 0.0100 - 2024-03-19T13:38:10Z

  • Mint with Dist::Zilla.
  • Modify from Date::Holidays::Adapter::*.


Provides United States of America holidays

Changes for 0.0100 - 2024-03-19T13:09:16Z

  • Mint with Dist::Zilla.
  • Modify heavily from Date::Holidays::* and Date::Holidays::Adapter::*.




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.




Hi all.

I'm currently working as a PHP Developer, and I want to learn something new, because I've been developing in PHP for 7 years.

My current tech leader is a super senior developer with around 25 years of experience developing software, and he said his main programming language is Perl, and he worked with it so many years and so many projects, also he said he could teach me Perl in an advanced way if I wanted to.

So i have this opportunity to learn Perl from a professional with a lot of experience.

The only thing stops me, is that I know that Perl jobs are not that common, at least not as PHP jobs.

But something that motivates me is learning a new technology and apply it.

I know there are a lot of JS and Python jobs, but I don't really like those languages, I would prefer Java or C#.

This is my situation, should I invest this time into learning Perl if I want to expand my market opportunities?

Greetings!

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



List of new CPAN distributions – Feb 2024 submitted by /u/perlancar
[link] [comments]



Hi,

Can anyone help explain to me why this is failing? I am trying to install Env::C and it seems to me that it is failing because of a leak test. Am I reading that right?

[root@a34 ~]# cat /root/.cpanm/work/1708960597.71560/build.log cpanm (App::cpanminus) 1.7047 on perl 5.026003 built for x86_64-linux-thread-multi Work directory is /root/.cpanm/work/1708960597.71560 You have make /usr/bin/make You have LWP 6.34 You have /usr/bin/tar: tar (GNU tar) 1.30 Copyright (C) 2017 Free Software Foundation, Inc. License GPLv3+: GNU GPL version 3 or later <https://gnu.org/licenses/gpl.html>. This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law. Written by John Gilmore and Jay Fenlason. You have /usr/bin/unzip Searching Env::C () on cpanmetadb ... --> Working on Env::C Fetching http://www.cpan.org/authors/id/M/MS/MSCHOUT/Env-C-0.15.tar.gz -> OK Unpacking Env-C-0.15.tar.gz Entering Env-C-0.15 Checking configure dependencies from META.json Checking if you have ExtUtils::MakeMaker 6.58 ... Yes (7.34) Configuring Env-C-0.15 Running Makefile.PL Checking if your kit is complete... Looks good Generating a Unix-style Makefile Writing Makefile for Env::C Writing MYMETA.yml and MYMETA.json -> OK Checking dependencies from MYMETA.json ... Checking if you have warnings 0 ... Yes (1.37) Checking if you have DynaLoader 0 ... Yes (1.42) Checking if you have strict 0 ... Yes (1.11) Checking if you have Test::More 0.88 ... Yes (1.302135) Checking if you have ExtUtils::MakeMaker 0 ... Yes (7.34) Building and testing Env-C-0.15 cp lib/Env/C.pm blib/lib/Env/C.pm Running Mkbootstrap for C () chmod 644 "C.bs" "/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- C.bs blib/arch/auto/Env/C/C.bs 644 "/usr/bin/perl" "/usr/share/perl5/vendor_perl/ExtUtils/xsubpp" -typemap '/usr/share/perl5/ExtUtils/typemap' C.xs > C.xsc Please specify prototyping behavior for C.xs (see perlxs manual) mv C.xsc C.c gcc -c -D_REENTRANT -D_GNU_SOURCE -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -fwrapv -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -g -DVERSION=\"0.15\" -DXS_VERSION=\"0.15\" -fPIC "-I/usr/lib64/perl5/CORE" C.c rm -f blib/arch/auto/Env/C/C.so gcc -lpthread -shared -Wl,-z,relro -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -L/usr/local/lib -fstack-protector-strong C.o -o blib/arch/auto/Env/C/C.so \ -lperl \ chmod 755 blib/arch/auto/Env/C/C.so Manifying 1 pod document "/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- C.bs blib/arch/auto/Env/C/C.bs 644 PERL_DL_NONLAZY=1 "/usr/bin/perl" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/author-pod-coverage.t .. skipped: these tests are for testing by the author t/author-pod-syntax.t .... skipped: these tests are for testing by the author t/author-signature.t ..... skipped: these tests are for testing by the author # Failed test 'setenv does not leak' # at t/leak.t line 31. # got: 63416 # expected: 63418 # Looks like you failed 1 test of 1. t/leak.t ................. Dubious, test returned 1 (wstat 256, 0x100) Failed 1/1 subtests t/smoke-multi.t .......... ok t/smoke.t ................ ok Test Summary Report ------------------- t/leak.t (Wstat: 256 Tests: 1 Failed: 1) Failed test: 1 Non-zero exit status: 1 Files=6, Tests=14, 0 wallclock secs ( 0.01 usr 0.01 sys + 0.30 cusr 0.01 csys = 0.33 CPU) Result: FAIL Failed 1/6 test programs. 1/14 subtests failed. make: *** [Makefile:1033: test_dynamic] Error 255 -> FAIL Installing Env::C failed. See /root/.cpanm/work/1708960597.71560/build.log for details. Retry with --force to force install it. [root@a34 ~]# 

submitted by /u/dovi5988
[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