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

use strict;
use warnings;
use feature 'say';

use MCE::Map;

MCE::Map-> init(
    chunk_size => 1, 
    max_workers => 4,
    user_begin => sub {
        print "## ", MCE-> wid, " started\n";
    },
    user_end => sub {
        print "## ", MCE-> wid, " completed\n";
    },
);

my @a = MCE::Map-> run( sub { $_ }, [ 0 .. 9 ]);
print "\n", "@a", "\n";

say $MCE::VERSION;
[download]

This, of course, prints:

## 1 started
## 3 started
## 2 started
## 4 started
## 1 completed
## 3 completed
## 2 completed
## 4 completed

0 1 2 3 4 5 6 7 8 9
1.882
[download]

I want to make dependency on MCE, in my module, very optional i.e. triggered by rare circumstances only. Replacing "use" with "require" results in just first 4 lines of output and process running indefinitely, 4 cores fully loaded.

MCE::Map being just a convenience, I can do this instead:

use strict;
use warnings;
use feature 'say';

require MCE;

my @in = ( 0 .. 9 );
my @out;

my $mce = MCE-> new(
    chunk_size => 1, 
    max_workers => 4,
    user_begin => sub {
        print "## ", MCE-> wid, " started\n";
    },
    user_end => sub {
        print "## ", MCE-> wid, " completed\n";
    },
    user_func => sub { MCE-> gather( $_ )},
    input_data => \@in,
    gather => \@out,
);

$mce-> run;
say "@out";
$mce-> shutdown;
[download]

And it runs perfectly. I understand I'll have to deal now with ordering of the output, it's not an issue. But that's the reason I was hoping to use MCE::Map to make it easier. Is this a bug?

In general, is very optional (documented) dependency on something big and complex as MCE a bad-bad-bad idea? I guess I'll have to indicate minimum required MCE version then, which for example above would be... 1.500?

$ perl -Mstrict -wE'$SIG{__DIE__}=sub{last}; die "hi"'
Exiting subroutine via last at -e line 1.
Can't "last" outside a loop block at -e line 1.

# no strict
$ perl -wE'$SIG{__DIE__}=sub{last}; die "hi"'
Exiting subroutine via last at -e line 1.
Can't "last" outside a loop block at -e line 1.

# no warnings
$ perl -E'$SIG{__DIE__}=sub{last}; die "hi"'
Can't "last" outside a loop block at -e line 1.

# -e instead of -E
$ perl -e'$SIG{__DIE__}=sub{last}; die "hi"'
Can't "last" outside a loop block at -e line 1.

# put last in a while loop, dies
$ perl -e'$SIG{__DIE__}=sub{while(1){last}}; die "hi"'
hi at -e line 1.

# put last in a non-loop block, dies
$ perl -e'$SIG{__DIE__}=sub{{last}}; die "hi"'
hi at -e line 1.
[download]

$ perl --version

This is perl 5, version 38, subversion 2 (v5.38.2) built for x86_64-ms
+ys-thread-multi
[download]

I have a client that is thinking of switching from ActiveState Perl to Strawberry Perl. Do you know how heavy a lift this will be?

Staying with Windows is a requirement. They have over a hundred CGI based apps that use Inline::Java and JDBC for database connectivity.

Any advice/opinions would be appreciated.

This time I'll put the question first: "How worried should I be?" I set up a build of the most recent Debian archive of stable perl (v5.40.1) and saw the following failures in Time::HiRes:

cwd: ~/build/perl/perl-debian-5.40/t
Ran shell command:
   ./perl harness 2>&1 | egrep --color -i -e 'Fail' -
Got output:

-------------------------------------
# Failed test 'atime set correctly'
# Failed test 'mtime set correctly'
# Failed test 'atime set correctly'
# Failed test 'mtime set correctly'
# Failed test 'File 1 atime set correctly'
# Failed test 'File 1 mtime set correctly'
# Failed test 'File 2 atime set correctly'
# Failed test 'File 2 mtime set correctly'
# Looks like you failed 8 tests of 22.
Failed 8/22 subtests
../dist/Time-HiRes/t/utime.t (Wstat: 2048 (exited 8) Tests: 22 Failed: 8)
Failed tests: 2-3, 5-6, 12-15
-------------------------------------

Perl release v5.40.1
Module packed with Perl: Time::HiRes v1.9777
Linux version 6.1.0-12-686
Debian 6.1.52-1 (2023-09-07)

I looked at http://matrix.cpantesters.org/ but I haven't learned to interpret the test matrix yet (I'm pleading ignorance when really I am probably just too distracted right now).