It is zipping all of them into just one file and I know it must be something simple that I am missing.

#!/usr/bin/perl
use IO::Compress::Zip qw(:all);
$path='/DATA/DOCUMENTS/';
opendir my $dh, $path;
my @files = readdir $dh;
foreach my $files (@files){
print "$files\n";
$zipfilename=substr($files,7);
$zipfilename1=$path.$zipfilename;
zip [ glob("$zipfilename1*.pdf") ] => "$zipfilename1.zip"
 or die "Cannot create zip file: $ZipError" ;
}
closedir $dh;
[download]

This is going to seem like a very esoteric line of inquiry, I suspect, but I will put it out here for the fine monks and nuns to give me feedback.

I use a computer with Windows 10 and with Cygwin installed (as I often mention on PMo). I have this computer and 5 other computers to configure for file locations under my home dir for the vim editor, meaning places to keep backup files and to keep swap files. All those 5 systems run Debian or some derivative distro of Debian Gnu/Linux. So things as they stand will be relatively predictable when I get around to configuring them. Yes, I could do this "by hand" on each system, but automating such a repetitive chore is exactly one of the compelling reasons Perl exists.

Here are the outputs of my script using File::XDG at this stage of writing it (see the code below):

According to File::XDG on Cygwin, the following directories would be used for "vim":

Config for app vim is   C:/Users/somia/config/vim
Data for app   vim is   C:/Users/somia/AppData/share/vim
Cache for app  vim is   C:/Users/somia/cache/vim

According to File::XDG on MSWin32, the following directories would be used for "vim":

Config for app vim is   C:/Users/somia/AppData/Local/.config/vim
Data for app   vim is   C:/Users/somia/AppData/Local/.local/share/vim
Cache for app  vim is   C:/Users/somia/AppData/Local/.cache/vim

According to File::XDG on Linux, the following directories would be used for "vim":

Config for app vim is   /home/somian/.config/vim
Data for app   vim is   /home/somian/.local/share/vim
Cache for app  vim is   /home/somian/.cache/vim

The Code

EDIT

The original code I posted - unfinished, placed in READMORE tags:

The (probably) final code

#!/usr/bin/env perl
# Last modified: Tue May 27 2025 03:02:52 PM -04:00 [EDT]

use strict;
use v5.18;
use utf8;
use warnings;

=head1 SYNOPSIS
perl Emplace-XDG-dirs

=cut

use File::XDG 1.00;
use File::Spec;
use File::Path qw(mkpath rmtree);
use subs qw/tellMe/;

my ($XDGUser, $XDGData, $XDGCache);
my $appName = 'vim';
my $xdgEmp = File::XDG->new( name => $appName , api => 1 );

$XDGUser   = $xdgEmp->config_home;
$XDGData   = $xdgEmp->data_home;
$XDGCache  = $xdgEmp->cache_home;

my @branches = (File::Spec->catdir($XDGData => 'backups'),
                File::Spec->catdir($XDGData => 'swapfiles'));

say "We could make these dirs for you:";
say join qq[\n]=>@branches, '';
if (tellMe("making those dirs for $appName")) {
    mkpath (@branches, {verbose => 'true', mode => 0775});
} else {
    say "No? OK, aborting now";
}   

=head2 Vim settings

  Put in our .vimrc config file:

  set backup
  set backupcopy=auto
  set backupdir= ... (dir created by script)
  set directory= ... (dir created by script)

=cut

sub tellMe {
    my $gummy = $_[0];
    my $ans = "Y";
    printf "Do you want proceed with: %s? [Y/n]\n", $gummy;
    chomp ($ans = <STDIN>);
    if ($ans =~/Y|y/)     {
        return 1;
    } elsif ($ans eq '')  {
        return 1;
    } else                {
        return 0;
    }
}
# vim: ft=perl et sw=4 ts=4 :
[download]

Thanks for your interest!

Greetings, PerlMonks!

