Re^2: experiencing slowness due to matching algorithm

I will try it thanks!
The problem is that 0 == index $subpath, "$target/" is not quite the same as $subpath =~ /^$target\// because I want it to start with $target. Is there something similar to startswith of Python?

Comment on Re^2: experiencing slowness due to matching algorithm Select or Download Code

Replies are listed 'Best First'.
Re^3: experiencing slowness due to matching algorithm by hippo (Archbishop) on Jan 09, 2023 at 11:28 UTC
Please provide a value each for $subpath and $target where `0 == index $subpath, "$target/"` is true and where $subpath does not start with $target. `use strict; use warnings; use Test::More; my @tests = ( { subpath => 'foo/bar', target => 'bar' }, { subpath => 'foo/bar', target => 'ba' }, { subpath => 'foo/bar', target => 'oo' }, ); plan tests => scalar @tests; for my $t (@tests) { isnt index ($t->{subpath}, "$t->{target}/"), 0, "False, as expecte +d" }` [download] 🦛	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: experiencing slowness due to matching algorithm
by hippo (Archbishop) on Jan 09, 2023 at 11:28 UTC

Please provide a value each for $subpath and $target where 0 == index $subpath, "$target/" is true and where $subpath does not start with $target.

use strict;
use warnings;

use Test::More;

my @tests = (
    { subpath => 'foo/bar', target => 'bar' },
    { subpath => 'foo/bar', target => 'ba' },
    { subpath => 'foo/bar', target => 'oo' },
);

plan tests => scalar @tests;

for my $t (@tests) {
    isnt index ($t->{subpath}, "$t->{target}/"), 0, "False, as expecte
+d"
}
[download]

🦛

[reply]
[d/l]
[select]