perl -CS -E'say v74.65.80.72'

I wanted to grok how deeply I didn't understand what this was doing, so I also made some modifications:

while true; do perl -CS -E 'say eval ( sprintf "v%s", join ".", map { int rand 1024 } ( 0 .. (int rand 24) + 8 ) )'; sleep 1; done

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

Doing some Unicode research I'm finding several different ways to generate Unicode characters:

```perl binmode(STDOUT, ":utf8");

my $thumbs_up = "";

$thumbs_up = "\x{1F44D}"; $thumbs_up = "\N{U+1F44D}"; $thumbs_up = chr(0x1F44D); $thumbs_up = pack("U", 0x1F44D);

print $thumbs_up x 2 . "\n"; ```

What is that \x syntax? I tried looking it up on Perldoc and couldn't find anything. Is the \N specific for Unicode?

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

Bit of a weird question:
I am working on a save game editor for an old game that nobody cares about, and I have to run a Perl script as part of it.
I have been trying to convert the logic of the script to C#, which I am writing the application itself in, but due to differences in how Perl and C# handle bytes, this is proving impossible for me to figure out with my limited skill set. If anyone would like to workshop this issue, I would welcome the help.

Anyway, my question: Since I need to include the script with my application, the user needs a way to run it. I would like to avoid having the user install Perl themselves, as that would just be another step I'd have to troubleshoot every time someone had a problem.
So would it be legal for me to include Strawberry Perl in its portable form with my application?
From quick googling, I think it would, but I don't want to risk anything.

Thank you for your help.

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

Now that the CPAN module sealed.pm has stabilized at v7 after a year of solid real world live mod_perl 2 + ithread hosting , I think it's time to step back and ask exactly *why* this feature - first offered to p5p in 2001 by Doug MacEachern, wasn't ever incorporated into the core feature set of the language. For background, see

https://iconoclasts.blog/joe/perl7-sealed-lexicals

Instead of "it" being a technical issue at stake, it seems clear that the reason Doug's patch was rejected was more of a social problem. The Language Design Weenies in the Damian Conway Personality Cult at the time didn't *want* this feature, since only Dylan had it, and Python was never going to get it. So it was rejected outright.

Sadly, that attitude still is pervasive in the upper echelons of the community, but I think the community is better served by breaking out this functionality into a subroutine attribute that only operates on typed lexicals, which otherwise serve no useful purpose.

What do you think? Have you tried sealed.pm out in your codebase yet?

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

As I write, there are currently 641 of them.

https://github.com/topics/hacktoberfest?l=perl

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

GitHub

GitHub is where people build software. More than 100 million people use GitHub to discover, fork, and contribute to over 420 million projects.

<sup>GitHub</sup>

Hello everyone! First, let me start off by saying I am no Linux guru and I am definitely no Perl expert, so I apologize if these are dumb questions or if I don't provide enough information... Let me preface this post with a little backstory!

I want to test Request Tracker for my IT team to use. It looks promising and it looks like what we need. That being said, this install has been an absolute nightmare. The guides are very hit and miss, the other walkthroughs that I've been able to google have only been partially accurate... It's been a very frustrating time. I know, most people would have walked away from it at this point, but I'm stubborn and now I'm determined to make it work - even if we don't go forward using it. I HAVE been able to piece together a complete walk through, which is nice, and it gives me the base install. In order to get what I feel like I need to make this work for my environment, I need to have a few of their add-ins installed, and that's where my trouble comes in...

Example - Here is an example of what I'm trying to get installed. Initially, when I ran the perl Makefile.PL command, I got the error listed in the title. After digging for a few days, I was able to find this on another post in the RT forums:

$ sudo apt-get install libgd-dev libgraphviz-dev graphviz autoconf apache2 libapache2-mod-fcgid slapd ldap-utils expat openssl libssl-dev # Install standalone Perl for RT $ wget http://www.cpan.org/src/5.0/perl-5.26.3.tar.gz $ tar -xzf perl-5.26.3.tar.gz $ cd perl-5.26.3 $ sudo ./Configure -des -Dprefix=/opt/perl5 $ sudo make $ sudo make test $ sudo make install # Use new Perl install: $ export PATH=/opt/perl5/bin:$PATH $ which Perl # Install Meta CPAN $ wget https://cpan.metacpan.org/authors/id/M/MI/MIYAGAWA/App-cpanminus-1.7044.tar.gz $ /opt/perl5/bin/perl Makefile.PL $ make $ make test $ sudo make install # Tell RT to use metacpan $ export RT_FIX_DEPS_CMD='/opt/perl5/bin/cpanm --sudo --notest' # Configure RT $ ./configure --enable-gd --enable-graphviz 

