my_script.pl --option1 --option2 --job some_job.pl -option1 --option2 
+--option3
[download]

my $job_flag = 0;
foreach my $i (0..$#ARGV) {
   ​$opt{"job"} .= $ARGV[$i]." " if($job_flag);
   ​$job_flag = 1 if($ARGV[$i] =~ /^(\-\-|\-)job$/);
   ​undef $ARGV[$i] if($job_flag);
}<
/code>

The code just saves everything after --job into the $opt{job} and remo
+ves it from the ARGV so GetOptions won't parse it. Now I noticed that
+ if there is quotes inside the job part, it will remove those quotes.
+ For example:
<code>
my_script.pl --option1 --option2 --job some_job.pl -option1 'some_job2
+.pl -x abc' -option2
[download]

$VAR1 = [                                                             
+                                                                     
+       
          '--option1',
          '--option2',
          '--job',
          'some_job.pl',
          '-option1',
          'some_job2.pl -x abc',
          '-option2'
        ];
[download]

$VAR1 = [                                                             
+                                                                     
+       
          '--option1',
          '--option2',
          '--job',
          'some_job.pl',
          '-option1',
          '\'some_job2.pl -x abc\'',
          '-option2'
        ];
[download]

I'm taking my first tentative steps into using taint mode!
A problem has quickly got me rather stuck...

I want to use a module in a relative path but taint mode removes '.' from @INC
If I do this:

#!/usr/bin/perl -T

use CGI::Carp qw(fatalsToBrowser);

use Site::HTML;

use strict;
use warnings;
[download]

#!/usr/bin/perl -T

use CGI::Carp qw(fatalsToBrowser);

use FindBin qw($Bin);
use lib "$Bin";
use Site::HTML;

use strict;
use warnings;
[download]

Is this the correct way to load a relative module under taint mode?
Is the problem with the way I am loading the module or with the module itself?
Should I be doing something completely differently?

In order to test it it needs to be able to be tested without the use of my personal IG login details as these are private to me. The test programs use the unmodified IG.pm module, with a special @INC path from which it picks up a special version of Rest::Client. This version hashes the parameters, and then reads a file based on the hash and returns identical json formatted data as if my account had been used.

My aim is to test my module, not Rest::Client which is not my module.

I included the special version of Rest::Client and in my module code as well as a Record::Rest::Client for creating the special data files read by my local Rest::Client module.

All works well, however when I submit the module, it says I have no permission to publish a version of Rest::Client. I do not actually want to do that, its only used in the testing of my module.

I seek some suggestions as to what is the best way to proceed in this situation.

Hey there my fellow esteemed Monks!

I've been having a long-running problem that I'm finally fed up enough with to ask for help.

In my test suite for berrybrew, I perform a path substitution in a configuration file before the tests load. The specific command which is run out of a batch script looks like this:

call perl -i.bak -ne "s/berrybrew(?!\\+test)/berrybrew\\test/; print" 
+test/data/config.json
[download]

Essentially, that's supposed to change the path C:\berrybrew to C:\berrybrew\test.

On some of my Windows 10 systems, it works just fine, and everything goes on its merry way. On other Win10 systems, the change results in a tab character being inserted, so the path looks like this: C:\berrybrew[TAB]est. If I insert four backslashes in the replacement (ie. berrybrew\\\\test, it works. However, after a git push then a git pull on the other systems that work with just the two backslashes, it breaks.

What can I do to provide myself some consistency across systems? Is there some unicode trick or something I can use? I've tried replacing the forward slashes in the substitution to single-quotes (eg: s///; to s''';) to no avail.

I'd really like to get this resolved so that the substitution works reliably across all systems.

Cheers,

-stevieb

$string = 'copied from a web page looking like this: “Test.” ';

$string =~ s/“//g;    
$string =~ s/”//g;
[download]

Objective: To connect from my machine to an external server using HTTPS. The connection will use the GET verb and the external server should return a message back to the client. As a security mechanism, the certificate for my client must be sent to the server as authentication.

I'm using LWP to get the response from the external server. I've run into two problems I'm not sure of. First, I am unsure if the LWP program is actually loading the certificate, which is in DER format. Second, since the server is responding with a 403 error I don't think they are getting my certificate. Am I loading the certificate correctly to send from my Windows machine to their external IIS server?

The DER certificate is valid and has not expired. It is not a self-signed certificate.

use LWP::UserAgent;
use Data::Dumper;
use Cwd;

$cdir = getcwd;
$endpoint = ‘https://omit/commotest';

$ua = LWP::UserAgent->new;
$ua->ssl_opts(SSL_cert_file => "$cdir\\der.cer");
$ua->ssl_opts(SSL_use_cert => '1');

$response = $ua->get($endpoint);           

if ($response->is_success) 
 {  print Dumper $response; }
else { print "Error: " . $response->status_line, "\n"; }
[download]

I am reading though a large set of dated directories with a large number of dates where the number of <date> directories is much larger than the number of parent <dir> directories. There is only one date "dir" per parent in the future--the rest are in the past. I just have to find these future dates.

dir1 / <date1>
dir1 / <date2>
dir2 / <date3>
dir3 / <date4>
[download]

I am currently using glob("*/*") to loop through all the dates to find all the ones in the future. My glob has become annoyingly slow and I'd like to speed it up. Any ideas how I can use readdir() to return an array of "dir / <date> " of only the future dates

Thank you for your time--always appreciate the help & advice.

Best,

How can I override at run time the directory where Mojo searches for the file "html_entities.txt"? The reason is that I am trying to use PAR pp to create an executable of an application using Mojo on Windows 10, but the exe fails with the following error:

I already tried to add to the file explicitly:

with no effect. So probably copying and pasting the file into my data structure and instruct Mojo to search there could be a fix. Any suggestion?

i have to compare two arrays to check if both are exactly same or not irrespective of which elements come at which position

here @failedTestsuites is first array and @referenceTestsuites is second array, i have tried below code but it is not giving desired result. one of the case is: suppose @failedTestsuites array contains 'a','b','c' and @referenceTestsuites array contains 'a','b' then also it is printing both array as same. please help

my $comp = Array::Compare->new;
if ($comp->compare(\@failedTestsuites, \@referenceTestsuites)) {
  print "same arrays\n";
} 
else {
  print "different arrays\n";
}
[download]

I am trying to compare two arrays which may have strings/elements separated by newline, spaces or comma, how can i ignore those special characters while comparing

e.g: suppose @array1 has contents like below

and @array2 has contents like below

abc
 xyz
[download]

my $comp = Array::Compare->new;
    if ($comp->compare(\@array1, \@array2)) {
      print "array same\n";
    }
    else {
      print "array not same\n";
    }
[download]