On macos running 5.36 with zsh, this works:

#!/usr/bin/env perl

use strict;
use warnings;

system 'command task list';
[download]

It lists the tasks in Taskwarrior. However, the same code on a docker container running also running zsh and 5.36 throws this at me:

Can't exec "command": No such file or directory at ./test.pl line 6.
[download]

zsh version on alpine is 5.9 (x86_64-alpine-linux-musl). macos is zsh 5.8.1 (x86_64-apple-darwin22.0). which command reports: "command: shell built-in command" on both mac and on docker alpine.

Any ideas what the problem might be?

sub processComparison {

    # INCOMING COMPARISON-COLUMN DETAILS
    my (
        $table,            #MAIN COLUMN NAME
        $ACCP_searchver1,  #COMPARISON COLUMN NAMES/SELECTIONS
        $ACCP_searchver2,
        $ACCP_searchver3,
        $ACCP_searchver4,
        $ACCP_comp1,    #ORIGINAL USER-ENTERED QUERY
        $ACCP_comp2,
        $ACCP_comp3,
        $ACCP_comp4,
        $ACCP1_regex,   #USER SELECTION FOR REGEX vs. SIMPLE MATCH
        $ACCP2_regex,
        $ACCP3_regex,
        $ACCP4_regex,
        $accpyn1,       #USER SELECTION FOR MATCH/NO MATCH
        $accpyn2,
        $accpyn3,
        $accpyn4 
    ) = @_;          # INCOMING ARRAY

    my $regex1 = &composeRegex($ACCP1_regex,$ACCP_comp1);
    my $regex2 = &composeRegex($ACCP2_regex,$ACCP_comp2);
    my $regex3 = &composeRegex($ACCP3_regex,$ACCP_comp3);
    my $regex4 = &composeRegex($ACCP4_regex,$ACCP_comp4);

    my @main     = &getTableFC($table);
    my @crosscheck1 = &getTableFC($ACCP_searchver1) if ($regex1);
    my @crosscheck2 = &getTableFC($ACCP_searchver2) if ($regex2);
    my @crosscheck3 = &getTableFC($ACCP_searchver3) if ($regex3);
    my @crosscheck4 = &getTableFC($ACCP_searchver4) if ($regex4);

    my $linecount=0;
    my ($line, $line1, $line2, $line3, $line4) = ('','','','','');

    foreach $line ( @main ) {
        $line1 = $crosscheck1[$linecount];
        $line2 = $crosscheck2[$linecount];
        $line3 = $crosscheck3[$linecount];
        $line4 = $crosscheck4[$linecount];
        $line =~ s/^\s+|\s+$//; chomp $line;
        $line1 =~ s/^\s+|\s+$//; chomp $line1;
        $line2 =~ s/^\s+|\s+$//; chomp $line2;
        $line3 =~ s/^\s+|\s+$//; chomp $line3;
        $line4 =~ s/^\s+|\s+$//; chomp $line4;

        my ($r1,$r2,$r3,$r4) = (0,0,0,0);   #USING THESE TO TALLY MATC
+HES

    # CHECK REGEX MATCHES FOR COMPARISON COLUMNS
    if ($regex1) {
        $r1++;
        if ($accpyn1) { 
            if ($line1 =~m/$regex1/) { $r1++ }
        } else {
            if ($line1 !~ m/$regex1/) { $r1++ }
        }        
    };
    if (($regex2) && ($r1!=1)) {
        $r2++;
        if ($accpyn2) { 
            if ($line2 =~m/$regex2/) { $r2++ }
        } else {
            if ($line2 !~ m/$regex2/) { $r2++ }
        }        
    };
    if (($regex3)&&($r1!=1)&&($r2!=1)) {
        $r3++;
        if ($accpyn3) { 
            if ($line3 =~m/$regex3/) { $r3++ }
        } else {
            if ($line3 !~ m/$regex3/) { $r3++ }
        }        
    };
    if (($regex4)&&($r1!=1)&&($r2!=1)&&($r3!=1)) {
        $r4++;
        if ($accpyn4) { 
            if ($line4 =~m/$regex4/) { $r4++ }
        } else {
            if ($line4 !~ m/$regex4/) { $r4++ }
        }        
    };

    # LINE UP MATCH RESULTS TALLIES
    if ( ($r1!=1) && ($r2!=1) && ($r3!=1) && ($r4!=1) )
        {    #PASSED COMPARISON FILTER
            #DO CODE TO FORMAT & RETURN $line FOR MAIN COLUMN
        }

    } # end foreach $line

} #END SUB processComparison
[download]

I hate to say it, but the only other module system that I'm familiar with, that takes as-long or longer to build out modules is npm.

Hello Monks, I'm using Mojo to parse html and am trying to print the array that I have grabbed and I am getting the following when I print $r2: r2 = Mojo:Collection=ARRAY (0x7fa51ac83968). How can I print the content of the array? This is the code I used to grab the html that I wanted.

Thanks in advance for any assistance that you can provide

Hi,

I am trying to solve day 8, part a. of Advent of Code: https://adventofcode.com/2022/day/8 . I am being flooded with uninitialized value warnings for lines 52, 55, 72, and 75. Here is one:

Use of uninitialized value in numeric lt (<) at ./day8a-l.pl line 55, <$line> line 98

My input is 99 lines with 99 numbers ranging from 0-9 on each line(no whitespace). Here is my code:

#!/usr/bin/perl

use strict;
use warnings;

my @row;
my $current = 0;
my $visible = 198;
my $found = 0;

open(my $lines, '<', 'input8.txt');

