Perl China Blog Spot: 2012-05-13

2012年5月18日星期五

Re: [PerlChina] Re: perl 如何提取html文件中连续script标签并进行合并？

谢谢，我试试

DEFAULT_SIGNATURE_MYIPAD

Re: [PerlChina] Re: perl 如何提取html文件中连续script标签并进行合并？

试试HTML::TreeBuilder,然后找出script节点的sibling

在 2012年5月14日下午2:41，Rui Hu <rui0hu@gmail.com>写道：

楼主要的是处理html标签的，不是处理js内容的。楼上各位好像都是在猜测楼主意图
其实楼主只是想处理连续三行相同标签的情况。

我是新手也期待高手给一个好的解决方法正则只会简单匹配这种处理没做过

2012/5/14 Cloud Liu <cloud.liuzj@gmail.com>:
> 是否可以自己写个正则，把JS标签里的东西都合并在一起呢?

>

--
您收到此邮件是因为您订阅了 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] perlchina@googlegroups.com 的摘要 - “1 个主题”有 2 个帖子

perlchina@googlegroups.com wrote:

>=============================================================================
>今日主题摘要
>=============================================================================
>
>网上论坛: perlchina@googlegroups.com
>网址: http://groups.google.com/group/perlchina/topics
>
> - more than one way in perl [2 条更新]
> http://groups.google.com/group/perlchina/t/492494e7f83142e9
>
>
>=============================================================================
>主题: more than one way in perl
>网址: http://groups.google.com/group/perlchina/t/492494e7f83142e9
>=============================================================================
>
>---------- 第 1 个（共 2 个） ----------
>发件人: Haiyan Lin <linhy0120@gmail.com>
>日期: May 17 05:05PM +0800
>网址: http://groups.google.com/group/perlchina/msg/e3da78387de45080
>
>Hi, perlers,
>
>Supposing I have a hash reference in hand, the effect of the following
>two statements
>
>$hash1_ref = &subroutine1( $hash0_ref, 'parameter1' );
>$hash2_ref = &subroutine1( $hash1_ref, 'parameter2' );
>
>will save elements in $hash0_ref, stafisfying both parameter1 and
>parameter2, into $hash2_ref.
>
>I try to do this by following one statement, but I failed.
>
>$hash_ref2 = &subroutine1( &subroutine1( $hash0_ref, 'parameter1'),
>'paratemter2') ;
>
>any help? THANKS in advance
>
>==================================================
>?????????$hash0_ref?????parameter1 ?parameter2???,???$hash2_ref??
>$hash1_ref = &subroutine1( $hash0_ref, 'parameter1' );
>$hash2_ref = &subroutine1( $hash1_ref, 'parameter2' );
>
>
>????????,???,?????????,??????????????
>
>$hash_ref2 = &subroutine1( &subroutine1( $hash0_ref, 'parameter1'),
>'paratemter2') ;
>
>
>
>
>Haiyan Lin
>
>
>---------- 第 2 个（共 2 个） ----------
>发件人: joe jiang <lamp.purl@gmail.com>
>日期: May 17 07:41PM +0800
>网址: http://groups.google.com/group/perlchina/msg/11865bfc42817023
>
>Think this is related to your logic inside the subroutine1, please check
>why there are many lines of eval and 1>1
>
>
>
>
>
>--
>您收到此邮件是因为您订阅了 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 访问此网上论坛。

2012年5月17日星期四

Re: [PerlChina] more than one way in perl

Think this is related to your logic inside the subroutine1, please check why there are many lines of eval and 1>1

On Thu, May 17, 2012 at 5:05 PM, Haiyan Lin <linhy0120@gmail.com> wrote:

Hi, perlers,

Supposing I have a hash reference in hand, the effect of the following two statements

$hash1_ref = &subroutine1( $hash0_ref, 'parameter1' );
$hash2_ref = &subroutine1( $hash1_ref, 'parameter2' );

will save elements in $hash0_ref, stafisfying both parameter1 and parameter2, into $hash2_ref.

I try to do this by following one statement, but I failed.

$hash_ref2 = &subroutine1( &subroutine1( $hash0_ref, 'parameter1'), 'paratemter2') ;

any help? THANKS in advance

==================================================
下面的语句可以得到$hash0_ref中同时满足parameter1 和parameter2的结果，并放到$hash2_ref中。
$hash1_ref = &subroutine1( $hash0_ref, 'parameter1' );
$hash2_ref = &subroutine1( $hash1_ref, 'parameter2' );

现在我换一种写法，理论上，可以得到相同的结果，但报错了。请高高手指导。谢谢

$hash_ref2 = &subroutine1( &subroutine1( $hash0_ref, 'parameter1'), 'paratemter2') ;

Haiyan Lin

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

[PerlChina] more than one way in perl

Hi, perlers,

