If
you have a question on how to do something in Perl, or
you need a Perl solution to an actual real-life problem, or
you're unsure why something you've tried just isn't working...
then this section is the place to ask. Post a new question!
However, you might consider asking in the chatterbox first (if you're a
registered user). The response time tends to be quicker, and if it turns
out that the problem/solutions are too much for the cb to handle, the
kind monks will be sure to direct you here.
But in this case it has unexpected results. This is the 1st part where a hash is constructed based on whether a key in another hash exists:
use strict;
use warnings;
use Data::Dumper;
my %tests = (
'a' => 10,
'b' => 20,
);
my $m;
# this seems to assign $m once and never bother to check again
my %hash = (
'b' => exists($tests{'b'}) && defined($m=$tests{'b'}) ? $m : 0,
'a' => exists($tests{'b'}) && defined($m=$tests{'a'}) ? $m : 0,
);
print Dumper(\%hash);
# this works as expected
$m = 10;
my %hash2 = (
'1' => $m++,
'2' => $m++,
'3' => $m++
);
print Dumper(\%hash2);
Hello all. I have been playing around with Per::Critic on the command line and found to my dismay that some of my modules do not pass gentle. I realize that I can ignore the recommendations of Perl critic, but I would love for my modules to pass "gentle" before I begin ignoring things.
The most common issue is that I modify $_ in list functions. The following is a convenient and short one liner to put the lines of files into a list. I thought doing it this way was nice and slim.
my @list = map { chomp($_); $_ } <$fh>;
my @uc_list = map { chomp $_; [uc $_] } <$lc_fh>; # used only onc
+e
my @split_list = map { chomp $_; [ split(/\|/, $_) ] } <$piped_fh>;
+# used only once
If this is something ignored usually, I will ignore it, but I would like to know how to make it better. Should I just assign $_ to a variable and then use the variable?
Another thing that I am confused by is why the expression form of eval is discouraged?
The rest of the gentle issues are me being lazy with conditionals. While writing I was thinking my $var = "foo" if 'some condition', but Perl critic does not like it, but it is fixed easily.
NOTE: Please see my update. Most are fixed, but the eval problem remains.
My OS is Debian 10 (Buster); my perl versions are 5.28.1 local and 5.8.8 on web host.
No matter how hysterical I get, my problems are not time sensitive. So, relax, have a cookie, and a very nice day!
I'm still processing what I experienced at TPC. I've had time to catch up on some of the youtube videos from the ones I missed. Sometime in all the zooming, I thought I heard one of the presenters say
that's why we eval version
I thought it was Sawyer X, who says a lot of things parenthetically, but I went over his talk for a third time and didn't hear it again. I didn't understand what he meant, so I could well have misheard it or just dreamed up the recollection wholesale.
A couple days later, I'm going through the guts of a test script for local::lib and I see this, beginning line 16 of xt/bootstrap.t
sub check_version {
my ($perl, $module) = @_;
my @inc = `$perl -le "print for \@INC"`;
chomp @inc;
(my $file = "$module.pm") =~ s{::}{/}g;
($file) = grep -e, map { "$_/$file" } @inc;
return undef
unless $file;
my $version = MM->parse_version($file);
eval $version;
}
Got at specific problem, that I need some hints on. :-)
I got a bunch of fixed size .png images with logos. Those logos are centered on the images, and empty space on the left/right of the logo, is transparent background. I need to crop those images on the fly, so that empty space on the left/right of the logo is removed.
I have a simple test script that attempts to create a file and to append an existing file. This is a web-based script hosted by IIS.
When I call this script by putting its URL into a browser running on my PC, the tests pass: one file is created, the other file is appended to.
However, if I run a browser on the application server and access the script using a "localhost" URL, I get a permission denied error on both file operations.
If I run the script from the command line on the server, either as an elevated (Run as Administrator) command line or not, the script is able to write to both files
The script is running under IIS's CGI module, not FastCGI, with the Impersonate User option enabled. The site uses Windows Authentication. In both cases, regardless of which browser I use to run the script, I see that the perl.exe process is running as my domain user. I can't figure out why I get different behavior when access the script from a browser running on the server versus a browser running on my own PC. Has anyone ever seen anything like this?
I used the Errno library to get some more info about the permission denied error when opening the files for write/append:
By the way, my specific Windows user account has explicit access to the folder I'm trying to write to.
As an experiment, I turned off Impersonate User on IIS's CGI module. The perl interpreter runs as DefaultAppPool and does have permission to write to the files.
I am trying to connect Quest Foglight using REST::Client over https. I tried in PostMan tool and it is working over there but it accept authToken in Request Body.
Appreciate if someone could help me to understand how to pass "authToken" in PERL code as Request Body. Below is my code FYR. This is not working as I am new to PERL and don't know how to pass authToken as request body.
Use REST::Client;
my $client = REST::Client->new();
$req = '{"authToken":"<My Auth Token Value>"}';
# Above value should be passed as request Body. As per Postman Tool.
$url = "https://<my Quest Server>/api/v1/security/login";
$client->POST($url,$req);
print($client->responseCode());
exit();
As the MongoDB module will soon be EOL, what the Monastery wisdom says about using MongoDB from Perl?
I inherited an in-house (rather critical and very well written) Perl application which uses MongoDB as a back end. Replacing this application with another one is not an option for now.
Should I start looking for another DB to completely replace MongoDB (which is a rather daunting task)? If yes, any suggestions?
Should i try to keep the application working using the last version (2.2.0) of the driver?
Hi
I have a sub routine which reads in the result of thousands of open3 calls (ffprobe for info) and parses the results. Everything works fine except for uninitialized warnings for about 400 out of around 33k entries
Trying to get the the values that are missing is proving problematic
foreach my $file (keys %hash){
foreach my $opt (keys %{$hash{$file}}){
if (!(defined $opt,$hash{$file}->{$opt})){
say '9809 ', join '|',$file,$opt,$hash{$file}->{$opt};
}
$hash{$file}->{$opt}=~s/[^[:ascii:]]//gxms;
my $lined=join ("\t",$file,$opt,$hash{$file}->{$opt})."\n";
}
This gives initialized warnings on the last two lines if the value is blank.
However I cant seem to get the problems lines to check.
The defined check at the top prints everything that is either blank or 0. However 0 is a fully valid value, not undef.
If I test for true (if ($hash{$file}->{$opt}){}), everything with a zero gets removed.
Is there any way around this?
(I'm probably missing something basic here)
thanks
Mike
