如何使用 perl 删除变量值的特定部分

Question

we have a variable values value is: /abc/cde/efg/sanj/Sent//abc/cde/efg/sanj/sample sample1.pdf

I want to remove the middle part of this value '/abc/cde/efg/sanj/'. Is it possible to remove this part.

Answer 1

Since we're talking paths,

use Path::Tiny qw( path );

my $qfn = '/abc/cde/efg/sanj/Sent//abc/cde/efg/sanj/sample sample1.pdf';
my $base_qfn = '/abc/cde/efg/sanj';

say path($qfn)->relative($base_qfn);

Output:

Sent/abc/cde/efg/sanj/sample sample1.pdf