Comment puis-je trouver l'URL complète d'une URL relative en Perl?

Question

Je suis nouveau à perl mais je me demandais si quelqu'un connaissait un script qui était similaire à la version suivante de PHP qui fonctionne très bien!

private function resolve_href ($base, $href) { 
    if (!$href) 
     return $base; 
    $rel_parsed = parse_url($href); 
    if (array_key_exists('scheme', $rel_parsed)) 
     return $href; 
    $base_parsed = parse_url("$base "); 
    if (!array_key_exists('path', $base_parsed)) 
     $base_parsed = parse_url("$base/ "); 
    if ($href{0} === "/") 
     $path = $href; 
    else 
     $path = dirname($base_parsed['path']) . "/$href"; 
    $path = preg_replace('~/\./~', '/', $path); 
    $parts = array(); 
    foreach (explode('/', preg_replace('~/+~', '/', $path)) as $part) { 
     if ($part === "..") 
      array_pop($parts); 
     elseif ($part!="") 
      $parts[] = $part; 
    } 
    $dir = ((array_key_exists('scheme', $base_parsed)) ? $base_parsed['scheme'] . '://' . $base_parsed['host'] : "") . "/" . implode("/", $parts); 
    return str_replace("\/", '', $dir); 
} 

Toute aide est très appréciée

Answer 1

Voir URI:

#!/usr/bin/perl 

use strict; use warnings; 
use URI; 

my $u = URI->new_abs('../foobar', 'http://foo.com/bar/poo/'); 
print $u->canonical; 

Sortie:

http://foo.com/bar/foobar