Supposing I have a hash reference in hand, the effect of the following two statements

$hash1_ref = &subroutine1( $hash0_ref, 'parameter1' );
$hash2_ref = &subroutine1( $hash1_ref, 'parameter2' );

will save elements in $hash0_ref, stafisfying both parameter1 and parameter2, into $hash2_ref.

I try to do this by following one statement, but I failed.

$hash_ref2 = &subroutine1( &subroutine1( $hash0_ref, 'parameter1'), 'paratemter2') ;

any help? THANKS in advance

==================================================
下面的语句可以得到$hash0_ref中同时满足parameter1 和parameter2的结果，并放到$hash2_ref中。
$hash1_ref = &subroutine1( $hash0_ref, 'parameter1' );
$hash2_ref = &subroutine1( $hash1_ref, 'parameter2' );

现在我换一种写法，理论上，可以得到相同的结果，但报错了。请高高手指导。谢谢

$hash_ref2 = &subroutine1( &subroutine1( $hash0_ref, 'parameter1'), 'paratemter2') ;

Haiyan Lin

2012年5月16日星期三

Re: [PerlChina] perlchina@googlegroups.com 的摘要 - “1 个主题”有 2 个帖子

回复摘要文件很不好理解啊

还好这封只有两条信

上次看到一个兄弟回一个20几个汇总的信……

无语

在 2012年5月14日下午8:53，imxae <imx365ster@gmail.com>写道：

用HTML::TreeBuilder模块，笨重啊

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

2012年5月14日星期一

[PerlChina] Fwd: [Perlweekly] #42 - What is in a name?

---------- Forwarded message ----------
From: Gabor Szabo <gabor@szabgab.com>
Date: Mon, May 14, 2012 at 8:43 PM
Subject: [Perlweekly] #42 - What is in a name?
To: perlweekly@perlweekly.com

Perl Weekly

Issue #42 - May 14, 2012 - What is in a name?

You can read the newsletter on the web, if you prefer.

Hi,

This issue was put together in Kiev, thanks to Yaroslav Korshak (yko), Alexandra Solov'eva (Sasha), Viacheslav Tykhanovskyi (vti) who organized Perl Mova and invited me to participate. Special thanks to yko and Sasha who even let me stay in their apartment.

I enjoyed myself very much walking around in Kiev and the conference was also great. On the first day there were several talks in English. The second day I spent in the hallway track. vti has already wrote about it (see below), but I hope we'll see several other reports written about the event.

It seems giving names is a central theme of this issue. There are at least 3 items related to the importance and the difficulty of naming things.

Lastly, let me point out, that Damian Conway will give a talk in New York, in May 17. See details below.

Now to the posts...

Announcements

Acme::MetaSyntactic is back!
After a hiatus of five and a half years, Philippe Bruhat (BooK) has finally put together a new version of his module. Not only that, he also pays tribute to the political events in his country. Having this module, no one should have any excuse of giving bad names to their modules or classes or methods. See the other links about naming.
Tweet | Facebook | Google Plus

YAPC::NA Will Be Televised!
YAPC::NA will be streamed live for free. If you were not able to come, this is a good opportunity to follow the talks even if you miss the hallway track and the other social aspects of the conference.
Tweet | Facebook | Google Plus

WWW::UsePerl::Server
Acme created a back-up of all the content use.perl.org had and made it available to you.
Tweet | Facebook | Google Plus

Twitter Bootstrap templates for Dancer Applications
by Max Maischein (Corion)
Tweet | Facebook | Google Plus

Articles

NYTProf, File IO, and an Optimization Gone Awry
In order to speed up processing chromatic added caching to his application, just to find out that the module he was using writes the data it gets to a temp file. After getting rid of the premature optimization, he got faster and nicer looking code.
Tweet | Facebook | Google Plus

On the importance of intuitive names
In light of the post of Joel Berger this writing by Zbigniew Lukasiak is even more interesting. How do you pick names (of classes and methods in this case) to make it easier for people to use them? To make them more obvious?
Tweet | Facebook | Google Plus

Introduction to Perl one-liners
This is the introduction Peteris Krumins added to his recently published e-book about one-liners.
Tweet | Facebook | Google Plus

Write the Wrong Code First
Many people, especially beginners and managers expect you to write good code. Right at the beginning. That's not how most of us work. chromatic puts it quite right. There is a place for rewriting code. There is a place for refactoring. There is also a need for writing automated tests.
Tweet | Facebook | Google Plus

Simple Attribute-Based Template Exporting
chromatic wrote a plugin for Template::Toolkit which is, in his words, less ugly than Haml. Admittedly this is not the way how to write a TT plugin but it is an opportunity to show how to export functions using attributes.
Tweet | Facebook | Google Plus