I'm trying to figure out if foreach is faster than grep with map. I've replaced grep and map in a large script with foreach and noticed a substantial speed improvement, so my guess is that it is faster. However, I'd like to verify that somehow.

With the two scripts below, am I comparing the same things and not apple to oranges? Or have I misunderstood grep and map?

#!/usr/bin/perl

use strict;
use warnings;

my @c = (1 .. 10000000);

my @d;
foreach my $dd (@c) {
    push(@d, $dd % 2);
}

my @e;
foreach my $ee (@d) {
    if (!$ee) {
        push(@e, $ee);
    }
}

exit(0);
[download]

The script above is much faster than the one below, according to time.

#!/usr/bin/perl

use strict;
use warnings;

my @c = (1 .. 10000000);

my @d = map( $_%2, @c);

my @e = grep(/0/, @d);

exit(0);
[download]

x %INC shows that modules Term::Readline, Term::ReadKey and Term::Cap are loaded.

Does anybody know, how to switch off this editing function binding?

Thanks!

I'm an experienced perl programmer, and am having difficulty getting the module XS-Typemap::Typemap to work. It needs an XS.pm . I have searched, searched, and pulled out a lot of hair, and I cannot find what I must install to get an XS.pm . No, it's not something::XS or XS:something, just plain XS. I have installed Debian apts

  libx11-xcb
  libx11-xcb-dev
  libx11-protocol-perl
  libx11-protocol-other-perl
  libx11-xcb-perl
  xorg-dev
  libxext-dev
  libxfexes-dev
  libx11proto-dev
  libxmu-dev
  libxmuu-dev
  libxt-dev
  xutils-dev
  libperl-dev

Many thanks,

Lyman

I have a command-line app that parses commands and prints the output to the terminal. In search of new features, I'm migrating the terminal library from readline to tickit.

To simplify this changeover, my plan is to use open and select to direct the default output filehandle to a $variable, and then periodically dump the contents of $variable to a tickit widget.

I'm close, but my naive implementation loses every other line of output. Seems like I need to away to ensure that writes to $command_output are held up while printing and then deleting the contained text. Some kind of first-in-last-out buffer with synchronization.

Will be grateful for any hints on an easy way to accomplish this. Here is sample code demonstrating my conundrum:

I am having a problem with understanding expect. I have am trying to create an shh script. I have 3 different conditions:

1. host is unknown it needs to be added to known host list,
2. host needs password,
3. host dose not need password as it is using ssh key.

 $exp->expect($timeout,
             [ qr/\(yes\/no\)\?/i, sub { my $self = shift;
                                      $self->send("yes\r");   <----unk
+nown host
                                      exp_continue; }],
             [ qr/password: /i, sub { my $self = shift;
                                      $self->send("$password\n"); <---
+--- needs password
                                      exp_continue; }],
             [ qr/#/i, sub { my $self = shift;                 <------
+-- ready to go.
                                      $self->send("ls\n");
                                      ;
                                       }],

            );
[download]

So how do I, once I get through the 3 conditions continue using expect?

$exp->expect($timeout,
             [ qr/#/i, sub { my $self = shift;
                                      $self->send("ll\n");  <---- only
+ works when I have a line below (crazy that is how I know this is not
+ right)
                                      ;
                                       }],                          un
+less ($exp->expect($timeout, -re , "~")){} ;

            );
[download]

#!/usr/bin/env perl
use strict;
use warnings;
use Expect;
#$Expect::Exp_Internal = 1;
my $command = "ssh";
my $user = "root";

my @ips = ("10.16.135.157");
my $cnt= 0+@ips;
my $password = "aristo1";
my $timeout = 10;
for (my $i =0; $i < $cnt; $i++) {
my $exp = Expect->spawn ($command, "$user"."@"."$ips[$i]");
#$exp->debug(2);

$exp->expect($timeout,
             [ qr/\(yes\/no\)\?/i, sub { my $self = shift;
                                      $self->send("yes\r");
                                      exp_continue; }],
             [ qr/password: /i, sub { my $self = shift;
                                      $self->send("$password\n");
                                      exp_continue; }],
             [ qr/#/i, sub { my $self = shift;
                                      $self->send("ls\n");
                                      ;
                                       }],

            );

