perl - using HTML to extract data

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);

I get error: protocol 'c' is not supported

I get correct output when

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

As I want to make it run across all systems I am using global environment variable.

how do I change '\' to '/' in $url by using regex or is there any other way?

HTML file is present locally in the system itself.

There's no need to use LWP for slurping a local file. Use File::Slurp or do it manually using open($fh,...) and <$fh>, then you can use the path as is. — Slaven Rezic
– Slaven Rezic, Commented Sep 19, 2013 at 19:04
i used File::Slurp and its so simple without using so much of regex .just use read_line($file_path) and now my program also runs on linux."file:///" was causing trouble — Ad-vic
– Ad-vic, Commented Sep 20, 2013 at 20:04

daxim · Accepted Answer · 2013-09-19 16:30:49Z

3

Use Path::Class::URI to create cross-platform file:// URIs.

answered Sep 19, 2013 at 16:30

daxim

39.3k4 gold badges71 silver badges135 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Jean · Accepted Answer · 2013-09-19 16:30:32Z

2

This should work for you.

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);

answered Sep 19, 2013 at 16:30

Jean

23k28 gold badges75 silver badges126 bronze badges

1 Comment

Ad-vic Over a year ago

it works fine. but you missed a '/'. it should be $temp_path='file:///'.$temp_path;

Collectives™ on Stack Overflow

perl - using HTML to extract data

2 Answers 2

Comments

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related