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]

I'm seeing some weird behavior. Got this line: my @stats = stat($f);

$f is the path to a file sitting on an amazon s3 bucket. I am using s3fs to mount the bucket on my instance and the path to the file looks like a normal path, something like: /backups/backups_db/some_dir/file. The backups_db is a symlink to /s3bucket/backups_db At any rate, @stats contains values from the stat() function above but in totally random order. Here's a dump of three different files:

[DEBUG] Rex.CLI: 206
        $VAR1 = [
          'gid',
          1000,
          'size',
          325342,
          'mode',
          '0644',
          'mtime',
          1623769844,
          'uid',
          1000,
          'atime',
          0
        ];

[DEBUG] Rex.CLI: 206
        $VAR1 = [
          'uid',
          1000,
          'size',
          325316,
          'atime',
          0,
          'gid',
          1000,
          'mode',
          '0644',
          'mtime',
          1623771735
        ];

[DEBUG] Rex.CLI: 206
        $VAR1 = [
          'gid',
          1000,
          'mtime',
          1623772143,
          'mode',
          '0644',
          'atime',
          0,
          'uid',
          1000,
          'size',
          325346
        ];
[download]

I'm not sure if I'm just being an idiot on how to use the stat() function or if the stat() function does not work properly on a file on an s3 bucket using s3fs. If it's the latter, can this be fixed?

Hey all, trying to make a comprehensive perl function that can be used in various flows for my work. The stuff that I'm struggling with is:

$outputType – if left blank (‘’) assume array reference (‘aref’), only other possibility is hash reference (‘href’)

$headingAref – if left blank (‘’) assume first line as the header. Otherwise pass in an array reference where each element in the array is the column heading in the order they appear in the file.

$readLineFrom – if left blank (‘’) start at the first line, otherwise if a number defined start reading at that line of the file.

$readLineTo – if left blank (‘’) read till EOF, otherwise if a number defined end reading at that line of the file.

Trying to read the csv from a certain row to another is proving to be difficult. I tried to keep an index and use a nested for loop but this is still printing all my rows, not just the ones I want. Furthermore, I need to be able to add my own personal header according to $headerAref. I tried opening the file for reading and writing using "+<" but that causes my code to only print the header. I also need to duplicate all of this for a hash output type as well but I have not yet looked into this. Right now, my code is able to output the csv file as an array or arrays as requested but reads each row (not the range given) and can't add a header. Any help would be appreciated.

#!/tool/pandora64/bin/perl5.8.8

#MODULES
use strict;
use warnings;
use Pod::Usage;
use Data::Dumper;
use Getopt::Long;
use File::Basename;
use Cwd 'abs_path';
use Data::Dump 'dd'; 
use Data::Dumper qw(Dumper);
use Text::CSV;


#my $output = readCSV($pathToCSV, $columnSeperatorChar, $cellEncapsual
+tingChar, $outputType, $headingAref, $readLineFrom, $readLineTo, $ign
+oreFirstLineBool);

my @headerArray = "a,b,c,d,e,f,g,h,i,j,k";
my $headerArrayRef = \@headerArray;

my $pathToCSV = "input.csv";
my $columnSeperatorChar = "";
my $cellEncapsulatingChar = "";
my $outputType = "";
my $headingAref = "$headerArrayRef";
my $readLineFrom = 8;
my $readLineTo = "";
my $ignoreFirstLineBool = 0;

$columnSeperatorChar = "," if ($columnSeperatorChar eq "");
$cellEncapsulatingChar = ""  if ($cellEncapsulatingChar eq "");
$outputType = 'aref' if ($outputType eq "");


my @output;
my $rowCounter = 0;
my @index;
my $currentIndex = 0;


open(my $file, "<", $pathToCSV) or die "File could not be opened $!\n"
+;

=begin comment
if($headingAref ne ""){
    my @headerArrayCopy = @$headingAref;
    print ($file "@headerArrayCopy\n"); #adds header
}

=end comment
=cut


while (my $line = <$file>){
    chomp $line;
    $currentIndex++;

    if ($readLineTo eq ""){
        $rowCounter++;
        $readLineTo = $rowCounter;
    }


    for ($currentIndex >= $readLineFrom and $currentIndex <= $readLine
+To){
        my @row = split ("$columnSeperatorChar", $line);
        foreach my $cell (@row){
            $cell = "$cellEncapsulatingChar$cell$cellEncapsulatingChar
+"
        }

        push @output, \@row;

    }
}

print Dumper(\@output);
[download]