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

【问题标题】：How can i remove a specific part of a variable value using perl如何使用 perl 删除变量值的特定部分
【发布时间】：2020-09-21 16:21:41
【问题描述】：

我们有一个变量值值为：/abc/cde/efg/sanj/Sent//abc/cde/efg/sanj/sample sample1.pdf

我想删除这个值'/abc/cde/efg/sanj/'的中间部分。是否可以删除这部分。

【问题讨论】：

在这个变量中我们发现了双重forward slash //? sent 是关键字？

标签： linux perl unix

【解决方案1】：

既然我们在谈论路径，

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);

输出：

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

【讨论】：