perl - perl 获取站点路径

Question

我想知道如何解析来自站点 ex 的路径：

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

有没有办法解析这部分（路径）

/hello/ok/

标签： perlparsingpath

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用 ing/给你尾部斜杠：

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