Open a local web page from Perl

I'm writing a Perl script that creates HTML output a开发者_开发百科nd I would like to have it open in the user's preferred browser. Is there a good way to do this? I can't see a way of using ShellExecute since I don't have an http: address for it.

Assuming you saved your output to "../data/index.html",

$ret = system( 'start ..\data\index.html' );

should open the file in the default browser.

Added:

Advice here:

my $filename = "/xyzzy.html";  #whatever
system("start file://$filename");

If I understand what you're trying to do, this will not work. You would have to setup a web server, like apache and configure it to execute your script. This wouldn't be a trivial task if you've never done it before.

Since this is Windows, the easy option is to dump the data to a temporary file using File::Temp (making sure it has an extension .htm or .html, and that it isn't cleaned up immediately on script exit, so that the file remains, i.e, you probably want something like File::Temp->new(UNLINK => 0, SUFFIX => '.htm')). Then you ought to be able to use Win32::FileOp's ShellExecute to open the file regularly. This does make all sorts of assumptions about file types being associated with file extensions, but then, that's how Windows tends to work.