如何在任何操作系统上启动Perl中的默认web浏览器？
如何在任何操作系统上启动Perl中的默认web浏览器？
提问于 2012-01-15 11:03:43
我想在Perl脚本的末尾打开一个网址，比如http://www.example.com/。我不想使用WWW::Mechanize来访问它，而是在一个图形化的web浏览器中向用户显示该网页。
在苹果电脑(open URL)和视窗系统中都有办法做到这一点，但我想要一个在任何操作系统上都能运行的解决方案，而不是只在一个操作系统上运行。
回答 2
Stack Overflow用户
回答已采纳
发布于 2012-01-15 13:07:29
"open url" at search.cpan上的第二个热门话题是Browser::Open
use Browser::Open qw( open_browser );
my $url = 'http://www.google.com/';
open_browser($url);如果您的操作系统不受支持，请发送补丁或错误报告。
Stack Overflow用户
发布于 2012-01-15 20:40:10
您可以使用$^O变量来标识平台，并为每个操作系统使用不同的命令。
例如：
sub open_default_browser {
my $url = shift;
my $platform = $^O;
my $cmd;
if ($platform eq 'darwin') { $cmd = "open \"$url\""; } # Mac OS X
elsif ($platform eq 'linux') { $cmd = "x-www-browser \"$url\""; } # Linux
elsif ($platform eq 'MSWin32') { $cmd = "start $url"; } # Win95..Win7
if (defined $cmd) {
system($cmd);
} else {
die "Can't locate default browser";
}
}
open_default_browser("http://www.example.com/");页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/8867262
复制相关文章
相似问题
腾讯云开发者
