Perl получить путь к сайту

Question

Я хочу знать, как разобрать путь с сайта, например:

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

есть ли способ разобрать эту часть (путь)

/hello/ok/

Answer 1

Вот Радостный .Метод 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;