Perl获取站点路径

Question

我想知道如何从站点ex解析路径:

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;