I would like to create my own subroutines which would work the same way as print FILEHANDLE LIST works.

Is there any non-magic way to create a subroutine with an optional first argument? Or would that just create confusion in code?

The sub in question would be used to send a job into a queue. In most circumstances, there is only one queue. But there could be others. And the sub takes only one argument.

example:

queue $job;
queue OTHER_QUEUE $job;
[download]

Hi Esteemed Monks,

my @diff = <<EOF
     @@ -3,7 +3,7 @@;
     id : 6109;
     name: abc;
     value: 0;
    - status: ?;
    + status: C;
      time: 2023-01-01 12:00;
      @@ -3,8 +3,8 @@;
     id : 6109;
     name: abc;
    - value: 0;
    - status: ?;
    + value: 2
    + status: CS;
      time: 2023-01-01 12:03;
    @@ -3,7 +3,7 @@;
     id : 6109;
     name: abc;
     value: 0;
    - status: ?;
    + status: C;
      time: 2023-01-01 12:05;
EOF
[download]

                 6109 changed on 2023-01-01 12:00, before status is ? 
+after is C.
                 6109 changed on 2023-01-01 12:03, before value is 0 a
+fter is 2, before status is ? after is CS.
                 ......
[download]

Dear Monks

I have a dataset with columns and I want to evaluate a statement on each of the rows in the data. I can do this pretty easily. Loop

through each column, check if the column exists in the evaluation statement. If it does, replace the column name with the value

and do the evaluation. I can easily do this using regular expressions. Just curious how a true perl monk would approach this.

#!/usr/bin/perl
use strict;
use warnings;

my $row = {
a => 1,
b => 2,
c => 3,
d => 4
};

my $evalStatement="a>0";

sub evaluateRow { 
   my ($row) = @_;

## loop through each column a,b,c,d and if column exists in the evalua
+tion statement
## replace column with value

  if (eval(1>0)) {
     return 1 ## "ACCEPT row"
  } 
  
  return 0 ## "REMOVE row"
}
[download]

Thank you !!

I am trying to compute the number of intersecting array elements for multiple arrays (essentially elements belonging to separate parts of venn diagrams). Initially and naively I thought this should be an easy thing to do and for 2 arrays it is:

1. Make a hash table for one array with keys being its elements
2. Loop through another array and count if an element exists in the previously created hash table
3. Subtract the number of shared elements from the total number of elements of each array.

But when the number of arrays increases the number of possible intersections between respective arrays increases (for A,B,C arrays we have A/B, A/C, B/C, A/B/C). So the problem I am having is how to scale the above algorithm.

Does anyone know a solution to this problem even if a limited number of sets can only be included (I think this is an NP problem thus any algorithm that can produce a solution for more than 7 arrays would be acceptable)

Thank you

Hi Monks, I'm looking for suggestions on a personal project. I'm writing a program to fetch a page listing items for sale on an auction site, then parse it into an array (AoA) with title, link and price for each item (this part is done). The idea is to have it search the AoA next for items I'm looking for based on search parameters I set in a config file, then build an html file listing just those items so I can view it in a browser later. I'll use a cron job to run the program nightly.

I want to be able to do better than the basic search engine that you find on those type of sites. Maybe using something similar to SQL where you can have logical operators such as AND, OR, NOT and also be able to deal with variations in spelling of words. The search function is is where I'm looking for suggestions. Speed is not an issue and I'd like to avoid using a database. Are there any modules or examples that you can point me to? Thanks

@ranges = ([172,178],[183,189],[201,208]);
[download]

$input =~ s/(\d+)/(grep {$1 >= $_->[0] && $1 <= $_->[1]} @ranges) ? $s
+ymbol : $1/eg;
[download]

@ranges = ();
push @ranges, "[172,178]";
push @ranges, "[183,189]";
push @ranges, "[201,208]";
[download]

I copied all the functions from perldoc and put them in an Excel file, and then I organized them into two groups -- the ones that I understand already and the ones that I don't understand. Then I broke them down into futher sub groups. These are the ones that I have used before and somewhat understand how they work and what they do:

FLOW-CONTROL:
goto sub if elsif else for foreach while continue next last return do die exit sleep kill system exec and or && || ? :

STDIO AND FILE SYSTEM I/O:
open print printf sysopen sysseek binmode eof rename chmod close unlink getc read stat utime seek tell sysread syswrite truncate opendir chdir closedir mkdir rmdir readdir rewinddir -e -f -s -d

MATH:
abs int ord srand rand exp cos sin sqrt ++ -- + - / * << >> == *= /= |= &= != >= <= < > | ^ & ! % ~

STRINGS:
substr length vec chomp chop pack unpack hex oct chr undef sprintf uc lc index rindex eq ne qw tr y s m x =~

LISTS:
map grep splice reverse push pop shift unshift sort split join

VARIABLES:
defined exists ref my scalar caller wantarray @_ @ARGV $_ $a $b $0 __FILE__ $^O $^T $^W $| $$ $[ $] $/ $ENV{NAME} $1 $2..

