Re: [PerlChina] 如何用Perl来实现像Opera浏览器的主要功能

曾经看到这么一个包，希望对你有帮助

http://search.cpan.org/~corion/WWW-Mechanize-Firefox-0.55/lib/WWW/Mechanize/Firefox.pm

$mech->eval( $str [, $env [, $document]] )

my ($value, $type) = $mech->eval( '2+2' );

Evaluates the given Javascript fragment in the context of the web
page. Returns a pair of value and Javascript type.

This allows access to variables and functions declared "globally" on
the web page.

2011/9/2 Morya Feng <morya@is-coder.com>:
> 如果不限定语言的话，用别的语言写一个工具，只是用perl取得
> 一下返回值和返回一些具体的执行结果字符串是不是可行？
> 比如，用python + PySide/PyQt + QtWebkit
> 在 2011年9月2日 上午10:18，liseen <liseen.wan@gmail.com>写道：
>>
>> Hi, all
>> 用QtWebkit 吧， 用c++ 写， 接口很简单， 执行js什么的都没有问题。
>> xunxin
>> 2011/9/2 eexpress <eexp01@gmail.com>
>>>
>>>
>>> 兼容测试？实际用浏览器测试好些。WWW::Mechanize不支持js，常规抓网页/提交内容，倒是顺手。Opera的菜单可以调用perl脚本，传递些Opera内部参数，这可以的。
>>>
>>> 在 Thu, 01 Sep 2011 22:04:47 +0800，Jeova Sanctus Unus
>>> <jeova.sanctus.unus@gmail.com> 写道:
>>>
>>>> 按需写perl,该执行js,就找个模块来跑嘛，;)
>>>> 在 2011-9-1 下午8:09，"洋葱" <fine102@gmail.com>写道：
>>>>>
>>>>> 请教一个Perl方面问题，生产中有需要使用Perl去测试一大堆手机网站，想判断这些网址是否最后都可以成功打开，并且判断返回的Content长度
>>>>> 都超过1024字节。
>>>>>
>>>>> 目的:可以使用脚本对网站进行测试，如果网址有302或301跳转会自动跟进，如果网站有onenterforward或ontimer这种页面内的跳
>>>>> 转也能够自动跳转，直至跟进到最后的页面，返回最后页面的status_line和content
>>>>>
>>>>> 但是如果要兼容这些网站，就会存在一些问题，
>>>>> 1、比如网站的302 301Location要了识别并跟进【这个还好解决】
>>>>> 2、如页有些网站的跳转是通过页面的refresh或者一些onenterforward、ontimer等等各种各样的花样百出的来实现的，其实如果
>>>>> 想把所有网站都兼容好，那相当于写了一个Opera浏览器了。
>>>>>
>>>>> Perl是否可以直接调取现成的包，来实现这个功能，我在网上找过了，没有发现有这么功能的模块。我又想过装个Linux版本下的Opera，看是否有
>>>>> 接口供调用，发现也没有这个功能。大家有什么好建议吗？
>>>>>
>>>>> --
>>>>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>>>>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>>>>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>>>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>>>>
>>>>
>>>
>>>
>>> --
>>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>>
>>
>>
>>
>> --
>> - xunxin 万�新
>> - 技术部搜索组工程师
>> - Tel: 86-10-5760 3320
>>
>> - Mobile: 86-13811636901
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
如果觉得无聊，您不妨访问Google Reader消遣 https://www.google.com/reader/view
要尝试黑版本Google，请访问 http://tinyurl.com/yk3yp7j

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。