foreach (<$lines>)
{
    chomp;
    for my $l (0..length()-1)
    {
        my ($digit) = /^.{$l}(.)/;
        if (defined $digit)
        {
            $row[$current][$l] = $1; 
        }
    }
    $current += 1;
}

close $lines;
open(my $line, '<', 'input8.txt');

$current  = 0;

while (<$line>)
{
    chomp;
    if ($current > 0 and $current < 98)
    {
        $visible += 2;
        for (my $i = 1; $i < 98; $i++)
        {
            my $counter = 1;
            $found = 0;
            while ($row[$current][$i-$counter] < $row[$current][$i] an
+d $found == 0)    
            {
                $counter += 1;
                if ($counter == $i)
                {
                    $visible += 1;
                    $found = 1;
                    $counter = 1;
                }
            }
            while ($row[$current][$i+$counter] < $row[$current][$i] an
+d $found == 0)
            {
                $counter += 1;
                if ($counter == $i)
                {
                    $visible += 1;
                    $found = 1;
                    $counter = 1;
                }
            } 
            while ($row[$current-$counter][$i] < $row[$current][$i] an
+d $found == 0)
            {
                $counter += 1;
                if ($counter == $current)
                {
                    $visible += 1;
                    $found = 1;
                    $counter = 1;
                }
            }
            while ($row[$current+$counter][$i] < $row[$current][$i] an
+d $found == 0)
            {
                $counter += 1;
                if ($counter == $current)
                {
                    $visible += 1;
                    $found = 1;    
                    $counter = 1;
                }
            }
        }
    }
    $current += 1;
}
close $line;

print $visible . "\n";
[download]

I'd be really grateful for any suggestions. Thanks,

L

I’m slightly mystified by this documentation: https://metacpan.org/pod/Gearman::Client.

There's a command_timeout option which can be passed:

command_timeout

Maximum time a gearman command should take to get a result (not a job timeout)

default: 30 seconds

What is the result in question if it's not a response from the command-line job Gearman is running?

my $text = 'This is just an arbitrary example of text.';

#ONLY TWO WORDS ARE CAPTURED--WE WANT TO HIGHLIGHT ONLY THOSE
my $query = qr~(?:(?:This)|(?:That)).*?(just).*?(arbitrary).*?$~;

#THIS WOULD HIGHLIGHT THE ENTIRE LINE
$text =~ s~($query)~<span class="highlight">$1</span>~g;
[download]

When a button is in the disabled state it does not respond -as advertised, but once the button is enabled again it responds to all presses that it received when it was in the disabled state. I can't figure out how to eliminate this behavior. I do not want the button to respond to anything that happened when it was disabled -ever. Can anyone help me with this? Here's a program to demonstrates the problem, it disables all buttons for 4 seconds whenever one is pressed. Thanks

use Tk;

my $mw = MainWindow->new;

my %btns;
for (qw(alpha beta gamma)){
    my $name = $_;
    $btns{$_} = $mw->Button(
        -text => $_,
        -command => sub{foo($name)},
        )->pack;
}

MainLoop;

sub foo{

    my $name = shift;
    for (keys %btns){
        $btns{$_}->configure(-state => 'disabled');
    }

    my %dispatch =(
        alpha => \&alpha,
        beta => \&beta,
        gamma => \&gamma,
        );

    $dispatch{$name}->($name);

    for (keys %btns){
        $btns{$_}->configure(-state => 'normal');
    }
}

sub alpha{
    print "alpha\n";
    sleep 4;
}
sub beta{
    print "beta\n";
    sleep 4;
}
sub gamma{
    print "gamma\n";
    sleep 4;
}
[download]

I have a text file converted from HTML. I need to format this file and output it into a standard size (8.5 X 11 inches), similar to the size of the regular MS word page, but still in text format. Below is my code. Any comments are greatly appreciated. Thank you!

use strict;
use warnings;


my($data, $input, $output, $newdata);

$input = 'C:\Users\xxx\Documents\input.txt';
$output = 'C:\Users\xxx\Documents\output.txt';

open (INFILE, '<', $input);
open (OUTFILE, '>', $output);

    local $/;
    $data = <INFILE>;


          
    print OUTFILE "$newdata";
              
              
close INFILE;
close OUTFILE
[download]

Hi all, please consider this example from FFI::Platypus:

#include <string.h>
#include <stdlib.h>
 
const char *
string_reverse(const char *input)
{
  static char *output = NULL;
  int i, len;
 
  if(output != NULL)
    free(output);
 
  if(input == NULL)
    return NULL;
 
  len = strlen(input);
  output = malloc(len+1);
 
  for(i=0; input[i]; i++)
    output[len-i-1] = input[i];
  output[len] = '\0';
 
  return output;
}
[download]

use FFI::Platypus 2.00;
 
my $ffi = FFI::Platypus->new(
  api => 2,
  lib => './string_reverse.so',
);
 
$ffi->attach( string_reverse => ['string'] => 'string' );
 
print string_reverse("\nHello world");
 
string_reverse(undef);
[download]

Note the second call of string_reverse. From ibidem:

"At the end of the program we call reverse_string with undef, which gets translated to C as NULL. This allows it to free the output buffer so that the memory will not leak."

A smart aleck might jump to the conclusion to replace malloc with GC_MALLOC as described here.

Is this recommended or will it cause problems in the future not yet imaginable now?

Thanks for any hint and best regards, Karl

P.S.: See also Boehm–Demers–Weiser Garbage Collector

Update: Thank you all for the kind and very informative responses. I now consider this a research project for the future. So far I don't even know if the mentioned library compiles on the Mac. I will report back.