Hi there, fellow monks!

If a committer is reading this, I would like to submit a grant not for myself for for Switch.pm author or any other volunteer to add given/when to Switch.pm

It's ironic that such a widely used module (Switch.pm) actually recommended for people to migrate to given/when and now Perl core decided to deprecate starting in 5.38

Adding a simplified, mostly compatible given/when in Switch.pm would save a lot of people a lot of trouble. I can suspect that most people just used it as a fancy if/elsif/else and did not use a lot of the smart matching capabilities, although I could be wrong. In any case, I think that in TIMTOWTDI tradition, we should add given/when to Switch.pm and allow most people to simply replace use feature 'switch' by use Switch

I am confident a committer will pick up this thread and endorse this proposal in my TPF Grant application, so I will just link this tread ;-)

TIA
Alex

perl -MCPAN -e 'install XML::Parser'
[download]

Reading '/Users/me/.cpan/Metadata'
  Database was generated on Wed, 26 Oct 2016 18:53:30 GMT
Reading '/Users/me/.cpan/sources/authors/01mailrc.txt.gz'
......................................................................
+......DONE
Fetching with LWP:
http://mirror.jre655.com/CPAN/modules/02packages.details.txt.gz
LWP failed with code[500] message[Can't connect to mirror.jre655.com:8
+0 (nodename nor servname provided, or not known)]

Trying with
    /usr/bin/curl -L -f -s -S --netrc-optional
to get
    http://mirror.jre655.com/CPAN/modules/02packages.details.txt.gz
curl: (6) Could not resolve host: mirror.jre655.com

    Function system("/usr/bin/curl -L -f -s -S --netrc-optional "http:
+//mirror.jre655.com/CPAN/modules/02packages.details.txt.gz"  > "/User
+s/me/.cpan/sources/modules/02packages.details.txt.gz.tmp13888"")
    returned status 6 (wstat 1536), left
/Users/me/.cpan/sources/modules/02packages.details.txt.gz.tmp13888 wit
+h size 0
    Warning: no success downloading '/Users/me/.cpan/sources/modules/0
+2packages.details.txt.gz.tmp13888'. Giving up on it.
Fetching with LWP:
http://mirrors.sohu.com/CPAN/modules/02packages.details.txt.gz
[download]

I have a server which is local (192.168.0.10) and I know mailx works correctly, because I can send an email directly from the terminal, even if I am local. This is the beauty of SimpleSMTP.

I have a program that sends an email with ssmtp (SimpleSMTP) via mailx. If the email is sent and there is no error, the user gets the sms and the web user gets back to the main menu page. If there is an error (Telus blocks me after a few tries), I tried to catch it with the END statement to send it back to the main menu, but it doesn't work.

Here is the code, with dummy email and domain: It's part of a sub:

In the web site logs, I get "mailx: ... message not sent:".

Thanks in advance.

$courrielclient="5555555555\msg.telus.com";
$textecourriel = "Ceci est un test de message texte (SMS)";
$sujet = "Test de rappel de rendez-vous $nomfournisseurcellulaire";
$from = "nepasrepondre\@testsms.ca";


open( my $mail, "| mailx -r $from -s $sujet $courrielclient");

say ("$mail $textecourriel");
close $mail;

END {
my $redirect = "/cgi-bin/chiro/menuprincipal.pl";

print "Location:$redirect\n\n";    
}
[download]

My apologies if this seems to be old hat but frustration has now become annoying and an internet search has not come up with an appropriate solution:

I wrote a perl program 2 years ago that worked and did what it was told to/asked to do and it utilised:

use Tk

I am now trying to rerun this program but it fails at trying to 'find' Tk - sure enough the module is not in any of the libraries in the path. Why it is no longer there is for another frustrating investigation by Yours Truly

I have tried re-installing it using ppm, cpan, cpanm (with and without 'forcing') but there is always something that fails

It also seems that Tk is no longer the simple name for this module but it has a version number as part of the build

All I want is my simple TK module back so that my loyal program can fulfil its duties once more.

I am using Strawberry Perl, v5.38.0 on a 64 Windows 10 machine

Any guidance would be most gratefully received

Greetings. I have a question about prepare-execute statements when passing a list of integers.

I'd like to figure out how to get the first query below ( SELECT recno, body FROM body WHERE recno IN (?); ) to produce the same three db records that the second query produces. Currently Dumper() shows an empty set for the first query but shows the correct three records for the second query. So the first query produces and empty set. The second query produces three records as expected. The difference seems to be a matter of query syntax. I am stumped as to the correct syntax for the prepare statement.

#!/usr/bin/perl

use DBI;
use Data::Dumper;

use strict;
use warnings;

my %bodies = ();
my $sth;
my @recnos = (2284, 2285, 2286);

my $dbfile="database-example.sqlite3";
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", undef, undef,
                       { AutoCommit => 0, RaiseError => 1 })
    or die("Could not open database '$dbfile': $!\n");

# this produces an empty set
my $query = 'SELECT recno, body FROM body WHERE recno IN (?);';
$sth = $dbh->prepare($query)
    or die("prepare statement failed: $dbh->errstr()\n");
$sth->execute( join(',', @recnos) )
    or die("execute statement failed: $dbh->errstr()\n");

my $bodies = $sth->fetchall_arrayref;

print "Part A\n",Dumper($bodies);

print "-"x39,"\n";

# this produces the expected three records
my $query = 'SELECT recno, body FROM body WHERE recno IN (2284, 2285, 
+2286);';
$sth = $dbh->prepare($query)
    or die("prepare statement failed: $dbh->errstr()\n");
$sth->execute( )
    or die("execute statement failed: $dbh->errstr()\n");

my $bodies = $sth->fetchall_arrayref;

print "Part B\n",Dumper($bodies);

$sth->finish;
$dbh->disconnect;

exit(0);
[download]

A work-around would be to just create a large query string and not worry about the place holder, but somehow I have it in my mind that place holders are the way to go. Sorry, I can't package this one up as a standalone, ready-to-run script as far as I know.

our $ctr = 0;
say "processing duplicates...";
LOOP:
foreach my $pid (@duplicated) {
    $pm->start and next LOOP; # do the fork
    unless ($ctr % 1000) {say $ctr;}
    $ctr++; 
    #do stuff
    $pm->finish; # exit the child process
}
[download]

But I get no error "module cannot be found" when running the script 'perl a.pl' which calls 'MyModule.pm' function 'call()' which calls 'MyModule2::authorize()'

Only if I run 'perl MyModule.pm' I get error "MyModule2.pm not found".

I have some common modules that are used in several places so I have created a directory for them at /usr/lib/perl_modules. I want to include this location in @INC for every user, including CRON.

I've added export PERL5LIB=/usr/lib/perl_modules in both /etc/environment and /etc/profile.

When I list the environment variables, PERL5LIB is there as expected. But when I try to use on of the modules I get an error:

Can't locate my_module.pm in @INC (you may need to install the my_modu
+le module) (@INC contains: /etc/perl /usr/local/lib/x86_64-linux-gnu/
+perl/5.36.0 /usr/local/share/perl/5.36.0)
[download]

I suspect the environment variable is set for root that I'm using to list the variables, but not for whatever process is running the script within Apache.

How can I properly set PERL5LIB for all users and processes or is there a better way to get an extra entry in @INC for every script without having to use lib in every script?