A file download CGI script in Perl
Sinan Unur wrote a detailed description on how to create a file download script.
Tweet | Facebook | Google Plus

Web-Multitasking: Whos gonna work for the working man?
Sebastian Willing provides several strategies improving the performance of your web application. He also gives descriptive names to each one of them.
Tweet | Facebook | Google Plus

Discussion

Removing Locale::Country::SubCountry from CPAN
Instead of trying to keep this information up to date manually, Ron Savage started to use the Wikipedia to scrape the information and store it in a local SQLite database. People quickly came to his help with suggestions to take over the module and pointers to other sources for the information he was missing.
Tweet | Facebook | Google Plus

On CPAN Namespaces: Urban Namespace Planning
Naming your children and your modules isn't easy. Joel Berger struggles with this (in public) while getting the help of many people. Beyond the specific issue, the question is what should the module name describe? The technology it implements? The problem it solves? Should it be some unrelated name, just to be nice and interesting?
Tweet | Facebook | Google Plus

Don't use Cache::Memcached for UTF8 strings
A story in which Thomas Kalusner (domm) find out the hard way that Cache::Memcached does not fully support utf8 but Cache::Memcached::Fast does. That sounds simple but see the discussion that followed.
Tweet | Facebook | Google Plus

Testing

CPAN Testers Summary - April 2012 - Pictures At An Exhibition
The CPAN Testers Fund got its first individual donations (hint, you can donate too) and Barbie explains why it *is* important to run the tests during the installation process or how that could be avoided by looking at the data in the CPAN Testers database.
Tweet | Facebook | Google Plus

Code

Simulating multiple, lazy attributes
If I told you that you'll see an example of 'native attribute traits and accessor currying of Moose', would you be interested? What if it helped you reduce code and make it easy to write accessors for a configuration file? Written by Chris Weyl of White-Point Star, LLC.
Tweet | Facebook | Google Plus

Reddit API for Perl
Jeff Ober put together a Perl module to access Reddit. It already has many parts such as posting a new article, voting, commenting and searching Reddit. It looks like something very useful for me. The funny thing is that on the TODO list you can see 'unit testing'. Oh well.
Tweet | Facebook | Google Plus

Using the VirusTotal API v2.0
Christopher Frenz, the author of Pro Perl Parsing, has recently opened a blog showing Perl examples. This one is a small example on using the VirusTotal API to check if a file has viruses in it. I found a module on CPAN called VT::API that implements version 1.0 of the API while this examples is for version 2.0. I hope the CPAN module will be updated to the new version of the API... I can also imagine a command line tool using this code and later maybe even a GUI for it.
Tweet | Facebook | Google Plus

Mix Perl and C++/CLI
xiaoayfeng shows a small example how to embed Perl into an application written in C.
Tweet | Facebook | Google Plus

Event reports

Perl Mova / YAPC::Russia 2012 is over!
by Viacheslav Tykhanovskyi (vti)
Tweet | Facebook | Google Plus

Fun

Damian Conway in New York on May 17, 2012
Temporally Quaquaversal Virtual Nanomachine Programming In Multiple Topologically Connected Quantum-Relativistic Parallel Spacetimes...Made Easy!
Tweet | Facebook | Google Plus

Perl 6

Perl 6 and D separated at birth
This is interesting. I never looked at it, but if the D programming language is really that similar to the power of Perl 6 and it is in a form that can be used in production systems, then it might be interesting to check it out. I love Perl 6 and if I can have something that is similar to it today, then... then the question, why is it not in wide-spread usage yet? Brad Gilbert recommeds to learn D.
Tweet | Facebook | Google Plus

Since the Hackathon...
After the fun and productive hackathon in Oslo, Jonathan Worthington is back at his own desk planning to implement many additional parts of Perl 6.
Tweet | Facebook | Google Plus

The self promotion section

Registration process with Perl Dancer
A very simple version of double opt-in registration: Let visitors type in an e-mail, and send them a code so they can verify they are in control of that address.
Tweet | Facebook | Google Plus

Events

I usually list the next 3-4 events here. The list of all the events can be found on on the web site. If your Perl event is not in the list, let me know.

Nordic Perl workshop
June 4-5, 2012, Stockholm, Sweden
Tweet | Facebook | Google Plus

YAPC::NA
June 13-15, 2012, Madison, Wisconsin, USA
Tweet | Facebook | Google Plus

French Perl workshop
June 29-30, 2012, Strasbourg
Tweet | Facebook | Google Plus

Quack And Hack 2012
June 30-July 1, 2012, Philadelphia
Tweet | Facebook | Google Plus

You joined the Perl Weekly to get weekly e-mails about the Perl programming language and related topics.
Want to see more? See the archives of all the issues.
Reading this as a non-subscriber? click here to join us free of charge.
(C) Copyright Gabor Szabo. The articles are copyright the respective authors.

