Perl China Blog Spot

2011年5月21日星期六

[PerlChina] perl作版本更新的时候站中的模块如何维护

在debian上把perl从5.10更新到5.12了，然后以前cpan/cpanm装的模块都不能用了，如何让这些模块随版本更新自动关联呢
gtalk:freeespeech@gmail.com

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

[PerlChina] Re: 用perl实现firebug的部分功能：获取页面元素（图片,CSS,JS）

我想你可以了解一下HTML::TreeBuilder

On May 19, 4:46 pm, wilson <fuwei...@gmail.com> wrote:
> 尝试用LWP,HTML::LinkExtor 可以取得在body内的一些文件(src="xxxx")
> 但是对<javascript>部分的一些内容还没有啥办法。
> 希望各位提供一些思路
> 希望实现的结果如下图：列出页面所调用的文件(下图为www.baidu.com的首页结果）

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

2011年5月20日星期五

Re: [PerlChina] LWP::UserAgnet->get(https://...) not work through proxy

And I also have to turn off SSL verify_hostname.

LWP::UserAgent->new(ssl_opts => { verify_hostname => 0});

2011/5/20 Tiger Peng <tigerpeng2001@gmail.com>:
> Thanks for the help.
>
> After replacing strawberry perl 64 bit version with 32 bit version,
> and adding $ENV{https_proxy} = $res->proxy; The script works.
>
> There was warning when I install strawberry perl 64 bit on Windows7
> (64 bit). I just ignored it.
>
> 2011/5/17 cnhack TNT <cnhacktnt@gmail.com>:
>> You should try HTTP::ProxyPAC if you want proxy auto configuration:
>> use strict;
>> use LWP::UserAgent;
>> use Data::Dumper;
>> use HTTP::ProxyPAC;
>> my $ua=LWP::UserAgent->new();
>> my $pacFile = 'http://corppac.myclient.com/accelerated_pac_base.pac';
>> my $pac = HTTP::ProxyPAC->new($pacFile);
>> my $res = $pac->find_proxy($url);
>> $ua->proxy(['https', 'http'] => $res->proxy) if $res->proxy;
>> my $response =
>> $ua->get('https://login.yahoo.com/config/login_verify2?&.src=ym');
>> print Dumper $response;
>>
>>
>> Make sure you have IO::Socket::SSL or Net::SSL installed for HTTPS support,
>> IO::Socket::SSL is recommended.
>>
>> 2011/5/17 tiger <tigerpeng2001@gmail.com>
>>>
>>> Could anyone help on the following test script (run on strawberry
>>> perl)?
>>>
>>> It works (with $ua->proxy... commented out) when it is not behind
>>> proxy, but fails to access https pagethrough proxy (with '_msg' =>
>>> 'Bad Request'.). It is okay to access http pages. No problem for
>>> accessing https pages with MSIE and Firfox through proxy.
>>>
>>> Thanks,
>>>
>>>
>>> use strict;
>>> use LWP::UserAgent;
>>> use Data::Dumper;
>>>
>>> my $ua=LWP::UserAgent->new();
>>> $ua->proxy(['https', 'http'] => 'http://corppac.myclient.com/
>>> accelerated_pac_base.pac');
>>> my $response = $ua->get('https://login.yahoo.com/config/login_verify2?
>>> &.src=ym');
>>> #my $response = $ua->get('http://www.yahoo.com');
>>> print Dumper $response;
>>>
>>> --
>>> 您收到此邮件是因为您订阅了 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 访问此网上论坛。
>>
>

Re: [PerlChina] LWP::UserAgnet->get(https://...) not work through proxy

Thanks for the help.

After replacing strawberry perl 64 bit version with 32 bit version,
and adding $ENV{https_proxy} = $res->proxy; The script works.

There was warning when I install strawberry perl 64 bit on Windows7
(64 bit). I just ignored it.

2011/5/17 cnhack TNT <cnhacktnt@gmail.com>:
> You should try HTTP::ProxyPAC if you want proxy auto configuration:
> use strict;
> use LWP::UserAgent;
> use Data::Dumper;
> use HTTP::ProxyPAC;
> my $ua=LWP::UserAgent->new();
> my $pacFile = 'http://corppac.myclient.com/accelerated_pac_base.pac';
> my $pac = HTTP::ProxyPAC->new($pacFile);
> my $res = $pac->find_proxy($url);
> $ua->proxy(['https', 'http'] => $res->proxy) if $res->proxy;
> my $response =
> $ua->get('https://login.yahoo.com/config/login_verify2?&.src=ym');
> print Dumper $response;
>
>
> Make sure you have IO::Socket::SSL or Net::SSL installed for HTTPS support,
> IO::Socket::SSL is recommended.
>
> 2011/5/17 tiger <tigerpeng2001@gmail.com>
>>
>> Could anyone help on the following test script (run on strawberry
>> perl)?
>>
>> It works (with $ua->proxy... commented out) when it is not behind
>> proxy, but fails to access https pagethrough proxy (with '_msg' =>
>> 'Bad Request'.). It is okay to access http pages. No problem for
>> accessing https pages with MSIE and Firfox through proxy.
>>
>> Thanks,
>>
>>
>> use strict;
>> use LWP::UserAgent;
>> use Data::Dumper;
>>
>> my $ua=LWP::UserAgent->new();
>> $ua->proxy(['https', 'http'] => 'http://corppac.myclient.com/
>> accelerated_pac_base.pac');
>> my $response = $ua->get('https://login.yahoo.com/config/login_verify2?
>> &.src=ym');
>> #my $response = $ua->get('http://www.yahoo.com');
>> print Dumper $response;
>>
>> --
>> 您收到此邮件是因为您订阅了 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 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

[PerlChina] Re: 用perl实现firebug的部分功能：获取页面元素（图片,CSS,JS）

use WWW::Mechanize
也可以提取一些吧
Xpath。。。

On 5月19日, 上午6时36分, wilson <fuwei...@gmail.com> wrote:
> 问题是图中的i2.png， arr.gif是写在<script> </script>段落中
>
> 2011/5/19 金玉玮 <aujade2...@gmail.com>
>
>
>
>
>
>
>
>
>
> > 俺也是刚学perl,我个人觉得你可以正则获取 src="xxx.yy" 然后根据yy判断文件类型。
>
> > 在 2011年5月19日下午5:38，wilson <fuwei...@gmail.com>写道：
>
> >> 杯具，copy习惯了
> >> 源码目前都是改的cpan上的列子。
> >> 刚开始用Perl尝试写东西，所以很多时候都摸瞎中
>
> >> 图在这里
> >> [image: firebug.png]
>
> >> 2011/5/19 wilson <fuwei...@gmail.com>
>
> >>> 尝试用LWP,HTML::LinkExtor 可以取得在body内的一些文件(src="xxxx")
> >>> 但是对<javascript>部分的一些内容还没有啥办法。
> >>> 希望各位提供一些思路
> >>> 希望实现的结果如下图：列出页面所调用的文件(下图为www.baidu.com的首页结果）
>
> >> --
> >> 您收到此邮件是因为您订阅了 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访问此网上论坛。
>
> --
> 伏伟任
> Wilson.Fu
>
> firebug.png
> 29K查看下载

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

2011年5月19日星期四

Re: [PerlChina] 用perl实现firebug的部分功能：获取页面元素（图片,CSS,JS）

问题是图中的i2.png， arr.gif是写在<script> </script>段落中

2011/5/19 金玉玮 <aujade2009@gmail.com>

俺也是刚学perl,我个人觉得你可以正则获取 src="xxx.yy" 然后根据yy判断文件类型。

在 2011年5月19日下午5:38，wilson <fuweiren@gmail.com>写道：

杯具，copy习惯了
源码目前都是改的cpan上的列子。
刚开始用Perl尝试写东西，所以很多时候都摸瞎中

图在这里

2011/5/19 wilson <fuweiren@gmail.com>

尝试用LWP,HTML::LinkExtor 可以取得在body内的一些文件(src="xxxx")
但是对<javascript>部分的一些内容还没有啥办法。
希望各位提供一些思路
希望实现的结果如下图：列出页面所调用的文件(下图为www.baidu.com的首页结果）

--
您收到此邮件是因为您订阅了 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 访问此网上论坛。

--
伏伟任
Wilson.Fu

Re: [PerlChina] 用perl实现firebug的部分功能：获取页面元素（图片,CSS,JS）

俺也是刚学perl,我个人觉得你可以正则获取 src="xxx.yy" 然后根据yy判断文件类型。

在 2011年5月19日下午5:38，wilson <fuweiren@gmail.com>写道：

杯具，copy习惯了
源码目前都是改的cpan上的列子。
刚开始用Perl尝试写东西，所以很多时候都摸瞎中

图在这里

2011/5/19 wilson <fuweiren@gmail.com>

尝试用LWP,HTML::LinkExtor 可以取得在body内的一些文件(src="xxxx")
但是对<javascript>部分的一些内容还没有啥办法。
希望各位提供一些思路
希望实现的结果如下图：列出页面所调用的文件(下图为www.baidu.com的首页结果）

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

订阅：博文 (Atom)

2011年5月21日星期六

2011年5月20日星期五

2011年5月19日星期四

订阅

博客归档