Hello monks,

I have a first long list (array) of n-grams (array various length, typical: 10.000 elements) and a second even bigger reference list with n-grams (~500.000 elements). I need to check if elements of list 1 are present in list 2. The match must be fuzzy, i.e. both lists are words, and I need to match also very similar words (basically to match singular-plurals, small differences in spellings, and so on). My script (very naive) works, but I'd like to hear from you some suggestions to improve its speed (which is quite crucial in my application). I already had a BIG gain in time switching from Text::Fuzzy::PP to Text::Fuzzy, but surely the script could further improved. Data looks like this (each line is one element of multi word units):

IP exchange
IPX
Internet Protocol Exchange
DPM
Data Point Model
[download]

My code

use strict;
use warnings;
use Text::Fuzzy;
use Data::Dumper;

my @stringsToMatch=("extra-articular arthrodesis", "malnutritions");#m
+y first list. I want to check if its elements are in my reference lis
+t $referenceNgrams
my @goodmatches;

my $referenceNgrams="EN.txt";#my huge reference file (second list)

print "Loading n-grams from $referenceNgrams\n";
open my $inFH, '<:encoding(UTF-8)', $referenceNgrams or die;
chomp(my @Corpus = <$inFH>);
close $inFH;
        
#Matching with Fuzzy
foreach my $stringToMatch (@stringsToMatch){
    print "Working on $stringToMatch\n";
    foreach my $corpusElement (@Corpus){
        #matching only if $stringToMatch has the same amount of elemen
+ts of $corpusElement (to save time?)
        my $elementsInstringToMatch = 1 + ($stringToMatch =~ tr{ }{ })
+;
        my $elementsIncorpusElement = 1 + ($corpusElement =~ tr{ }{ })
+;
        
        if ($elementsIncorpusElement eq $elementsInstringToMatch){
            my $tf = Text::Fuzzy->new ($stringToMatch);
            my $distance= $tf->distance ($corpusElement);
            if ($distance < 2){#sensibility
                push (@goodmatches, $stringToMatch);
                last;#go out of loop if match has been found
            }
        }
    }
}

print "Good matches:\n";
print Dumper @goodmatches;
[download]

I see some use of "::die_bug" in Perl code found on the internet. I can't find any documentation for it. Using it under "This is perl 5, version 26, subversion 2 (v5.26.2) built for MSWin32-x64-multi-thread" gives the error: Undefined subroutine &main::die_bug called at ./check_shell.pl line 662.

It works in "This is perl 5, version 18, subversion 4 (v5.18.4) built for x86_64-linux"

use strict;
use warnings;

my $d = 2 ** -1074;
my $py = `python3 -c \"print($d)\"`;
print "$py\n";
# prints 5e-324
[download]

C:\>perl -le "print 2 ** -1074;"
4.94065645841247e-324
[download]

$ python3 -c "print(2 ** -1074)"
5e-324
[download]

C:\>perl -le "print 'ok' if 5e-324 == 4.94065645841247e-324;"
ok
[download]

I had a perl script to convert .txt files to .xls after doing some calculations and filtering. It was working fine in Excel 2010.Recently I had Excel 2016 installed and from then its throwing me an error as follows "No type library matching "Microsoft Excel" found at C:\GMIO Transaction Audit Process\Perl Script\NewScript.pl line 13". Here is the script till line 13. Request your help regarding this

 
#!/usr/bin/perl
# These are the modules the program utilizes.
# Strict is a module which compiles the code to avoid syntax issues.
# List::Util was utilized for part of the random selection .
# The POSIX module was utilized also in the random selection #function
+ 
# Win32::OLE is for utilizing Excel within Perl.

use strict;
use File::Find;
use POSIX qw(ceil);
use List::Util 'shuffle';
use Win32::OLE::Const "Microsoft Excel";
[download]

Dear fellow monks.

I think that some time ago I have seen somewhere information about a package on CPAN (in a blog post I think), which could be used in testing, and which:

• by default failed, when named output file was changed
• could run in such a mode, that it would "remember" current state of the file (if the change was intentional), which would prevent further fails (until next change)

