I wrote the following code to modify a bunch of pandoc-generated DokuWiki formatted files in order to convert some expressions to DokuWiki internal links. That went through many iterations and I am now somewhat satisfied with the result except for one mystery I am unable to pierce through.
It does not crash my code, nor does it sends any warning, but I can't explain this result.

Here's my problem:

In this substitution part of the code: .(defined($4) ? $4 =~ tr[\/*][]dr : '.') line 44, I check if the value of $4 is defined and if it is, I apply a tr to it to remove italic (//) or bold (**) marks if they are present. If $4 is undefined (meaning there are no dot, comma or semicolon after the last word of the expression), the conditional operator sends a dot to end the substitution.

So either this data entry:

**Voir :** proton, solution hydrogénée//.//
[download]

**Voir :** proton, solution hydrogénée.
[download]

**Voir :** [[glossaire:entrees:p:proton|proton]], [[glossaire:entrees:
+s:solution_hydrogenee|solution hydrogénée]].
[download]

**Voir :** proton, solution hydrogénée
[download]

**Voir :** [[glossaire:entrees:p:proton|proton]], [[glossaire:entrees:
+s:solution_hydrogenee
|solution hydrogénée
]].
[download]

**Voir :** [[glossaire:entrees:p:proton|proton]], [[glossaire:entrees:
+s:solution_hydrogenee|solution hydrogénée]].
[download]

It may have something to do with the /x modifier I suspect.

The actual code follows

Thanks for reading through !

Test Summary Report
-------------------
t/start_child.t         (Wstat: 1280 Tests: 0 Failed: 0)
  Non-zero exit status: 5
  Parse errors: Bad plan.  You planned 2 tests but ran 0.
t/waitpid-conflict.t    (Wstat: 0 Tests: 2 Failed: 0)
  TODO passed:   1-2
t/waitpid-waitonechild.t (Wstat: 0 Tests: 3 Failed: 0)
  TODO passed:   2-3
Files=12, Tests=26, 74 wallclock secs ( 0.05 usr +  0.02 sys =  0.06 C
+PU)
Result: FAIL
Failed 1/12 test programs. 0/26 subtests failed.
dmake.exe:  Error code 255, while making 'test_dynamic'
-> FAIL Installing Parallel::ForkManager failed. See C:\Users\boss\.cp
+anm\work\1712513913.232104\build.log for details. Retry with --force 
+to force install it.
Expiring 2 work directories.
[download]

Hi

I am doing some timezone conversions, and I am realizing that this has some cavetas I am not understanding. In this particular case I am trying to convert from CET to Greenwitch. This is one hour difference, yet this script gives me two. It has probably to do with summer/wintertime? Which is the best approach to have precise conversions?

use DateTime;
use DateTime::Format::Strptime;

my $db_update_time = '2024-04-07 15:03:27';

my $parser = DateTime::Format::Strptime->new(
                pattern   => '%Y-%m-%d %T',
                locale    => 'en_US',
                time_zone => 'Europe/Berlin',
                on_error  => 'croak',
);

my $datetime = $parser->parse_datetime($db_update_time);
$datetime->set_time_zone('Greenwich');
$formatted_time = $datetime->strftime('%Y-%m-%d %T');

print $formatted_time;
#output: 2024-04-07 13:03:27
[download]

We've started the process of moving hosting server to a cheap VPS - just non-essential (read "hobby") sites for now whilst we get to grips with it and I learn how to manage a server...

All is going relatively well so far, but I've found an anomaly with time settings. Can anyone explain what is going on?

The 'old' server observes DST whereas the 'new' server doesn't. If I run timedatectl on the 'new' server it tells me it is set to UTC. I don't have access to run the same command on the 'old' server.

Here in the UK we are now on BST (GMT+1) so things that are time dependent (like Google Calendar feeds) that have been moved over are all 1 hour out. If I get the time from the MariaDB database SELECT NOW() I get GMT, as expected.

However, I have a bit of test code left in a page that only I use. It's a bit of JavaScript document.write(document.lastModified); which shows the time in BST. Doen't that time get passed in the HTTP headers from the Perl generated web page? Perl is, of course, also reporting GMT.

The obvious solution seems to be to change the server time from UTC to GMT.
Will that then observe UK DST?
Are there any reasons not to change the server to GMT bearing in mind that the entire codebase was written on a server that observes DST?

Update: - the "obvious" option to set would be 'Europe/London' but that is not included in timedatectl list-timezones

use strict;
use feature ':5.10';
use Parallel::ForkManager;

our $pm = Parallel::ForkManager->new(8);

$pm -> run_on_finish ( # called BEFORE the first call to start()
    sub {
        my ($pid, $exit_code, $ident, $exit_signal, $core_dump, $data_
+structure_reference) = @_;

        # retrieve data structure from child
        if (defined($data_structure_reference)) {  # children are not 
+forced to send anything
             my $string = ${$data_structure_reference};  # child passe
+d a string reference
             if ($string) { 
                  #how to process $string? 
             };
        }
        else {  # problems occurring during storage or retrieval will 
+throw a warning
            say qq|No message received from child process $pid!|;
        }
    }
);

LOOP:
foreach my $instance (0..100) {
    $pm->start and next LOOP; # do the fork
    my $data;
    foreach my $i (0..50) {
        push(@$data,int(rand(10));
    }
    $pm->finish(0,\$data); # exit the child process
}

$pm->wait_all_children;
[download]

use strict;
use warnings;
use experimental qw(builtin);

my @x = qw(one two three);

my $_1st = builtin::stringify @x;
my $_2nd = scalar @x;
print $_1st, "\n", $_2nd, "\n\n";

$_1st = builtin::stringify "@x";
$_2nd = scalar "@x";
print $_1st, "\n", $_2nd, "\n\n";

print builtin::stringify @x, "\n";
print scalar @x, "\n\n";

print builtin::stringify "@x", "\n";
print scalar "@x", "\n\n";

# UPDATE: remove duplicate test
#print builtin::stringify @x, "\n";
#print scalar @x, "\n\n";
[download]

Got this bit of code in a test:

say (exists $fs4->{_structure}{'/Users/dotfiles/perl5/my_modules'}{BLA
+H}{Crap});  # BLAH  and its parent do not exist
d $fs4; # dumps the object
[download]

The dump of the object now shows this:

### Dump from: 01-FSO_basic.t line: 35
$VAR1 = {
  '/Users/dotfiles/perl5/my_modules' => {
    'BLAH' => {}
  },
[download]

I was pretty surprised to see the path and BLAH in the output as keys. So why is 'BLAH' key getting autovivified? Second, how I work around this?

Update: This one-liner reproduces the problem for me:

perl -MData::Dump -E ' my $fs4 = {'_structure' => {}}; exists $fs4->{_
+structure}{BLAH}{TEST}{Crap}; dd $fs4->{_structure} '
[download]

Outputs:  { BLAH => { TEST => {} } }

There is a site I manage which is a good candidate for a forum. Here's what I'm after:

• Written in Perl (of course)
• Threaded discussions
• Backed by an open source DB or similarly open storage mechanism
• At least some sort of moderation system

Hopefully that's not too much to ask for. If you know of (or even better, use) such an application please reply with the details.

And yes, I do realise I'm asking this on precisely the type of platform I'm looking for but the gods and pmdevs constantly moan about how unmaintainable it is so perhaps it isn't a great option from a backend point of view. It is lovely to use as a normie, though. :-)

ID1<TAB>name1-name2-name3-name4....-nameX
ID2<TAB>name1-name2-name3-name4....-nameX
ID3<TAB>name1-name2-name3-name4....-nameX
...
[download]

ID1<TAB>nick-john-helena
ID2<TAB>george-andreas-lisa-anna-matthew-andreas-lisa
ID3<TAB>olivia-niels-peter-lars-niels-lars-olivia-olivia
...
[download]

ID1<TAB>nick-john-helena
ID2<TAB>george-andreas-lisa-anna-matthew
ID3<TAB>olivia-niels-peter-lars
[download]