Hi all,

For my sins, I run a legacy 5.24 install on which I have built an app of 15 years standing. Recently I have discovered that my Microsoft Outlook integration needed to send scheduled emails breaks on Windows boxes with 64 bit Office installs, while it runs fine with 32 bit Office installs.

The exact error thrown is:

No type library matching "Microsoft Outlook" found at ../Perl/lib/Mail
+/Outlook.pm line 111
[download]

While there do appear to be plenty of people who've encountered this issue, I do have some constraints which is why their solutions might not apply to my situation. First, I am unfortunately not open to upgrading my installation. Given enough time, I'd love to do that but there's never enough time, especially when there are tight deadlines! Second, I do not have the ability to directly manually tinker with the Registry settings on the machines this application must run on, as local admin rights are locked down.

I'm definitely not afraid though of tinkering with the modules. There are no external dependencies I have to satisfy so it is my private playground to hack around as I like with.

Question: How would I go about finding the exact changes needed at the Module level (or even as calls in my code) to address this issue? I've taken a good look around the Meta CPAN site but am none the wiser (all I can see is file permission and version bumps). I still want the application to run with 32 bit Office installs as well as 64 bit Office installs.

Many thanks in advance!

Andrew

I need to install our huge Perl/Tk application on a MacBook. It worked years ago, we even used a signed package so the users weren't supposed to do anything advanced like compiling C libraries themselves. Unfortunately, the old installer doesn't work anymore.

Does anyone know how to install Perl/Tk an a MacBook? A manual way is enough for now, I'll try to find a way to automate it later.

Google finds lots of guidelines but most of them seem rather dated.

I hope it would be easier than rewriting all those several hundred thousand lines to a different GUI.

I’m writing a utility to go through my personal perl lib to ensure consistency across files. For example, I will use it to check each file has a comment containing the file’s path. So the utility will be going through and repeatedly searching a lot of text files.

There will be hundreds of documents searched repeatedly for certain strings of text. Rather than reinvent the wheel, I hunted around for a module that would help ensure the search was done efficiently both in terms of time and resources used so I don’t have to burden myself with worrying about the many small details. For example, the easiest thing for me to do would be to load all files into memory and simply search, write them back out to disk, load them all back into memory, search, save, repeat. Though this is easy, it’s obviously not efficient and I was hoping to find a module that would smartly determine how to handle this problem.

But I have searched around a bit and have come up empty. Does anyone have any recommendations?

GetOptions(
    'accept|a=s' => \my @accept,
    'reject|r=s' => \my @reject,
) or die "Error with options\n";

my @filter = map eval "sub { \$_[0] =~ /$_/ }", @accept;
push @filter, map eval "sub { \$_[0] !~ /$_/ }", @reject;

# my @input = ([url, filename], ...);
my @filtered = filter(@input);

sub filter {
    return unless @filter;
    return map $_->[0],
        grep { my $f = $_; all { $_->($f->[1]) } @filter } @_;
}
[download]

I'm going to go ahead and ask for help even though I know the problem may be a fubar'd system. I'm setting up pinto and am trying my first "pull" from CPAN, and getting an error:

Failed to mirror https://cpan.perl.org/modules/02packages.details.txt.gz: 501 Protocol scheme 'https' is not supported (LWP::Protocol::https not installed)

Thing is, LWP::Protocol::https certainly is installed, as are the dependencies Net::SSLeay and IO::Socket::SSL. Is it something pinto is doing, manipulating @INC or otherwise causing this failure?

Thank you again (I seem to post in SoPW once a week these days!), good Monks.

Maybe it is late, maybe I am tired, but what the fiddley-doo is up with this:

$ perl -e 'my $val = 8.95; printf("%d\n", int($val * 100));'
894
[download]

Or this for that matter:

$ perl -MPOSIX -e 'my $val = 8.95; printf("%d\n", POSIX::floor($val * 
+100));'
894
[download]

So in desperation:

$ perl -e 'my $val = 8.95; my $mval = $val * 100; printf("%d %d %f %d 
+%f\n", int($val * 100), $val * 100, $val * 100, $mval, $mval);'
894 894 895.000000 894 895.000000
[download]

It looks like maybe the %d in printf is rounding. But why does it round 895.000000 to 894?

What exactly is going on here?

1. --server api.blr-ocp1.lab.rbbn.com --username mgore --password abc1
+23
2. --server api.blr-ocp1.lab.rbbn.com --token kfjshdssahdvkbvjkbj
[download]

Dear all, Not being an expert in new-fangled technology ("what do you mean, I'm not allowed to use assembly code?") I am trying to write a .cgi module to handle a form's data. (Primarily using a perl reference book, but that is by the by). My understanding is that I can write a cgi module to create AND handle data from a form. So I did, but I am having trouble making the (software) decision as to how to progress upon code execution. Please note that it is for historical reasons that I use HTML::Tiny and not CGI but that is not part of the problem, unless corrected here

# Start the page and form creation process as required
$co = HTML::Tiny->new( mode => 'html' );


if ($co->param())
{

    #data returned from the form submission
    print "data present - to be analysed\n";
    $buffer = "";
    if($ENV{'REQUEST_METHOD'} eq "POST")
    {
        # POST method retrieves data by the READ command
        print "POST read\n";
        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    }
    else
    {
        # GET method retrieves by accessing the relevant environment v
+ariable
        print "Query String\n";
        $buffer = $ENV{'QUERY_STRING'};
    }

    print ("buffer=<p>$buffer</p>");


    if (length ($buffer) > 0)
    {
       # Analyse the form data ....
    }
    else
    {
        print "<p>buffer size is zero<p>";
        exit;
    }
}
else
{
    # No data passed to here by a submit - create the display form tha
+t is required to do so
    print "no data present -to display form\n";
    displayForm();

}
[download]

When I run this code (on a server) I get the diagnostics saying that there is "data present - to be analysed" (as if this call is to handle the form data) but then in the next breath the diagnostics say that the "buffer size is zero". I had a minor thought that the data was somehow being 'retained' somewhere and each time that I ran the script, the 'retained' data was being retested. SO I shut everything down overnight, re-running in the morning, but the same 'problem' presents itself

Q: What is the failing in my software logic here? Have I misread/misunderstood/misinterpreted what I have read in my perl book? As always any help from the monastery would be gratefully received.

Regards ADB