I have a task that can be best summarized by the keywords in the title, and I wonder if there is a somewhat ready-made solution, preferably in Perl, that I've overlooked.

I have a set of points in a plane (originally coordinates of known features in an image), in two versions: one from a reference version of the image, the other from a distorted and warped version of the same image. The points themselves belong to two subsets: for the first subset, let's call them "known" points, I know the coordinates from both images, and for the second subset, "target" points, I know their coordinates only from the reference image. What I want is to determine the coordinates of these "target" points, based on the transformation determined by the corresponding "known" points.

Maybe I'm not looking right, but I haven't found anything besides Imagemagick, dodgy Matlab recipes and a bunch of research articles.

Let's assume I have a module which needs 3 import parameters.

package My::Test;

use strict;
use warnings;

use Carp;

sub import
{
    my $class = shift;
    croak "Number of import parameters is wrong, stopped " unless @_ =
+= 3;
    # ...
}

1;
[download]

The good case I can check with use_ok. But the bad cases are my problem, e.g. use this class with less than 3 parameters.

use My::Test "Param1", "Param2"; # dies because it are 2 params and no
+t 3 as expected
[download]

I want to test that this exception was thrown and I also want to check its error message for correctness. Usually I use throws_ok for this. But in this case it doesn't work because the use command is at compile time. I have no idea how to test for this exception.

Thanks for your help!

use DBI;
use strict;
use warnings;

my $driver= "mysql";
my $dsn = "DBI:$driver:database=$database;host=$host";
my $dbh = DBI->connect($dsn, $user, $pw);
$dbh->do('INSERT INTO test_table (fname, lname, email, comment) VALUES
+ (?, ?, ?, ?)',
    undef,
    $fname, $lname, $email, $comment);
[download]

i am writing a code where i have to find version associated with the name from a file. i am trying below code but the pattern match is not working. the file /home/test.txt contains multiple entries like below:

Anls/01.00/windows
abc/02.00/windows
core/03.00/windows
route/04.00/windows
.
.
.
[download]

my $file = "/home/test.txt";
        if (-e $file) {
            my @list = ("Anls", "core", "route");
            open(FH, '<', $file) or die $!;
            foreach my $x (@list) {
                while(<FH>){
                  my $pattern;
                  if (defined($pattern) && ($pattern =~ /$x\/(.*)\/(.*
+)/)) {
                      my $version = $1;
                      print "$x: $version\n";
                  }
                }
            }
            close(FH);
        }
[download]

How do we have CLI of Perl's sed's n command ?
e.g. illustration:

cat script.txt| perl -nle 'if (/^===\w+\s*$/){ next # ??? how to ignor
+e first $_, here eg. ===Hello, to directly become replaced by next li
+ne ; # ... } print'
[download]

Very recent perl on Cygwin

Summary of my perl5 (revision 5 version 32 subversion 1) configuration
+:

  Platform:
    osname=cygwin
    osvers=3.2.0(0.34053)
    archname=x86_64-cygwin-threads-multi
    uname='cygwin_nt-10.0 cygwinpro 3.2.0(0.34053) 2021-03-29 08:42 x8
+6_64 cygwin '
[download]

Why doesn't this give just the ip address without a trailing ')'??

#!/usr/bin/perl
my $ip = "csteppfw pts/0        2022-06-27 15:53 (192.168.5.100)";
$ip =~ s/.*?(\d+\.\d+\.\d+\.\d+).*?/\1/;
## $line =~ s/.*$ip//;
print "$ip\n";

--------------------

$ bin/test
192.168.5.100)
[download]

Hey Im coding a perl script which needs to get data from a database. But when I get a return value its comes back in an array so i dereference it. Yet it still prints out nothing. I ran the command in sqlplus and it worked there without issue. Im not sure how to solve this

my $sth = $dbh->prepare("select XMLRECORD from F_COMPANY") or
            die "Couldnt prepare statement: " . $dbh->errstr;

$sth->execute();

# loop through the returned data 
while( my ($row) = $sth->fetchrow_array()){
   print "@$row\n";
}
[download]

Hi Monks, I am trying to write a function that takes a string argument $str of the form shown below (letter + weight) and need to generate all combinations with certain restrictions; for example, no repeating numbers. I also need a perlish way to move the letter $firstLetter with the largest weight into first position. The order of the other substrings do not matter. As a secondary restriction, I also want to ensure that the combination contains the substring $substring. So, for this particular $str example, [ c?6, b?2, a%3, a?1] is a valid combination.

Thank you very much for your help

use strict;
use Math::Combinatorics;

my $firstLetter="c";
my $str="a?1,a?2,a%3,b?2,b?3,b%5,c%4,c%5,c?6,d%2";
my $substring = "a?,b%,c?";


my @combos = Math::Combinatorics::combine(4,split ",",$str);

foreach my $combo (@combos) {


    ## check if numbers are all unique
    my $hash = {};
    my ($count) = grep { ++$hash->{$_} > 1 } map { (split '')[2] } @$c
+ombo;
    next if defined $count;


    ## place $firstLetter with largest weight in first position
    
    
    ## ensure that substring strings are contained within the combinat
+ion

}
[download]

I’m developing an API application. In the API response I get a pdf in a string. If I use the “from_string” and then the “save” method of the PDF::API2 module the pdf works fine. If I write the API response string into a file (without using PDF::API2) or use the “from_string” and then the “to_string” method of the PDF::API2 module (which should be the same as I understand) I get an error message and a blank document (or blank with part of the header) when I try to open the file with a pdf reader.

I was wondering what is the difference between the contents of the outputs of the “to_string” and “save” methods?

Thanks in advance for your help.