Perl - использование HTML для извлечения данных

Question

use HTML::TreeBuilder::XPath; 

my $temp_path = $ENV{'TEMP'}."\\html\\globals_func.html"; 

// prints as C:\Users\Rockstar\Appdata\Local\Temp\html\globals_func.html 

my $url = $temp_path; 
my $page = get($url) or die $!; 
my $p = HTML::TreeBuilder::XPath->new_from_content($page); 

Я получаю сообщение об ошибке: протокол «с» не поддерживается

я получаю правильный выход, когда

my $url='file:///C:/Users/Rockstar/AppData/Local/Temp/html/globals_func.html'; 

Как я хочу, чтобы заставить ее работать во всех системах Я использую глобальную переменную среды.

Как изменить '\' на '/' в $ url с помощью регулярного выражения или есть ли другой способ?

HTML-файл присутствует локально в самой системе.

Answer 1

Это должно сработать для вас.

use HTML::TreeBuilder::XPath; 

my $temp_path = $ENV{'TEMP'}."\\html\\globals_func.html"; 

// prints as C:\Users\Rockstar\Appdata\Local\Temp\html\globals_func.html 

$temp_path=~tr/\\/\//; # Replaces backward slashes with forward slashes 

$temp_path='file://'.$temp_path; # Appends path with file:// 

my $url = $temp_path; 
my $page = get($url) or die $!; 
my $p = HTML::TreeBuilder::XPath->new_from_content($page); 

Answer 2

Использование Path::Class::URI для создания кросс-платформенный file:// URI.