Imagine you are programmatically creating complex structured text, and want to be able to "keep it fixed" in you tests - unless you know that the change is "for the better"

Is my memory playing tricks on me? Are you aware of such library? I hope that what I vaguely described above makes sense.

Unfortunately, mu Google-fu is not advanced enough to yield the answer.

Regards, Jan

Update: change the title, answer is in comments below.

git clone git@github.com:ingydotnet/inline-c-pm inline-c-pm
[download]

Apologies if this seem like a simple question, I'm working on learning the more advanced topics in perl.

I'm having trouble pulling information out of data an array reference. I'm trying to print data that returned from the aliases method. Would anyone be able to tell me what I'm doing wrong?

#:Code

#!/usr/bin/perl
#
use strict ;
#use lib "/var/www/html/monkey/cgi-bin";
use lib "/var/www/html/production/cgi-bin";

# load the WebUI common libraries
use Infoblox::WebUI ;
use Data::Dumper;


 my $session = Infoblox::Session->new(
     master   => $address,
     username => $user,
     password => $passwd,
     timeout  => $timeout_num,
     connection_timeout => $conn_timeout
      );

print "Check:".Infoblox::status_code() . ":" . Infoblox::status_detail
+()."\n";

unless ($session) {
                   die("Construct session failed: ",
                   Infoblox::status_code() . ":" . Infoblox::status_de
+tail());
}

 #Get DHCP Host Address object through the session
 my @retrieved_objs = $session->get(
     object => "Infoblox::DNS::Host",
     name => "testone.cnti.com",
 );


#my @tmp_array = @$_->aliases() for (@retrieved_objs);
#print "aliases: " . @tmp_array;

print "aliases: " .$_->aliases(),"\n" for (@retrieved_objs);
print "dns_name: " . $_->dns_name(),"\n" for (@retrieved_objs);
print "ipv4addrs: " . $_->ipv4addrs(),"\n" for (@retrieved_objs);
print "comment: " . $_->comment(),"\n" for (@retrieved_objs);
print "name: " . $_->name(),"\n" for (@retrieved_objs);:
:
:
:OUTPUT
[user1@host perl]$ ./infoblox_test4.pl
Check:0:Operation succeeded
aliases: ARRAY(0x55f6da24f8f0)
dns_name: testone.cnti.com
ipv4addrs: ARRAY(0x55f6da243eb0)
comment: Standard Network: [TAGS: STATIC;cc.cnti.com]
name: testone.cnti.com
zone: cnti.com
ttl: 300
[download]

I have found the answers (I'm pretty sure, haven't fully tested yet) to 1 and 3. Number 2 is getting me a bit. I found the bookmarking ability of PDF::Reuse to be close, but I want to bookmark to a specific string, not a page number since I won't necessarily know the right page number since the PDF was just generated back in step one.

Is there a way to do the bookmarking thing but to a specific string (which I can preset when building the HTML)?

hello all

i have the problem that i am not able to get a simple perl script doing a database connection and query. here the error i get:

install_driver(ODBC) failed: Can't locate DBD/ODBC.pm in @INC (you may need to install the DBD::ODBC module) (@INC contains: /Library/Perl/5.18/darwin-thread-multi-2level /Library/Perl/5.18 /Network/Library/Perl/5.18/darwin-thread-multi-2level /Network/Library/Perl/5.18 /Library/Perl/Updates/5.18.2/darwin-thread-multi-2level /Library/Perl/Updates/5.18.2 /System/Library/Perl/5.18/darwin-thread-multi-2level /System/Library/Perl/5.18 /System/Library/Perl/Extras/5.18/darwin-thread-multi-2level /System/Library/Perl/Extras/5.18 .) at (eval 4) line 3. Perhaps the DBD::ODBC perl module hasn't been fully installed, or perhaps the capitalisation of 'ODBC' isn't right. Available drivers: DBM, ExampleP, File, Gofer, Proxy, SQLite, Sponge. at testperldb.pl line 10.

i am running mac os mojave 10.14.2

the db connection works using "Azure Data Studio"

any help is deeply appreciated