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]

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.