You can unsubscribe here if you don't want to receive mails any more.

You can freely redistribute this message if you keep the whole message intact, including the Copyright notice and this text.

_______________________________________________
Perlweekly mailing list
Perlweekly@perlweekly.com
http://mail.perlweekly.com/mailman/listinfo/perlweekly

--
Fayland Lam // http://www.fayland.org/

Re: [PerlChina] perlchina@googlegroups.com 的摘要 - “1 个主题”有 2 个帖子

用HTML::TreeBuilder模块，笨重啊

Re: [PerlChina] perlchina@googlegroups.com 的摘要 - “1 个主题”有 2 个帖子

I know HTML::TreeBuilder with ->right() and ->right()->right()->{_tag}
eq 'script' can check if there is 3 scripts together, but it's pretty
tricky too.

Thanks

2012/5/14 Rui Hu <rui0hu@gmail.com>:
> 这个似乎没有达到楼主想要的连续的效果，楼主说是处理连续的三行
> 楼主给的示例中的d.js并没有被合并你这个代码是不是会合并d.js到上面的三行中？
>
>
> 2012/5/14 陈钢 <missingyousomuch@163.com>:
>> my @js_files = $html =~ /<script>balabala(.*?\.js)<\/script>/gims;
>> my $new_tag = "<script>";
>> foreach (@js_files)
>> {
>> $new_tag.= $_ .",";
>> }
>> $new_tag .= "</script>";
>>
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
Fayland Lam // http://www.fayland.org/

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

Re: [PerlChina] perlchina@googlegroups.com 的摘要 - “1 个主题”有 2 个帖子

这个似乎没有达到楼主想要的连续的效果，楼主说是处理连续的三行
楼主给的示例中的d.js并没有被合并你这个代码是不是会合并d.js到上面的三行中？

2012/5/14 陈钢 <missingyousomuch@163.com>:
> my @js_files = $html =~ /<script>balabala(.*?\.js)<\/script>/gims;
> my $new_tag = "<script>";
> foreach (@js_files)
> {
> $new_tag.= $_ .",";
> }
> $new_tag .= "</script>";
>

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

回复:[PerlChina] perlchina@googlegroups.com 的摘要 - “1 个主题”有 2 个帖子

my @js_files = $html =~ /<script>balabala(.*?\.js)<\/script>/gims;

my $new_tag = "<script>";

foreach (@js_files)

{

$new_tag.= $_ .",";

}

$new_tag .= "</script>";

在 2012-05-14 16:03:39，perlchina@googlegroups.com 写道：

今日主题摘要

网上论坛: http://groups.google.com/group/perlchina/topics

perl 如何提取html文件中连续script标签并进行合并？ [2 条更新]

perl 如何提取html文件中连续script标签并进行合并？

Cloud Liu <cloud.liuzj@gmail.com> May 14 11:47AM +0800

是否可以自己写个正则，把JS标签里的东西都合并在一起呢?

在 2012年5月12日下午10:22，蓝天下云层上 <imx365ster@gmail.com>写道：

Rui Hu <rui0hu@gmail.com> May 14 02:41PM +0800

楼主要的是处理html标签的，不是处理js内容的。楼上各位好像都是在猜测楼主意图
其实楼主只是想处理连续三行相同标签的情况。

我是新手也期待高手给一个好的解决方法正则只会简单匹配这种处理没做过

您收到此邮件是因为您订阅了 Google 网上论坛 perlchina。
您可以通过电子邮件发帖。
要取消订阅此网上论坛，请发送一封空邮件。
有关更多选项，请访问此网上论坛。

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

2012年5月13日星期日

Re: [PerlChina] Re: perl 如何提取html文件中连续script标签并进行合并？

楼主要的是处理html标签的，不是处理js内容的。楼上各位好像都是在猜测楼主意图
其实楼主只是想处理连续三行相同标签的情况。

我是新手也期待高手给一个好的解决方法正则只会简单匹配这种处理没做过

2012/5/14 Cloud Liu <cloud.liuzj@gmail.com>:
> 是否可以自己写个正则，把JS标签里的东西都合并在一起呢?
>

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

Re: [PerlChina] Re: perl 如何提取html文件中连续script标签并进行合并？

是否可以自己写个正则，把JS标签里的东西都合并在一起呢?

在 2012年5月12日下午10:22，蓝天下云层上 <imx365ster@gmail.com>写道：

不是合并文件，而是处理html代码中连续的标签，提取标签属性进行重组

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。

要在网络上查看此讨论，请访问 https://groups.google.com/d/msg/perlchina/-/KaRjbSJ1NBQJ。

要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

订阅：博文 (Atom)

2012年5月18日星期五

2012年5月17日星期四

2012年5月16日星期三

2012年5月14日星期一

2012年5月13日星期日

订阅

博客归档