Perl获取站点路径

Question

我想知道如何解析网站的路径 例如：

http://example.org/hello/ok/fl.jpg

有没有一种方法可以解析此部分（路径）

/hello/ok/

Answer 1

这里是Mojolicious。 path方法返回一个Mojo::Path对象，您可以对其进行操作：

use Mojo::URL;
my $url = "http://example.org/hello/ok/fl.jpg";
say Mojo::URL->new( $url )->path->to_dir;

这里是URI，开头是相同的，但以字符串形式返回路径。您可以获取细分，然后删除最后一个细分。用空字符串替换它，然后用join /加上斜杠：

use URI;
my $url = "http://example.org/hello/ok/fl.jpg";
my @segments = URI->new( $url )->path_segments;
$segments[-1] = '';
say join '/', @segments;