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

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]