68,317 questions
0
votes
0
answers
61
views
How to match ssh-keygen's "randomart" with Expect?
When trying to match the "randomart" part of ssh-keygen's output using Expect, expect() finds an empty string after the "randomart", but not the expected eof, but I don't ...
- 4,784
-1
votes
2
answers
145
views
CGI in Perl: how to access the original HTTP headers
A simple proxy in Perl runs as a CGI on the webserver of my ISP.
It's purpose is to forward https GET and POST to a http webserver running on my PC.
With that https works without the need of any TLS ...
- 49
1
vote
2
answers
178
views
Why is the position of `[:space:]` within a character class seemingly important?
I'd like to use constants to build regular expressions. However, in this case I got an unexpected syntax error:
#!/usr/bin/perl
use strict;
use warnings;
use constant CR_SAFE => '[:alnum:]@,._\-...
- 4,784
0
votes
2
answers
127
views
TLS in Perl REST request
This curl command works fine (must be accessed in tls 1.3):
curl -v --tlsv1.3 -u "xxxx":"xxx" -X POST "https:xxxxxxx"
Try to get the same result with Perl. Created a ...
- 299
Best practices
0
votes
6
replies
102
views
Prototype mismatch importing symbols
I get a "Prototype mismatch" warning in code that either imports 'blessed' from Scalar::Util or defines it depending on the version of Scalar::Util. Is there a way to suppress the warning, ...
- 190
2
votes
2
answers
132
views
Troubleshooting: A single regular expression matching nested braces usable for java and perl
I have a regular expression in an extension of java by florian ingerl
to parse a latex command,
\\\\DocumentMetadata(?<docMetadata>\\{(?:[^{}]|(?'docMetadata'))*\\})
but the important thing is ...
- 681
1
vote
0
answers
135
views
Benchmarking Perl's Net::Async::FastCGI app consistently return LOTS of "Non-2xx responses"
Seeking community wisdom on why the ApacheBench utility consistently returns a lot of "Non-2xx responses" ( 502 Bad Gateway ) when running a benchmark test of my helloworld web app using ...
- 273
0
votes
2
answers
145
views
How to execute code in response to uncaught exceptions
In some perl code I'm evaluating $v1 $op $v2 to make sure the result is valid and the program does not abort.
However when $op eq '/' and $v2 == 0 I noticed that a user-defined die handler is called (...
- 4,784
-5
votes
1
answer
104
views
Why does OpenAPI output validation fail for an endpoint but not for others?
I want to create an asynchronuous OpenAPI interface. Async jobs return a 202 and a location header to query later.
This is my OpenAPI document:
---
components:
headers:
JobLocation:
...
- 23
Tooling
3
votes
5
replies
122
views
Why is this proxied Mojolicious request much much slower than directly accessing the upstream server?
I am trying to implement a Mojolicious application that (also) acts as a proxy in front or rclone serve.
To that purpose I am trying to get Mojolicious to act as a proxy, and request from rclone serve ...
- 5,262
Advice
2
votes
7
replies
190
views
Perl library to create static HTML
Long story short I have written my own custom HTML template system that I am very happy with. However I have done that with manually concatenating HTML tags, and it is a bit messy. There has to be a ...
- 53
3
votes
2
answers
224
views
Is `use source::encoding "ascii";` implied by `use v5.42;`?
According to the new source::encoding pragma's documentation,
use source::encoding 'ascii' is automatically enabled within the lexical scope of a use v5.41.0 or higher.
To me, this means that
use v5....
- 391k
7
votes
1
answer
146
views
Getting import errors for a symbol I'm not requesting
I'm running into a weird import error message while trying to create a commandline tool that references packages within a Perl web application. The web application itself is working fine. I can ...
- 407
2
votes
2
answers
113
views
Perl XML::LibXML and Storable equals segfault?
When using the perl library Storable to store and retrieve XML::LibXML document objects, I get a segmentation fault. Specifically, once I use the LibXML routine findnodes. My question is: why, and is ...
- 277
5
votes
2
answers
142
views
How to more nicely pull all values from hash that aren't a given key?
I know how to get all of the values of a hash given a set of keys:
use strict;
use warnings;
use DDP;
my %h = (
a => 1,
b => 2
);
my @v = @h{a,b};
p @v; # ( 1, 2 )
However I'm not sure ...
- 3,147
4
votes
2
answers
141
views
Two nested while loops on same array become infinite (they shouldn't)
I have a minimal working example of two nested while loops on the same array @g:
#!/usr/bin/env perl
use 5.042;
no source::encoding;
use warnings FATAL => 'all';
use feature 'say';
use autodie ':...
- 6,227
2
votes
2
answers
166
views
Split hash by array value
If there's a hash where one of the values is an array, what's the shortest way to split into an array-of-hashes (AoH) for each array value that keeps all the hash keys and values, except for replacing ...
- 4,255
2
votes
2
answers
128
views
Substitute if not in group of characters
How can I substitute every character that is:
not WORD (a-z, A-Z, 0-9) and also
not minus (-) and also
not hash (#)
to underline (_)
e.g.
"aB-09 !#" => "aB-09__#"
&...
- 12.7k
1
vote
0
answers
94
views
Problem with mn_def_pars() function in PDL::Minuit
This package of the Perl Data Language
https://metacpan.org/pod/PDL::Minuit
When I run only the parameter definition part of the example program:
use PDL::LiteF;
use PDL::Minuit;
mn_init(\&$chi2, {...
- 185
2
votes
3
answers
181
views
How to properly replace long strings in Perl
Let's say I want to replace every occurrence of 12345 in file1 with the contents of file2. The following code works:
use strict;
use warnings;
local $/;
open my $fh, 'file1' or die "$!";
...
- 451
2
votes
1
answer
147
views
How do you decode a JSON boolean to a Perl boolean?
I would like the following code to round-trip properly on Perl ≥5.36.
❯ perl -MCpanel::JSON::XS=decode_json,encode_json -Mbuiltin=false,true -MDevel::Peek=Dump -E'
say Cpanel::JSON::XS->VERSION;...
- 39.3k
1
vote
4
answers
252
views
Multiple replaces between markers but not outside them
To avoid some confusion and questions, I changed the new string to "letters", so it would not match "text", so to avoid infinite loops.
I work under Windows, with the perl provided ...
- 2,331
3
votes
1
answer
104
views
Why is AnyEvent slowing down or leaking memory?
While writing a new Perl module which was capable of using AnyEvent, my benchmarking tests showed that it was slowing down dramatically over time. Turning off AnyEvent cured the problem, which ...
- 1,259
2
votes
3
answers
151
views
When setting pattern property from a string in JavaScript, how to preserve the backslashes?
Related to Properly simulate "pattern" attribute with javascript:
How do I set an input pattern using JavaScript?
when I try element.pattern = 'a\S' (as a trivial example), then the pattern ...
- 4,784
-2
votes
1
answer
182
views
How can I tell if lighttpd is running on Debian 13? [closed]
My task was to port debian12 to debian13. In debian13 I noticed that the website was behaving differently with Perl v5.40.1. I found out that the following line returns different values on different ...
- 289
-2
votes
2
answers
111
views
How to use Perl `eval` to build a closure that executes the command in a string
In a CGI script that processes arrays of strings the user can supply for each field whether to match a string there or not.
If all user-specified criteria are fulfilled, the specific array should be ...
- 4,784
2
votes
1
answer
88
views
Disable Perl warnings for call to remote function
I'm defining some tests for a library I'm using. One of my tests is calling the code in such a way that it produces warnings, which is expected. However, I'd ideally like to suppress these warnings ...
- 509
0
votes
1
answer
125
views
Packaging two scripts with system dependencies for NixOS deployment?
In my quest to get to know Nix and NixOS better, I'm going to try moving a small utility I have onto my NixOS server. There are two components to this utility:
A Perl script, which requires both (a) ...
- 15.1k
2
votes
2
answers
189
views
Match pattern `\S` except when part of another pattern (ANSI escape)
I want to know whether the input contains any non-space as in \S. However, the input may contain ANSI VT escape sequences (Wikipedia) for text color and style, which do match \S (even the ESC code ...
- 15.5k
2
votes
2
answers
180
views
How does interpolating a Perl constant into a string work?
I've just come across such usage of Perl constants:
use strict;
use warnings;
use constant PI => 4 * atan2(1, 1);
print("The value of PI is: ${\PI}\n"); # The value of PI is: 3....
- 152k
5
votes
6
answers
524
views
Regex to match two consecutive dots but not three [duplicate]
I'm looking for a Perl regex that matches two or more consecutive dots unless there are three dots.
These strings should match:
Yes.. Please go away.
I have the ball..
In this case....I vote yes.
...
- 103
1
vote
1
answer
70
views
Bugzilla set reporter on creating Bug via WebService [closed]
I am creating a Bug on Bugzilla 5.2+ via rest-API. I try to achieve to set the reporter to a known Bugzilla user which differs from the used API-User.
I already tried that by creating an Extension.pm ...
- 168
-1
votes
2
answers
155
views
Connect to Snowflake OAuth Perl
since Snowflake is switching to MFA, I need to change some perl code to use access tokens.
Just doing something simple like this:
my $username = '';
my $pwd ='';
my $dbh = DBI->connect($dsn, ...
2
votes
1
answer
154
views
Why is Perl interpolating variable in single-quoted string?
Consider the following Perl script:
#!/usr/bin/perl
foreach(split '$$', 'A$$B'){ print; }
print "\n";
foreach(split '\$\$', 'A$$B'){ print; }
print "\n";
Given the well-known ...
- 201
-2
votes
3
answers
127
views
Replacing repeated arbitary characters with reg expression [closed]
Original data contains 4 times repeated characters, seperated by a space. For example,
code2 1 1 1 1 7 7 7 7 10 10 10 10 eq
code9 a a a a tpp1 tpp1 tpp1 tpp1 es
I'd like to add suffix to pairs using ...
- 27
-1
votes
1
answer
68
views
How to disable a single menu item in Perl/Tk menubar?
The following code creates a menu list called "User Selection" with four menu items: "Save", "Save As", "Load, and "Load From":
my $userselectedmenuitems = ...
- 125
-2
votes
4
answers
189
views
Problem when using `/^([^\n]*?)(\n)(.*)$/m` to match multi-line string
I have a problem I don't understand:
Given a string consisting of multiple lines like this:
DB<5> x $token
0 'ACCOUNT_CHANGED = "20250728081545Z"
ACCOUNT_CHANGED_T = "...
- 4,784
0
votes
2
answers
186
views
Does $dbh->prepare() provide any performance benefits for MySQL access?
The DBI docs on prepare() state that it's behaviour differ for various drivers:
Drivers for engines without the concept of preparing a statement will
typically just store the statement in the ...
- 16.6k
0
votes
2
answers
135
views
Perl and Postgresl table name with dash
This line works fine under linux :
PGPASSWORD=***** psql --username=**** -h ***** -d **** -p **** -P pager=off -t --csv -c "select \"Nom\", \"Path\" from \"vVMware-Vms\&...
- 299
2
votes
2
answers
168
views
Perl decode_json "Wide character in subroutine entry" warning
I'm trying to read a json file which contains Vietnamese text.
I tried using decode_json with in-file string and it works well.
use strict;
use warnings;
use JSON;
binmode(STDOUT, ":encoding(...
- 29
0
votes
1
answer
149
views
split in void context worked in old perl, misbehaves in new
I found some old code that does this:
while(<IN>) {
chomp;
split;
if ($_[0] eq "junk") { ... }
The code works presuming pre-5.12 split in void context behavior:
$ /depot/perl-...
- 5,716
-1
votes
1
answer
84
views
Perl: IPC::Run escaping problems with special characters, commands not working
I am having problems running commands using IPC::run with special characters, in my current case ' and *
The used commands:
apt-get -y --allow-unauthenticated -o Dpkg::lock::timeout=0 install /tmp/...
- 11
-4
votes
2
answers
152
views
Installing par-packer under Cygwin: Perl version mismatch woes
I am trying to get par-packer running under Cygwin and having problems with Perl version mismatch. After installing and trying to run, I get this error:
bin > pp -o ehive_decode.exe myscript.pl
...
- 485
-2
votes
2
answers
123
views
Perl `gv`module: "No matching function for overloaded 'edge'
The manual page for the Perl gvmodule (graphviz) states:
New edges
Add new edge between existing nodes
edge_handle gv::edge (tail_node_handle, head_node_handle);
...
- 4,784
1
vote
4
answers
232
views
Understanding alternation branches and the "branch reset" extension
When using alternation with captures, I've often been somewhat puzzled by how it actually works, in particular why I would often get void (undef) match entries which I then have to discard by ...
- 15.5k
4
votes
1
answer
117
views
Why doesn't Perl warn about using `$a` outside of sort block anymore?
I wrote some program for Perl 5.26.1, using strict and warnings.
So after some tests without a message I thought it's OK.
But when I ran the program wth older Perl 5.18.2, I suddenly got a warning ...
- 4,784
0
votes
2
answers
133
views
Check the name of an output file for proper permissions
A have a question similar to Perl: Testing that a file is actually writable as opposed to checking file permissions:
In a program I have an option to specify a required output file, and I want to ...
- 4,784
4
votes
1
answer
261
views
why is Perl File::Map so slow compared to File::Slurp?
I thought I'd try using mmap to search a multi-gigabyte file without running out of memory. I tested on a file that did actually fit and the File::Slurp version took less than a minute but the File::...
- 18.8k
2
votes
2
answers
102
views
Why can't I embed a g modifier within a regex pattern?
my $modifiers = 'i';
my $string = "abcabc\n";
$string =~ s/(?$modifiers)B/Z/;
print $string;
$modifiers = 'g';
$string =~ s/(?$modifiers)a/q/;
print $string;
The first regex works and ...
- 3,289
-6
votes
2
answers
251
views
Problems joining string content [closed]
How can I join string content in Perl?
my $string = $q->param("us1"); # this is what entered +book +dog +cat
print join(',', $string), "\n";
This is the output I want:
"+...
- 31