# CD into App-cpanminus-1.7044.tar.gz $ cd App-cpanminus-1.7044.tar.gz # Run perl Makefile.PL $ perl Makefile.PL 

would resolve that? Or am I mistaken?

I can run the perl Makefile.PL in the above directory, but then to continue the steps for the add-in (Example link from above), when I get to the make initdb command, I get a totally different error:
make: *** No rule to make target \initialize-database’.? Stop.`

Which completely stops me again... which is why I'm hoping if I can get the initial error resolved, the rest of this will work like it should. There are about a dozen add-ins that I'd like to add, but if I can't get past any of this, then it's a moot point. I know I should give up and look for something else, but my company is in the middle of a divestiture, and I need something to help cover my US sites until we are completely integrated into the new parent company.

Thank you in advance for any advice or suggestions!

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

RT::Extension::HelpDesk

Default Help desk configuration for Request Tracker

<sup>MetaCPAN</sup>

The RequireExplicitInclusion policy will complain about modules that you're using but didn't specifically include. For example:

use Test::More; sub test_something { local $Test::Builder::Level = $Test::Builder::Level + 1; return is( ... ); } 

Ideally you could tell the policy that Test::More brings in Test::Builder but until then you can now do this:

[Modules::RequireExplicitInclusion] ignore_modules = Test::Builder 

Perl::Critic::Policy::Modules::RequireExplicitInclusion

Perl::Critic plugin for stricter subroutine checking

<sup>MetaCPAN</sup>

Running a Perl script with -C seems to enable most of the UTF-8 stuff I would want. How do I get the same functionality inside of a Perl script? Perlrun mentions putting it on the shebang line, but that doesn't work above v5.10?

The utf8::all module also seems to do what I want, but it's not a core module. Is there a simple way in core Perl to just say "turn on UTF8 pretty much everywhere"?

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

I've been using perl for 35+ years. As a sysadmin (and hobbyist, tool developer, whatever) it's long been my go-to language for the vast majority of my development efforts.

Over that time I've definitely seen it fading. But in the past year I've seen more concerning issues. The meta cpan website is often sluggish, and right at the moment, it's partly offline (some pages work, others, perhaps less frequently used, are offline).

Some modern Linux distros ship with a crappy set of modules. Like, no LWP. And my experience getting modules for basic functionality is not encouraging. It's very unfortunate for example that LWP doesn't know how to find installed web CAs on standard Linux distributions. Sure, I can make it work, but things just seem to be getting more and more fiddly for basic common functionality.

I've coded python a bit here and there. I've never cared for the language, but most of these concerns are surface and ultimately irrelevant, if the day-to-day experience is better than perl. And yeah, there's a lot to not like about python's day-to-day experience. The multiple confusing approaches to virtual environments and the necessity of understanding them to operate sucks. But when it comes down to it, any language style or design dislike I may have pales in comparison to the question: "is the language sufficiently supported?"

For the first time in the long history of doom-saying about perl, I'm beginning to have doubts if the answer to that question is still "yes". But maybe it's just the frustration of this one particular evening (temporary web problems while trying to find a well-supported multi-platform approach to filesystem events notification that can seamlessly work with the select() call).

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

Hey folks, how do I assign the result of split() to a hash-key?

my $str ='a,b,c'; my $result = {str => split(',' $str)};

Results in: str = 'a'

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

Has anyone tried Intel's OneAPI compiler suite to compile and use Perl? I mention OneAPI because it is available for free now (on Ubuntu, etc). I plan to give it a shot, I'd like to extended Alien::OpenMP to support it depending on how easy it is to compile perl with it.

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

Alien::OpenMP

Encapsulate system info for OpenMP

<sup>MetaCPAN</sup>

Does anybody remember this phrase featuring in an old story about clueless admins who banned Perl? Phil Pennock on the zsh dev mailing list knew the phrase in 1999 but I can’t find any other references to it https://zsh.org/mla/workers//1999/msg00153.html

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

Okay, so this is going to cross some borders about where the issue might be... I'm not sure where the issue is, but hopefully someone might at least have a thought.

I long ago started writing an AFP client stack in Perl. Yes, I did that. The question isn't if that's possible. (If you're interested in seeing it, it's [https://github.com/demonfoo/afp-perl](here).)

When trying to run the code on UN*X platforms (Linux, macOS, *BSD, Solaris/OpenIndiana), it works well. I've even added sendfile() support for uploading, for the platforms that support it. Over my home network, from my Linux machine to my TrueNAS Core NAS, I can transfer data over 10GbE at 5-6 Gbps. So I like to think it's pretty efficient... but Windows is a whole other world of pain.

I've recently been optimizing it, and Devel::NYTProf has been very helpful. I'd tried running it on Windows in the past, and running into issues. I originally thought it might be an issue with Perl threads (yes, it's using those too...), but based on profiling, it's not. It sends a command packet, which is just 36 bytes long, which apparently Windows' TCP stack doesn't much appreciate. It sits there for a really long time waiting for the command data to send while uploading, and I'm not sure why; using Sys::Sendfile, which wraps the Win32 TransmitFile() function, takes 5x less time for some reason, even though each call to it sends 512 KiB. And yes, I am disabling Nagle's algorithm, and setsockopt() seems to indicate it worked.

Thoughts on what I'm doing wrong?

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

the podcast was autgenerated with NotebookLLM - no human intervention.

Link: https://jmp.sh/EfQ7tav4

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

Hello everyone. We are writing a little script that sends a mail to a collegue or department in case of sickness. We have a website that we host that can also be accessed remote with a form to fill out.
Our problem is after trying some things that the Mail arrives with no Subject. The subject is always empty and we dont understand why. Any idea? Here is most of the Script:

if (eingabefehler() == 1) {
print $cgi->header(),
$cgi->start_html('Krankmeldung nicht abgeschickt!'),
$cgi->h1('Bitte alle Eingabefelder ausfüllen');
print $cgi->end_html();
}
else {
$abt = $cgi->param('abt');
$smtp = Net::SMTP->new('cluster.xx.xx',Timeout => 30);
$smtp->mail($ENV{USER});
switch($abt)

{

 case "xx" { $smtp->to('mail.address'); ) 

$smtp->cc('mail.address');

$smtp->mail($ENV{USER});

$smtp->data();

$smtp->datasend("From: Krankmeldeformular\n");

switch($abt)

 { 

}

$smtp->datasend("Subject: Krankmeldung\n");

$smtp->datasend("\n");

$smtp->datasend("Name: ",$cgi->param('name'),"\n\n");

$smtp->datasend("Datum: ",$cgi->param('datum'),"\n\n");

 switch($abt) 

 case "xx" { $smtp->datasend("department \\n\\n"); } 

$smtp->dataend();

$smtp->quit;

print $cgi->header(),

$cgi->start_html('Krankmeldung abgeschickt!'),

$cgi->h1('Mail versendet');

print $cgi->end_html();

}

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

Planning to replace my frontend with VueJs, looking for tips from those who have done it and some advice.

Its unclear to me how the templating or communication between Perl and VueJs woild work, dpes Vue get setup in my root directory and how does my backend communicate with the frontend?

Currently using template toolkit, so do i keep using it and embed vue or build a standalone vue app, in which case how do i serve it.

There is currently a baclend/frontend and both use template toolkit, i am only planning on reworking the frontend for now so there needs to be some backwards compatability with the rest of the project

submitted by /u/Mowntain-Goat8414
[link] [comments]

• "Have the appropriate amount of fun."
• "construed as a feature"
• "It does what you want, unless you want consistency."
• "'functional' is not to be construed as an antonym of 'dysfunctional'"
• "leaning toothpick syndrome"

I read it at the formative age of 16.

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

The Unified Theory of Acceptance and Use of Technology is one of the dominant models used to explain why users accept and eventually use (or not) a given technology. I am not sure if anyone has applied to study the acceptance and adoption of programming languages in either voluntary (hobby) or mandatory (work) environments. Perhaps it is applicable in those domains as well. There are some newer extensions for the social media age discussed in the article that may be more relevant to the adoption of languages or the emergence of fads in this space.

https://en.wikipedia.org/wiki/Unified_theory_of_acceptance_and_use_of_technology?wprov=sfla1

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

https://www.perl.com/article/197/2015/10/6/Display-real-time-data-with-Curses/

I came across this article by Mr d F and it piqued my curiosity about the curses and ncurses ecosystem.

Among the more ambitious projects that I have found, there is an attempt to implement vi in Perl:

https://sourceforge.net/projects/vip/

Spoiler: It still runs, Perl is awesome. ^_^

Does anyone else have a success to share about using Perl with curses/ncurses?

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

Display real-time data with Curses

How to create terminal interfaces

<sup>Perl.com</sup>

https://blogs.perl.org/users/oodler_577/2024/09/perl-community-conference-science-perl-journal-winter-2024-call-for-papers-now-open-deadline-930.html

Christos Argyropoulos, MD, PhD. (you know him here!) is our moderator for this virtual event, which is December 18th, 2024 - Perl's 37th birthday! At this event we will be announcing our Summer 2025 plans, which will include a 3rd Issue of the SPJ.

We have author 6 committments from some very exciting topics, but we want more! The Summer Issue has 8 authors and is nearly 150 pages. We are looking to double the number of authors, doubling the number of pages is going to be a stretch 😀.

Click here to submit your paper proposal.

Note:

In case this was not clear, I stated it so in this most recent post at BPO:

If you ever wanted to be a published Perl author, here is your chance - the Science Perl Journal issues have their own ISBNs, papers will be getting their own DOIs, and all contributors are listed as co-authors of the Issue in which they appear.

You may reach out to us on #science on irc . perl . org or on Dr. Adam Russell's very active and awesome, Perl Applications & Algorithms discord server.

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

Hello. I have the following program.

#!/usr/bin/perl sub print_user_input { my $input = <STDIN>; print $input; } sub mock_user_input { local *STDIN; open STDIN, '<', \"this is fake user input\n"; print_user_input(); } mock_user_input(); __END__ $ perl ./scratch.pl this is fake user input 

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

Guys, Perl is famous for backwards compatibility. What is the oldest bit of perl use that is still relevant that you have heard of?

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

I would like to know whether function which takes complex data structure of N depth, performs ANY changes on it. Should I Dumper() before and after, use tied hashes/arrays, or some other clever technique?

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

My client would like the package files in their project encrypted to protect the source code.

I have spent at this stage around 50 hours trying various cpan modules and its just not working, i also tried compiling an exe which also just fails.

Project is running apache2.2/perl5.10/mod_perl 2.0.4 and the majority of cpan modules fail to install for some or other reason

Please help me, are any alternatives to these methods, the documentation and online resources are slim.

The project runs on a local windows environment so the files are easily accesible.

The project is also a big mess so dependencies and libraries are a bit hard to pin down.

submitted by /u/Mowntain-Goat8414
[link] [comments]

Is there a common way or best practice, for creating a HTML "checkbox" form field and marking it checked?

This is what I started using:

print qq{ <input type="checkbox" name="fieldName" value="1" @{ ($fieldValues{fieldName}) ? 'checked="checked"' : '' } /> };

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

One of the reasons I keep dropping hints about #perlffi , #pdl and #openmp is that one can literally have five multithreading frameworks in the same #perl application of a master process: 1) PDL, and FFI intefacing with 2) #Fortran coarrays, 3) Fortran openmp, 4) #c openmp and 5) #cplusplus #openmp. All these frameworks can share memory addresses for array and vector objects, and #perl aided by #PerlAlien makes the authoring of the high-level code a pleasure ! https://hgpu.org/?p=29403

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

Optimizing the Weather Research and Forecasting Model with OpenMP Offload and Codee

Currently, the Weather Research and Forecasting model (WRF) utilizes shared memory (OpenMP) and distributed memory (MPI) parallelisms. To take advantage of GPU resources on the Perlmutter supercomp…

<sup>hgpu.org</sup>

Click here to submit your abstracts for the Science Perl Journal, Winter 2024 Issue.

To Sign up for free exclusive access to the LIVE virtual conference will be held on Perl's 37th Birthday - December 18, 2024 - to sign up for free as an attendee, please join our mailing list (information and links will be sent out some days prior to the event).

The following lengths will be accepted for publication and presentation:

1. Full length paper (10-36 pages, 50 minute speaker slot)
2. Short paper (2-9 pages, 20 minute speaker slot)
3. Extended Abstract (1 page, 5 minute lightning talk slot)

Don't wait, do this today! All published authors will be presenting their papers at this virtual 1 day conference being held on December 18, 2024; and attendance will be free for everyone but you must be signed up to our to get the link day-of (will be Google Meet). All talks will be recorded and posted to a YouTube Channel.

For those interested in getting published, but unable to commit a lot of time, please note the "Extended Abstract" option. It's a great opportunity to dip your toes in the waters leading up to the Summer 2025 Issue. Let us know what questions you have, we make this a very positive and edifying experience for everyone involved. It is our hope to be able to accept as many papers and posters as possible, as such our editorial process is designed to be rigorous, but friendly and supportive.

Imporant Dates (firm):

\ all times in Pacific Standard Time (PST)*

Note*: This event is being sponsored by* Perl Community and its Science Perl Committee. It is not associated in any way with the "TPRF" or the "TPRC".

For more info, contact us over email at [science@perlcommunity.org](mailto:science@perlcommunity.org)

Perl Community Impact in 2024

List of Delivered 2024* TPRC Science Track Paper-based Talks

• Science Track Keynote & Diamond PERL Editor's Choice of Technical Excellence, Winner: Enhancing Non-Perl Bioinformatic Applications with Perl - Christos Argyropoulos, MD, PhD.
• Structure Based Structuring of Unstructured Data - Adam Russell, PhD.
• Chemometrics with Perl & Pharmaceutical Applications - Andrew O'Neil, PhD
• PerlGPT, A Code Llama LLM Fine-Tuned For Perl - William N. Braswell, Jr.
• Reasoning About the Rigor of Perl Programs - George Baugh - TPRC 2024
• Supporting Universal Dependencies in the Tree Editor TrEd - Jan Štěpánek, PhD.
• ASGS - A Real-Time Operational Storm Surge Forecasting Framework - Brett Estrade, MS
• Perl Cross-Compiler for Microcontrollers - Manickam Thanneermalai

Notes:

* We will be announcing plans for the Science Perl Journal, Summer 2025 Issue (and Science Perl Track) at the Perl Community Conference, Winter 2024. It will not be part of the TPRC in 2025.
* The final version of the Science Perl Journal , Summer 2024 Issue is being finalized and will be availabe for on-demand printing and in electronic format at Barnes & Nobles (we even have official ISBN numbers!). A seperate announcement will be made when it is available.

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

How does the following work, specifically the triple equal sign print "hello" =~ y===c # -> 4

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

I want to process lines that start on "ROW<number> blabla" and increment the number by 2. Eg: "ROW13 There's a lazy brown fox" -> "ROW15 There's a lazy brown fox".

My first attempt:

perl -pe 's/(\d+)/$1+2/e'

works but replaces numbers EVERYWHERE not just after ROW, so I tried:

perl -pe 's/ROW(\d+)/ROW$1+2/e'

but this doesn't work at all.

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

The latest dev release of Type::Tiny made some changes to its behavior with tie.

Being the kind of person who enjoys playing with shiny new things, I went to see how I could wrangle it into core classes:

```perl use v5.40; use experimental qw<class>;

class Foo { use Types::Standard qw<Int>; field $bar :param; ADJUST {tie $bar, Int, $bar} }

Foo->new(bar => "baz");

Value "baz" did not pass type constraint "Int"

```

Neat!

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

Type::Tiny

tiny, yet Moo(se)-compatible type constraint

^MetaCPAN

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

Graham Ollis 🇺🇦 🌻

2024-09-11 16:38:23

Looking for Claus Färber (github: cfaerber, cpan: CFAERBER) to see if we can get a fix and release in for Net::IDN::Encode on newer versions of #Perl (https://github.com/cfaerber/Net-IDN-Encode/pull/11). If anyone knows how to contact him, please let me know. If nobody is interested, then I am happy to adopt the module.

use uvchr_to_utf8_flags instead of uvuni_to_utf8_flags (which is remo… by ernix · Pull Request #11 · cfaerber/Net-IDN-Encode

…ved in perl 5.38.0) https://perldoc.perl.org/5.36.0/perlintern#uvuni_to_utf8_flags

^GitHub