TIME:
localtime time

OTHER:
use package import eval require warn __END__ __DATA__

Now, these are the ones that I don't understand:

Never used these and not sure:
atan2 q qx qq qr chown reset gmtime fork link symlink local dump bless our pos readline readlink syscall write format seekdir telldir lock prototype formline getppid keys log

Never used these and have no clue what they do or what purpose they serve:
accept endgrent endhostent endnetent endpwent endprotoent endservent tie bind untie dbmclose shutdown connect socketpair socket dbmopen delete readpipe glob fcntl getpeername tied getpriority getgrnam getgrgid gethostbyaddr gethostbyname getnetbyaddr getnetbyname getgrent gethostent getnetent getpwent getprotoent getservent getpwuid getpwnam getpgrp getprotobyname getprotobynumber getservbyname getservbyport semget getsockopt msgget shmget flock chroot m crypt pipe study setgrent sethostent setnetent setpwent setprotoent setservent quotemeta shmread recv msgrcv listen select each getsockname values lcfirst ucfirst times fileno getlogin alarm send msgsnd setpriority umask setsockopt setpgrp redo lstat ioctl msgctl semctl semop shmctl no waitpid wait shmwrite

linux> cpan -v
linux>
[download]

Since the update, when I try to do almost anything, I get this message:

CPAN: Net::SSLeay loaded ok (v1.55)
CPAN: IO::Socket::SSL loaded ok (v2.056)
Fetching with HTTP::Tiny:
https://cpan.org/authors/01mailrc.txt.gz
HTTP::Tiny failed with an internal error: SSL connection failed for cp
+an.org: SSL connect attempt failed error:14090086:SSL routines:ssl3_g
+et_server_certificate:certificate verify failed
[download]

I also tried to change it to both of these:

'urllist' => [q[http://metacpan.org/]]
and
'urllist' => [q[http://cpantesters.org/]]
[download]

I also deleted /.cpan/BUILD , which chatbotAI said would kill the cache. No change, still the same error. It's ignoring the config changes. Yet when I rm -f .cpan, it rebuilds it THERE. So it does expect the config to be there. I'm doing all of this as root. I also did an updatebb and then locate on .cpan and the only one on the box is under ~/. Surprisingly, even

cpan -M https://cpan.cpantesters.org/ Crypt::RSA
[download]

Fetching with HTTP::Tiny:
https://cpan.org/modules/02packages.details.txt.gz
[download]

Friday, I have a ton of code to write, and down this rabbit-hole was the LAST thing I needed! Help is most appreciated- even help on going BACK to v1.9x ?

In the Constants.pm module I've added the following to define the page names to the enumeration from the Microsoft documentation

    ppSlideSize35MM        =>  4,
    ppSlideSizeA3Paper     =>  9,
    ppSlideSizeA4Paper     =>  3,
    ppSlideSizeB4ISOPaper  => 10,
    ppSlideSizeB4JISPaper  => 12,
    ppSlideSizeB5ISOPaper  => 11,
    ppSlideSizeB5JISPaper  => 13,
    ppSlideSizeBanner      =>  6,
    ppSlideSizeCustom      =>  7,
    ppSlideSizeHagakiCard  => 14,
    ppSlideSizeLedgerPaper =>  8,
    ppSlideSizeLetterPaper =>  2,
    ppSlideSizeOnScreen    =>  1,
    ppSlideSizeOverhead    =>  5,
[download]

In the PowerPoint.pm module I've added a method to alter the page setup like this

sub page_setup
{
  my ($self, $options) = @_;

  $options = {} unless ref $options eq 'HASH';

  $self->presentation->PageSetup->SlideSize($options->{slidesize});

  $self->presentation->PageSetup->SlideWidth($options->{width});
  $self->presentation->PageSetup->SlideHeight($options->{height});
}
[download]

In my call to this function I try to set the slide size with no luck

  # Set the slide size
  $PPT->page_setup( { slidesize  => 'ppSlideSizeLetterPaper',
                      width      => 11*72,
                      height     => 8.5*72 } );
[download]

When I debug the code and print out the slide information ... from within PowerPoint.pm from this code

print "\nPowerPoint.pm(): slide size=" . $self->presentation->PageSetu
+p->SlideSize . "\n";
print "PowerPoint.pm():   width=" . $self->presentation->PageSetup->Sl
+ideWidth . "\n";
print "PowerPoint.pm():  height=" . $self->presentation->PageSetup->Sl
+ideHeight . "\n\n";
[download]

I list out the options called (they seem to be right) and get the answers like this

PowerPoint.pm(): options:
                    slidesize=ppSlideSizeLetterPaper
                    height=612
                    width=792

PowerPoint.pm(): slide size=7
PowerPoint.pm():   width=960
PowerPoint.pm():  height=540
[download]

Your humble apprentice formerly registered as nzsvz9 but can't find or fix his login so newly creating this EnzoXenon account