$exp->expect($timeout,
             [ qr/#/i, sub { my $self = shift;
                                      $self->send("ll\n");
                                      ;
                                       }],

            );


unless ($exp->expect($timeout, -re , "~")){} ;
#                 $exp->send("time\n");

}
[download]

Hello, I've installed https://metacpan.org/dist/PLS module.
Configured it in NVIM with https://github.com/neovim/nvim-lspconfig plugin.

Auto completions work. It even shows documentation excerpts, when cursor is over some keyword or library module, but out of all issues, my biggest problem is that Language Server's renaming doesn't work.
When I try to rename some function or a variable, it gives me an error:

'[LSP] Rename, no matching language servers with rename capability.'

Does anybody know, if perl Language servers don't support such functionality or did I configure something wrong?

Dancer2::Manual::Deployment even mentions such a possibility, so I followed the instructions. I included

behind_proxy: 1
[download]

I was given a prefix under which the app would be running, e.g. https://example.com/prefix/login.

But it doesn't work correctly. For example, the css files are ignored. Or rather, they can't be found.

The main.tt template was created with the following link (part of the initial scaffolding):

<link rel="stylesheet" href="<% request.uri_base %>/css/style.css">
[download]

But the request.uri_base doesn't expand to /prefix, it remains empty.

Similarly, I use Dancer2::Plugin::Auth::Tiny for user authentication. Again, I almost copied verbatim the synopsis code:

get '/' => needs login => sub {
    # ...
};

get '/login' => sub {
    template 'login'
};

post '/login' => sub {
    my $user = body_parameters->get('uname');
    if (is_valid($user, body_parameters->get('psw'))) {
        session(user => $user);
        redirect('/')
    } else {
        template index => {error => 'Wrong username or password'}
    }
};
[download]

But again, when I try to open the page, the authentication plugin redirects the browser to /login instead of /prefix/login.

I was able to fix the problems by

• removing the request.uri_base from the templates

    <link rel="stylesheet" href="css/style.css">
  [download]

• by configuring the plugin to use the prefix

  plugins:
    Auth::Tiny:
      login_route: /prefix/login
  [download]

• by not using the / path, instead the main page is now /menu (because redirect('/') ignored the prefix, again, so I have to do redirect('menu') — i.e. no slash).

Mentioning the prefix in the config definitely feels wrong. Hardcoding the prefix into the app? It also means the app can't be run locally on localhost for testing anymore.

How should I properly write the app, configure it, and configure Apache to make it work both locally and in production, without hardcoding the prefix anywhere in the app?

Interestingly, all Python flask and whatever apps written by other colleagues run as written without problems.

Greetings, PerlMonks.

I have run into a puzzle with XML::Twig where I am looking for specific elements and then need to find the text adjacent to those elements. The code snippet below illustrates the puzzle with one such sought after element and adjacent text in its __DATA__ section.

#!/usr/bin/perl

use XML::Twig;

use strict;
use warnings;

my $xml = XML::Twig->new(
    twig_handlers => { 'text:bookmark' => \&handler_bookmark } );

$xml->parse(\*DATA);

print qq(\n\n);
$xml->print;

exit(0);

sub handler_bookmark {
    my ($twig, $bookmark)= @_;

    $bookmark->parent->print;
}

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<text:h text:style-name="P900" text:outline-level="3">
<text:bookmark text:name="_asdfqwerzxcv"/>Foo bar
</text:h>
[download]

The two output items should be identical but are not. Specifically the string "Foo bar" is missing from the first output which has its origin in the handler_bookmark handler subroutine. I would expect that ->parent would still contain the text it started with, but it does not. Using ->parent->text does not retrieve the string either. Nor does using ->parent_text find it either.

What can be done using XML::Twig to find the text "next to" an element?