Perl China Blog Spot: 2009-02-22

2009年2月28日星期六

[PerlChina] Re: perl如何提取pdf文件中的表格

得用adobe那个专业版来提取吧。

2009/2/27 riverlee <riverlee2008@gmail.com>:
> 看来这个不好办啊～～
>
> 2009/2/27 Michael Zeng <galaxy2004@gmail.com>:
>> pdf相关吧
>>
>>
>>
>> 2009/2/27 riverlee <riverlee2008@gmail.com>
>>>
>>> 如题，手头有几个表格，但是是pdf格式的，不知cpan上哪个模块能从pdf中提取出表格，先谢了！
>>>
>>> --
>>> －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
>>> ,,__
>>> .. .. / o._)
>>> /--'/--\ \-'|| riverlee(李江) Email:riverlee2008@gmail.com
>>> / perl \_/ / Harbin Medical University Bioinfomatics
>>> .'\ \__\ __.'.' Msn:riverlee2008@live.cn
>>> )\ | )\ | Blog:http://riverlee2008.blogspot.com
>>> // \\ // \\
>>> ||_ \\|_ \\_
>>> -' '--'' '--'
>>> －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
>>> >>
>>
>
>
>
> --
> －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
> ,,__
> .. .. / o._)
> /--'/--\ \-'|| riverlee(李江) Email:riverlee2008@gmail.com
> / perl \_/ / Harbin Medical University Bioinfomatics
> .'\ \__\ __.'.' Msn:riverlee2008@live.cn
> )\ | )\ | Blog:http://riverlee2008.blogspot.com
> // \\ // \\
> ||_ \\|_ \\_
> -' '--'' '--'
> －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
>
> >
>

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

2009年2月27日星期五

[PerlChina] Re: perl如何提取pdf文件中的表格

看来这个不好办啊～～

2009/2/27 Michael Zeng <galaxy2004@gmail.com>:
> pdf相关吧
>
>
>
> 2009/2/27 riverlee <riverlee2008@gmail.com>
>>
>> 如题，手头有几个表格，但是是pdf格式的，不知cpan上哪个模块能从pdf中提取出表格，先谢了！
>>
>> --
>> －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
>> ,,__
>> .. .. / o._)
>> /--'/--\ \-'|| riverlee(李江) Email:riverlee2008@gmail.com
>> / perl \_/ / Harbin Medical University Bioinfomatics
>> .'\ \__\ __.'.' Msn:riverlee2008@live.cn
>> )\ | )\ | Blog:http://riverlee2008.blogspot.com
>> // \\ // \\
>> ||_ \\|_ \\_
>> -' '--'' '--'
>> －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
>> >>
>

--
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
,,__
.. .. / o._)
/--'/--\ \-'|| riverlee(李江) Email:riverlee2008@gmail.com
/ perl \_/ / Harbin Medical University Bioinfomatics
.'\ \__\ __.'.' Msn:riverlee2008@live.cn
)\ | )\ | Blog:http://riverlee2008.blogspot.com
// \\ // \\
||_ \\|_ \\_
-' '--'' '--'
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

[PerlChina] Re: perl如何提取pdf文件中的表格

pdf相关吧

2009/2/27 riverlee <riverlee2008@gmail.com>

如题，手头有几个表格，但是是pdf格式的，不知cpan上哪个模块能从pdf中提取出表格，先谢了！

--
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
,,__
.. .. / o._)
/--'/--\ \-'|| riverlee(李江) Email:riverlee2008@gmail.com
/ perl \_/ / Harbin Medical University Bioinfomatics
.'\ \__\ __.'.' Msn:riverlee2008@live.cn
)\ | )\ | Blog:http://riverlee2008.blogspot.com
// \\ // \\
||_ \\|_ \\_
-' '--'' '--'
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] perl如何提取pdf文件中的表格

如题，手头有几个表格，但是是pdf格式的，不知cpan上哪个模块能从pdf中提取出表格，先谢了！

[PerlChina] Re: 包（.pm）的问题

2009/2/27 mark <zhusheng303@163.com>:
> 谢谢，只是我想，建包是想将我的自己编的函数归类。我发现$max=MK1：：max($zhu,$mark);
> 传值就对啦，有没有别的解决办法？
>

use Exporter?

顺便提一下，List::Util 模块中有现成的 max 和 maxstr 函数 ;) 它那里也是使用 Exporter 来导出符号，从而调用时可以这么写：

use List::Util qw( max );
print max(5, 6);

Cheers,
-agentzh

[PerlChina] Re: 包（.pm）的问题

shift if ref $_[0] || $_[0] eq __PACKAGE__ ;
应该是这样，能够“应付”三种调用方式：
$t->max 可以被 ref $_[0] 排除
Package::max 可以被 $_[0] eq __PACKAGE__ 排除
当然运气不好的话第一参数恰好 eq 包名就麻烦了 :)
所以还是不建议这样干。

2009/2/27 purl lamp <lamp.purl@gmail.com>

其实只要判断一下第一个参数是否 ref 就可以了，如果 ref 为真就 shift 掉它： shift if ref ($_[0])

2009/2/27 mark <zhusheng303@163.com>

谢谢，只是我想，建包是想将我的自己编的函数归类。我发现$max=MK1：：max($zhu,$mark);
传值就对啦，有没有别的解决办法？

On 2月26日, 下午12时59分, purl lamp <lamp.p...@gmail.com> wrote:
> 这是因为你使用了 OO 特性，就使得第一个参数成了对象或类的描述。这里的逻辑很简单，看不出使用 ->max 的理由。
> 直接使用标准 sub 就 ok 了，从而不必 shift 掉第一个 reference 或者类名。
>

> 2009/2/26 mark <zhusheng...@163.com>

>
>
>
>
>
> > #tt.pl
> > use strict;
> > use warnings;
> > use PM::MK1;
> > my ($zhu,$mark)=(1333,122222);
> > my $max=MK1->max($zhu,$mark);
> > print "3:MAX:$max\n";
>
> > #我的包文件MK1.pm
> > package MK1;
> > sub max{
> > shift(@_);
> > my($temp1,$temp2)=@_;
> > print "2:$temp1 ***$temp2\n";
> > if($temp1 > $temp2){
> > return $temp1;
> > }else{
> > return $temp2;
> > }
> > }
>
> > return 1;
>
> > 如果我没用"shift(@_); " ，$temp1=MK1;

> > 我不知道为什么？- 隐藏被引用文字 -
>
> - 显示引用的文字 -

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 包（.pm）的问题

其实只要判断一下第一个参数是否 ref 就可以了，如果 ref 为真就 shift 掉它： shift if ref ($_[0])

2009/2/27 mark <zhusheng303@163.com>

谢谢，只是我想，建包是想将我的自己编的函数归类。我发现$max=MK1：：max($zhu,$mark);
传值就对啦，有没有别的解决办法？

On 2月26日, 下午12时59分, purl lamp <lamp.p...@gmail.com> wrote:
> 这是因为你使用了 OO 特性，就使得第一个参数成了对象或类的描述。这里的逻辑很简单，看不出使用 ->max 的理由。
> 直接使用标准 sub 就 ok 了，从而不必 shift 掉第一个 reference 或者类名。
>

> 2009/2/26 mark <zhusheng...@163.com>

>
>
>
>
>
> > #tt.pl
> > use strict;
> > use warnings;
> > use PM::MK1;
> > my ($zhu,$mark)=(1333,122222);
> > my $max=MK1->max($zhu,$mark);
> > print "3:MAX:$max\n";
>
> > #我的包文件MK1.pm
> > package MK1;
> > sub max{
> > shift(@_);
> > my($temp1,$temp2)=@_;
> > print "2:$temp1 ***$temp2\n";
> > if($temp1 > $temp2){
> > return $temp1;
> > }else{
> > return $temp2;
> > }
> > }
>
> > return 1;
>
> > 如果我没用"shift(@_); " ，$temp1=MK1;

> > 我不知道为什么？- 隐藏被引用文字 -
>
> - 显示引用的文字 -

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Perl 的 OO 系统 moooooose

已经有人建议用moose等来更新perl5.

http://www.enlightenedperl.org/index.html

A number of people I know through the Perl community have come
together to form The Enlightened Perl Organization (EPO). The goal is
to modernize Perl 5 and make it competitive with new developments in
programming languages, given that it's unknown when Christmas (the
delivery date for Perl 6) will arrive.

My take on this is that while other organizations focus on ongoing
development of Perl 6, EPO will seek to enhance Perl 5 and take it out
of "maintenance mode." Enhancing Perl 5 will hopefully bring much
needed modernization to the Perl 5 core that people can use sooner
rather than later. One of the most exciting developments in the Perl
community, which addresses some of the core criticism of Perl 5, is
Moose, an object system that modernizes Perl 5. Unlike previous
efforts efforts to enhance Perl 5's object system, this one seems to
have gained a lot of traction with 136 current logins on the #moose
IRC channel. Moose is different enough that some have even claimed
that it is not Perl; however, this is clearly not the case as Moose
and non-Moose objects and be freely intermingled within Perl projects.
For some information Moose, check out this article by Jon Rockway. In
addition to Moose, check out KiokuDB an interface for schema-less
databases like Amazon SimpleDB and CouchDB as well as more traditional
DBI for RDBMs. In addition to supporting projects, ideally Perl 5's
core module list can be modernized so more people will be able to take
advantage of and feel comfortable recommending modern approaches to
Perl development.

At the same time, I'd also like to see them tackle a few more
persistent issues, the most important of which is CPAN usability.
There is no doubt the Perl community and the CPAN are very compelling;
however, installing CPAN dependencies is more difficult than it needs
to be. Installation often requires many interactive prompts and can
take a long time for applications with many dependencies. There are
typically no 5 minute installs like exist for WordPress, PHPbb, and
MediaWiki. Some exceptions include qpsmtpd and Catalyst using Matt
Trout's cat-install script.

I welcome EPO as another organization in the Perl community to keep
Perl modern and vibrant.

On 2月27日, 下午12时35分, Fayland Lam <fayl...@gmail.com> wrote:
> 我做过一些 use Moose; 的 projects, 感觉非常好。很明显会让你的代码很符合
> OO 性质。
>
> Thanks.
>
> Qiang (James) wrote:
> > 伦敦 Perl 小组2月份的演讲是关于 Moose(Perl 最新的 OO 系统) ，刚看了
> > Piers Cawley 的 Ruby OO 和 Moose 的比较，感觉不错。推荐一下:
>
> >http://www.bofh.org.uk/2009/02/22/moose-for-ruby-programmers
>
> > 其他 moose 演讲http://london.pm.org/tech_talks/
>
> > Qiang(James)
>
> --
> Fayland Lam //http://www.fayland.org/
> Foorum based on Catalyst //http://www.foorumbbs.com/
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

2009年2月26日星期四

[PerlChina] Re: Perl 的 OO 系统 moooooose

我做过一些 use Moose; 的 projects, 感觉非常好。很明显会让你的代码很符合
OO 性质。

Thanks.

Qiang (James) wrote:
> 伦敦 Perl 小组2月份的演讲是关于 Moose(Perl 最新的 OO 系统) ，刚看了
> Piers Cawley 的 Ruby OO 和 Moose 的比较，感觉不错。推荐一下:
>
> http://www.bofh.org.uk/2009/02/22/moose-for-ruby-programmers
>
> 其他 moose 演讲 http://london.pm.org/tech_talks/
>
>
> Qiang(James)
>
> >
>

--
Fayland Lam // http://www.fayland.org/
Foorum based on Catalyst // http://www.foorumbbs.com/

[PerlChina] Re: 包（.pm）的问题

谢谢，只是我想，建包是想将我的自己编的函数归类。我发现$max=MK1：：max($zhu,$mark);
传值就对啦，有没有别的解决办法？

On 2月26日, 下午12时59分, purl lamp <lamp.p...@gmail.com> wrote:
> 这是因为你使用了 OO 特性，就使得第一个参数成了对象或类的描述。这里的逻辑很简单，看不出使用 ->max 的理由。
> 直接使用标准 sub 就 ok 了，从而不必 shift 掉第一个 reference 或者类名。
>
> 2009/2/26 mark <zhusheng...@163.com>
>
>
>
>
>
> > #tt.pl
> > use strict;
> > use warnings;
> > use PM::MK1;
> > my ($zhu,$mark)=(1333,122222);
> > my $max=MK1->max($zhu,$mark);
> > print "3:MAX:$max\n";
>
> > #我的包文件MK1.pm
> > package MK1;
> > sub max{
> > shift(@_);
> > my($temp1,$temp2)=@_;
> > print "2:$temp1 ***$temp2\n";
> > if($temp1 > $temp2){
> > return $temp1;
> > }else{
> > return $temp2;
> > }
> > }
>
> > return 1;
>
> > 如果我没用"shift(@_); " ，$temp1=MK1;
> > 我不知道为什么？- 隐藏被引用文字 -
>
> - 显示引用的文字 -
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Perl 的 OO 系统 moooooose

伦敦 Perl 小组2月份的演讲是关于 Moose(Perl 最新的 OO 系统) ，刚看了
Piers Cawley 的 Ruby OO 和 Moose 的比较，感觉不错。推荐一下:

http://www.bofh.org.uk/2009/02/22/moose-for-ruby-programmers

其他 moose 演讲 http://london.pm.org/tech_talks/

Qiang(James)

[PerlChina] Re: 有关perl调用linux系统命令

谢谢，我找到原因了。
将shell里的正则表达式移到perl 里应该注意特殊字符的处理，通配符那些应该加两次转义，如下面的'[\*|_]*\b' 移到perl里后
应为'[\\*|_]*\\b'

On 2月23日, 下午5时16分, smallfish <perluo...@gmail.com> wrote:
> try qx
>
> 2009/2/23 CherryMM <lsy2...@163.com>
>
> > 我在linux终端用命令" grep -E '^[[:space:]]*[\*|_]*\b.*?=' ./test.cpp" 能输出匹配的信
> > 息，但我把这个命令移到perl代码里就不匹配了，在perl里引用命令的代码：` grep -E '^[[:space:]]*[\*|_]*
> > \b.*?=' ./test.cpp`
> > 请问一下这是怎么回事，谢谢？
>
> > --
>
> blog -http://hi.baidu.com/smallfish7788
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 求助！不知道如何描述，正则内插或传递变量给正则的问题

解决了简单说就是在正则表达式里加入函数或者执行一些额外操作可以用 s/$par/ eval $replace/e 解决详细的请看
perl编程 5.10.3 program parttern

2009/2/25 陈宇迪 <didistudy@gmail.com>

你给的这个例子，函数没有参数啊？
不大懂你的意思，能否说的清楚一些

2009/2/25 buxieyigu <buxieyigu@gmail.com>:

> sub regfromvar
> {
> my $str1="requestform";
> my $str2=$str1;
> my $parttern = "request(form)";
> my $replacement = '$1';
> print $str1,"\n";
> if($str1 =~ s/$parttern/$replacement/igxm)
> {
> print $str1,"\n";
> }
>
> print $str2,"\n";
> if($str2 =~ s/$parttern/$1/igxm)
> {
> print $str2,"\n";
> }
> }
>
> regfromvar();
> 请看上面的例子，我是想用函数的参数来传递给正则的parttern和replacement，但是不知道如何把 $1 包含在参数中，请问该如何解
> 决！谢谢！！！
> >
>

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

2009年2月25日星期三

[PerlChina] Re: 包（.pm）的问题

这是因为你使用了 OO 特性，就使得第一个参数成了对象或类的描述。这里的逻辑很简单，看不出使用 ->max 的理由。
直接使用标准 sub 就 ok 了，从而不必 shift 掉第一个 reference 或者类名。

2009/2/26 mark <zhusheng303@163.com>

#tt.pl
use strict;
use warnings;
use PM::MK1;
my ($zhu,$mark)=(1333,122222);
my $max=MK1->max($zhu,$mark);
print "3:MAX:$max\n";

#我的包文件MK1.pm
package MK1;
sub max{
shift(@_);
my($temp1,$temp2)=@_;
print "2:$temp1 ***$temp2\n";
if($temp1 > $temp2){
return $temp1;
}else{
return $temp2;
}
}

return 1;

如果我没用“shift(@_); ” ，$temp1=MK1;
我不知道为什么？

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] 包（.pm）的问题

#tt.pl
use strict;
use warnings;
use PM::MK1;
my ($zhu,$mark)=(1333,122222);
my $max=MK1->max($zhu,$mark);
print "3:MAX:$max\n";

#我的包文件MK1.pm
package MK1;
sub max{
shift(@_);
my($temp1,$temp2)=@_;
print "2:$temp1 ***$temp2\n";
if($temp1 > $temp2){
return $temp1;
}else{
return $temp2;
}
}

return 1;

如果我没用"shift(@_); " ，$temp1=MK1;
我不知道为什么？
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 求助！不知道如何描述，正则内插或传递变量给正则的问题

你给的这个例子，函数没有参数啊？
不大懂你的意思，能否说的清楚一些

2009/2/25 buxieyigu <buxieyigu@gmail.com>:
> sub regfromvar
> {
> my $str1="requestform";
> my $str2=$str1;
> my $parttern = "request(form)";
> my $replacement = '$1';
> print $str1,"\n";
> if($str1 =~ s/$parttern/$replacement/igxm)
> {
> print $str1,"\n";
> }
>
> print $str2,"\n";
> if($str2 =~ s/$parttern/$1/igxm)
> {
> print $str2,"\n";
> }
> }
>
> regfromvar();
> 请看上面的例子，我是想用函数的参数来传递给正则的parttern和replacement，但是不知道如何把 $1 包含在参数中，请问该如何解
> 决！谢谢！！！
> >
>

2009年2月24日星期二

[PerlChina] Re: 求助！不知道如何描述，正则内插或传递变量给正则的问题

我都是喜欢这样写
my $rr = $1 if $info =~ /aa(.*)bb/;

2009/2/25 buxieyigu <buxieyigu@gmail.com>

谢谢了

On 2月25日, 下午1时33分, agentzh <agen...@gmail.com> wrote:
> 2009/2/25 cnhack TNT <cnhack...@gmail.com>:

>
> > 用 eval 是正解 :-)
>
> 是啊，eval 是正解：
>
> sub regfromvar
> {
> my $str1="requestform";
> my $str2=$str1;
> my $parttern = "request(form)";
> my $replacement = '$1';
> print $str1,"\n";
> if($str1 =~ s/$parttern/eval $replacement/eigxm)
> {
> print $str1,"\n";
> }
>
> print $str2,"\n";
> if($str2 =~ s/$parttern/$1/igxm)
> {
> print $str2,"\n";
> }
>
> }
>
> regfromvar();
>
> 输出是期望的了：
>
> requestform
> form
> requestform
> form
>
> 不过如果 $replacement 来自外部的话，要小心注入哦。。。呵呵。。。
>
> Cheers,
> -agentzh

--
blog - http://hi.baidu.com/smallfish7788

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 求助！不知道如何描述，正则内插或传递变量给正则的问题

谢谢了

On 2月25日, 下午1时33分, agentzh <agen...@gmail.com> wrote:
> 2009/2/25 cnhack TNT <cnhack...@gmail.com>:
>
> > 用 eval 是正解 :-)
>
> 是啊，eval 是正解：
>
> sub regfromvar
> {
> my $str1="requestform";
> my $str2=$str1;
> my $parttern = "request(form)";
> my $replacement = '$1';
> print $str1,"\n";
> if($str1 =~ s/$parttern/eval $replacement/eigxm)
> {
> print $str1,"\n";
> }
>
> print $str2,"\n";
> if($str2 =~ s/$parttern/$1/igxm)
> {
> print $str2,"\n";
> }
>
> }
>
> regfromvar();
>
> 输出是期望的了：
>
> requestform
> form
> requestform
> form
>
> 不过如果 $replacement 来自外部的话，要小心注入哦。。。呵呵。。。
>
> Cheers,
> -agentzh
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 求助！不知道如何描述，正则内插或传递变量给正则的问题

谢谢暂时这样解决问题吧

On 2月25日, 上午11时47分, cnhack TNT <cnhack...@gmail.com> wrote:
> 用 eval 是正解 :-)
>
> 2009/2/25 Michael Zeng <galaxy2...@gmail.com>
>
> > 没看懂你在干啥，能举个例子么
>
> > 感觉这样写 $1 应该不好
>
> > On 2/25/09, buxieyigu <buxiey...@gmail.com> wrote:
>
> >> sub regfromvar
> >> {
> >> my $str1="requestform";
> >> my $str2=$str1;
> >> my $parttern = "request(form)";
> >> my $replacement = '$1';
> >> print $str1,"\n";
> >> my $suc;
> >> eval '$suc=$str1 =~ s/'.$parttern.'/'.$replacement.'/igxm';
> >> if($suc)
> >> {
> >> print $str1,"\n";
> >> }
>
> >> print $str2,"\n";
> >> if($str2 =~ s/$parttern/$1/igxm)
> >> {
> >> print $str2,"\n";
> >> }
> >> }
>
> >> regfromvar();
>
> >> 这样好像能解决问题，但是感觉不太对劲，有没有更标准的方法，难道正则不提供 $1 的转换么，传给他字符串就只能当作字符串处理。
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 求助！不知道如何描述，正则内插或传递变量给正则的问题

我是想传递一个正则字串比如传给parttern或replacement都行，但是如果直接把向后引用 ' $1' $2...等等传给 s/
parttern/replacement/ 比如 s/$parttern/$replacement
则 $1 不起作用，或者提前解释展开了，或者单纯认为是字符串'$1'

网上找的只是 eval方法不知道是不是标准方法

On 2月25日, 上午9时43分, Michael Zeng <galaxy2...@gmail.com> wrote:
> 没看懂你在干啥，能举个例子么
>
> 感觉这样写 $1 应该不好
>
> On 2/25/09, buxieyigu <buxiey...@gmail.com> wrote:
>
>
>
>
>
> > sub regfromvar
> > {
> > my $str1="requestform";
> > my $str2=$str1;
> > my $parttern = "request(form)";
> > my $replacement = '$1';
> > print $str1,"\n";
> > my $suc;
> > eval '$suc=$str1 =~ s/'.$parttern.'/'.$replacement.'/igxm';
> > if($suc)
> > {
> > print $str1,"\n";
> > }
>
> > print $str2,"\n";
> > if($str2 =~ s/$parttern/$1/igxm)
> > {
> > print $str2,"\n";
> > }
> > }
>
> > regfromvar();
>
> > 这样好像能解决问题，但是感觉不太对劲，有没有更标准的方法，难道正则不提供 $1 的转换么，传给他字符串就只能当作字符串处理。
>
> --
> Yours Sincerely
> Zeng Hong
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 求助！不知道如何描述，正则内插或传递变量给正则的问题

2009/2/25 cnhack TNT <cnhacktnt@gmail.com>:
> 用 eval 是正解 :-)
>

是啊，eval 是正解：

sub regfromvar
{
my $str1="requestform";
my $str2=$str1;
my $parttern = "request(form)";
my $replacement = '$1';
print $str1,"\n";
if($str1 =~ s/$parttern/eval $replacement/eigxm)
{
print $str1,"\n";
}

print $str2,"\n";
if($str2 =~ s/$parttern/$1/igxm)
{
print $str2,"\n";
}
}

regfromvar();

输出是期望的了：

requestform
form
requestform
form

不过如果 $replacement 来自外部的话，要小心注入哦。。。呵呵。。。

Cheers,
-agentzh

[PerlChina] Re: 求助！不知道如何描述，正则内插或传递变量给正则的问题

用 eval 是正解 :-)

2009/2/25 Michael Zeng <galaxy2004@gmail.com>

没看懂你在干啥，能举个例子么

感觉这样写 $1 应该不好

On 2/25/09, buxieyigu <buxieyigu@gmail.com> wrote:
sub regfromvar
{
       my $str1="requestform";
       my $str2=$str1;
       my $parttern = "request(form)";
       my $replacement = '$1';
       print $str1,"\n";
       my $suc;
       eval '$suc=$str1 =~ s/'.$parttern.'/'.$replacement.'/igxm';
       if($suc)
       {
                       print $str1,"\n";
       }

       print $str2,"\n";
       if($str2 =~ s/$parttern/$1/igxm)
       {
                       print $str2,"\n";
       }
}

regfromvar();

这样好像能解决问题，但是感觉不太对劲，有没有更标准的方法，难道正则不提供 $1 的转换么，传给他字符串就只能当作字符串处理。

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

Re: perl 5.10.x vs. perl 5.8.x (Was Re: [PerlChina] Re: perl标量与列表和散列的一点疑问)

这样的

On 2/25/09, agentzh <agentzh@gmail.com> wrote:

2009/2/24 Michael Zeng <galaxy2004@gmail.com>:
> perl 5 还在开发呢，最终版本大概是多少
>

按照官方的说法，perl 5 没有最终版，perl 5 和 perl 6 会一起共荣共发展，因为是两种不同的编程语言了，呵呵 ;)

Cheers,
-agentzh
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

Re: perl 5.10.x vs. perl 5.8.x (Was Re: [PerlChina] Re: perl标量与列表和散列的一点疑问)

2009/2/24 Michael Zeng <galaxy2004@gmail.com>:
> perl 5 还在开发呢，最终版本大概是多少
>

按照官方的说法，perl 5 没有最终版，perl 5 和 perl 6 会一起共荣共发展，因为是两种不同的编程语言了，呵呵 ;)

Cheers,
-agentzh

[PerlChina] Re: 求助！不知道如何描述，正则内插或传递变量给正则的问题

没看懂你在干啥，能举个例子么

感觉这样写 $1 应该不好

On 2/25/09, buxieyigu <buxieyigu@gmail.com> wrote:

sub regfromvar
{
       my $str1="requestform";
       my $str2=$str1;
       my $parttern = "request(form)";
       my $replacement = '$1';
       print $str1,"\n";
       my $suc;
       eval '$suc=$str1 =~ s/'.$parttern.'/'.$replacement.'/igxm';
       if($suc)
       {
                       print $str1,"\n";
       }

       print $str2,"\n";
       if($str2 =~ s/$parttern/$1/igxm)
       {
                       print $str2,"\n";
       }
}

regfromvar();

这样好像能解决问题，但是感觉不太对劲，有没有更标准的方法，难道正则不提供 $1 的转换么，传给他字符串就只能当作字符串处理。 --~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 求助！不知道如何描述，正则内插或传递变量给正则的问题

sub regfromvar
{
my $str1="requestform";
my $str2=$str1;
my $parttern = "request(form)";
my $replacement = '$1';
print $str1,"\n";
my $suc;
eval '$suc=$str1 =~ s/'.$parttern.'/'.$replacement.'/igxm';
if($suc)
{
print $str1,"\n";
}

print $str2,"\n";
if($str2 =~ s/$parttern/$1/igxm)
{
print $str2,"\n";
}
}

regfromvar();

这样好像能解决问题，但是感觉不太对劲，有没有更标准的方法，难道正则不提供 $1 的转换么，传给他字符串就只能当作字符串处理。
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] 求助！不知道如何描述，正则内插或传递变量给正则的问题

sub regfromvar
{
my $str1="requestform";
my $str2=$str1;
my $parttern = "request(form)";
my $replacement = '$1';
print $str1,"\n";
if($str1 =~ s/$parttern/$replacement/igxm)
{
print $str1,"\n";
}

print $str2,"\n";
if($str2 =~ s/$parttern/$1/igxm)
{
print $str2,"\n";
}
}

regfromvar();
请看上面的例子，我是想用函数的参数来传递给正则的parttern和replacement，但是不知道如何把 $1 包含在参数中，请问该如何解
决！谢谢！！！
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

Re: perl 5.10.x vs. perl 5.8.x (Was Re: [PerlChina] Re: perl标量与列表和散列的一点疑问)

perl 5 还在开发呢，最终版本大概是多少

2009/2/24 Xia Qingran <qingran.xia@gmail.com>

2009/2/19 agentzh <agentzh@gmail.com>

2009/2/18 Michael Zeng <galaxy2004@gmail.com>

还有say，向perl 6 发展了

对我自己来说，其实 perl 5.10.x 最激动人心的不是这些 perl 6 风格的语言特性，而是一个快了好多好多同时功能也强了好多的正则引擎！哈哈！

Benchmark 显示，我们的 OpenResty 测试集在同一台 Ubuntu Linux 上，使用 perl 5.10.0 比 perl 5.8.8 快了 10% ~ 20% 的样子。于是我把我手上的生产机全布署上自己编译的 perl 5.10.0 了，呵呵。

哇～10% － 20%！
刚刚把我跑SpamAssassin的机器升级到了Perl 5.10看看效果.

Cheers,
-agentzh

--
夏清然
Xia Qingran
qingran.xia@gmail.com
Sent from: Beijing 11 China.
Henny Youngman - "When I told my doctor I couldn't afford an operation, he offered to touch-up my X-rays."

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

发帖者 lazayworm 时间： 07:11 没有评论:

[PerlChina] Re: 星期四 (明天) 北京 Perl 用户小组的 2 月聚会

还是没弄明白怎么生成xul文件？呵呵！！

2009/2/24 riverlee <riverlee2008@gmail.com>

厉害，敬佩！

2009/2/23 agentzh <agentzh@gmail.com>:

> 2009/2/23 azure wang <azure1st@gmail.com>
>>
>> 呵呵幻灯片用什么工具做的啊，我看了，是个xml文件。不知道用什么软件制作啊不能记事本手写吧哈哈。
>
> 呵呵，幻灯片是 XUL 的，XML 的一个子集，基于 Firefox 插件技术，由 Ingy dot Net 的 Sporx 框架生成，同时用了
> Audrey Tang 的 .css，前面是我自己的 perl 编写的预处理器。我手写的幻灯片正文的代码在这里：
>
> http://agentzh.org/misc/slides/BJPW200902/ffcluster.sld
>
> 其中各种 Graphviz 插图则是我手写的 dot 代码或者手写 TT2 模板，再生成最终的 .dot，两个例子是：
>
> http://agentzh.org/misc/slides/BJPW200902/images/cluster-arch.dot
> 对应 PNG 图片
> http://agentzh.org/misc/slides/BJPW200902/images/cluster-arch.png
>
> http://agentzh.org/misc/slides/BJPW200902/images/resty-cluster.tt
> 对应 PNG 图片
> http://agentzh.org/misc/slides/BJPW200902/images/resty-cluster.png
>
> 这里手写的 sld/dot/tt 代码都在 vim 中编辑，呵呵。
>
> 我们在 CPAN 上还放了一个 XUL::Image::PPT 模块，可以将这种 XUL 格式的幻灯转为 PowerPoint .ppt
> 格式，从而进一步地可以得到 .pdf
> 文件，呵呵。当然，目前的转换就是全自动的屏幕快照，有些傻，但还算好使。一直想做一个基于文本原生的转换。有哥们愿意贡献代码么？哈哈
>
> Thanks!
> -agentzh
>
>
> >
>

--

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
,,__
.. .. / o._)
/--'/--\ \-'|| riverlee(李江) Email:riverlee2008@gmail.com
/ perl \_/ / Harbin Medical University Bioinfomatics
.'\ \__\ __.'.' Msn:riverlee2008@live.cn
)\ | )\ | Blog:http://riverlee2008.blogspot.com
// \\ // \\
||_ \\|_ \\_
-' '--'' '--'
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

--
Azure.Wang

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

2009年2月23日星期一

Re: perl 5.10.x vs. perl 5.8.x (Was Re: [PerlChina] Re: perl标量与列表和散列的一点疑问)

2009/2/19 agentzh <agentzh@gmail.com>

2009/2/18 Michael Zeng <galaxy2004@gmail.com>

还有say，向perl 6 发展了

对我自己来说，其实 perl 5.10.x 最激动人心的不是这些 perl 6 风格的语言特性，而是一个快了好多好多同时功能也强了好多的正则引擎！哈哈！

Benchmark 显示，我们的 OpenResty 测试集在同一台 Ubuntu Linux 上，使用 perl 5.10.0 比 perl 5.8.8 快了 10% ~ 20% 的样子。于是我把我手上的生产机全布署上自己编译的 perl 5.10.0 了，呵呵。

哇～10% － 20%！
刚刚把我跑SpamAssassin的机器升级到了Perl 5.10看看效果.

Cheers,
-agentzh

--
夏清然
Xia Qingran
qingran.xia@gmail.com
Sent from: Beijing 11 China.
Henny Youngman - "When I told my doctor I couldn't afford an operation, he offered to touch-up my X-rays."
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

Re: perl 5.10.x vs. perl 5.8.x (Was Re: [PerlChina] Re: perl标量与列表和散列的一点疑问)

2009/2/24 Shu Cho <neatcho@gmail.com>:
> 4b) synchronise dual-life modules with CPAN
> 是啥意思呀？

dual-life 是双重生命。比如 Devel::DProf，既在 perl core 里，又在 CPAN 上独立存在，呵呵：

http://search.cpan.org/~nwclark/perl-5.8.9/ext/Devel/DProf/DProf.pm
http://search.cpan.org/~ilyaz/DProf-19990108/DProf.pm

一般后者会更新一些，这里指的是把 CPAN 上的新版本同步到 perl core 里 :)

Cheers,
-agentzh

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

Re: perl 5.10.x vs. perl 5.8.x (Was Re: [PerlChina] Re: perl标量与列表和散列的一点疑问)

是 perl 5.10.1 的 release plan，dave mitchell 也是 5.10.0 的 pumpkin。

2009/2/24 Shu Cho <neatcho@gmail.com>

4b) synchronise dual-life modules with CPAN

是啥意思呀？

2009/2/24 purl lamp <lamp.purl@gmail.com>:

> From:
> Dave Mitchell
> Date:
> February 23, 2009 09:59
> Subject:
> current 5.10.1 release schedule
>
> Here's the current timetable for 5.10.1 (such as it is):
>
> 1) Finish off the backlog of merging from bleed (~ 2 weeks)
>
> 2) dampen any smoking fires
>
> 3) push out a snapshot, principally to check that the merged changes and
> module updates all seem okay
>
> 4a) fix smartmatching and known regressions from 5.8.x
> 4b) synchronise dual-life modules with CPAN
> 4c) dampen any remaining smoke
> 4d) finish perldelta
>
> 5) push out RC1 and wait a week; rinse and repeat as necessary
>
> Note thate there won't be a single code-freeze point as such; more a
> gradually increasing level of paranoia. However, after 1) and 2) I don't
> envisage merging any scary changes, so in particular if a major dual-life
> module update gets into bleed after that date, it's unlikely to get merged
> into bleed. After that point, I will probably only be interested in module
> updates that backport a bleed version to CPAN.
>
>
> 2009/2/20 CGI.NET <loveme1314@gmail.com>
>>
>> 一直都想用下perl 5.10的写法，但无奈太多机器基本都是5.8的，所以还是老实的按以前的写法来写
>> 不过我开发用的已经是5.10，虽然是WIN版的
>>
>> On 2月19日, 上午9时50分, agentzh <agen...@gmail.com> wrote:
>> > 2009/2/18 Michael Zeng <galaxy2...@gmail.com>
>> >
>> > > 还有say，向perl 6 发展了
>> >
>> > 对我自己来说，其实 perl 5.10.x 最激动人心的不是这些 perl 6
>> > 风格的语言特性，而是一个快了好多好多同时功能也强了好多的正则引擎！哈哈！
>> >
>> > Benchmark 显示，我们的 OpenResty 测试集在同一台 Ubuntu Linux 上，使用 perl 5.10.0 比 perl
>> > 5.8.8 快了 10% ~ 20% 的样子。于是我把我手上的生产机全布署上自己编译的 perl 5.10.0 了，呵呵。
>> >
>> > Cheers,
>> > -agentzh
>>
>
>
> >
>

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

Re: perl 5.10.x vs. perl 5.8.x (Was Re: [PerlChina] Re: perl标量与列表和散列的一点疑问)

4b) synchronise dual-life modules with CPAN
是啥意思呀？

2009/2/24 purl lamp <lamp.purl@gmail.com>:
> From:
> Dave Mitchell
> Date:
> February 23, 2009 09:59
> Subject:
> current 5.10.1 release schedule
>
> Here's the current timetable for 5.10.1 (such as it is):
>
> 1) Finish off the backlog of merging from bleed (~ 2 weeks)
>
> 2) dampen any smoking fires
>
> 3) push out a snapshot, principally to check that the merged changes and
> module updates all seem okay
>
> 4a) fix smartmatching and known regressions from 5.8.x
> 4b) synchronise dual-life modules with CPAN
> 4c) dampen any remaining smoke
> 4d) finish perldelta
>
> 5) push out RC1 and wait a week; rinse and repeat as necessary
>
> Note thate there won't be a single code-freeze point as such; more a
> gradually increasing level of paranoia. However, after 1) and 2) I don't
> envisage merging any scary changes, so in particular if a major dual-life
> module update gets into bleed after that date, it's unlikely to get merged
> into bleed. After that point, I will probably only be interested in module
> updates that backport a bleed version to CPAN.
>
>
> 2009/2/20 CGI.NET <loveme1314@gmail.com>
>>
>> 一直都想用下perl 5.10的写法，但无奈太多机器基本都是5.8的，所以还是老实的按以前的写法来写
>> 不过我开发用的已经是5.10，虽然是WIN版的
>>
>> On 2月19日, 上午9时50分, agentzh <agen...@gmail.com> wrote:
>> > 2009/2/18 Michael Zeng <galaxy2...@gmail.com>
>> >
>> > > 还有say，向perl 6 发展了
>> >
>> > 对我自己来说，其实 perl 5.10.x 最激动人心的不是这些 perl 6
>> > 风格的语言特性，而是一个快了好多好多同时功能也强了好多的正则引擎！哈哈！
>> >
>> > Benchmark 显示，我们的 OpenResty 测试集在同一台 Ubuntu Linux 上，使用 perl 5.10.0 比 perl
>> > 5.8.8 快了 10% ~ 20% 的样子。于是我把我手上的生产机全布署上自己编译的 perl 5.10.0 了，呵呵。
>> >
>> > Cheers,
>> > -agentzh
>>
>
>
> >
>

Re: perl 5.10.x vs. perl 5.8.x (Was Re: [PerlChina] Re: perl标量与列表和散列的一点疑问)

From:

Dave Mitchell

Date:

February 23, 2009 09:59

Subject:

current 5.10.1 release schedule

Here's the current timetable for 5.10.1 (such as it is):  1) Finish off the backlog of merging from bleed (~ 2 weeks)  2) dampen any smoking fires  3) push out a snapshot, principally to check that the merged changes and    module updates all seem okay  4a) fix smartmatching and known regressions from 5.8.x 4b) synchronise dual-life modules with CPAN 4c) dampen any remaining smoke 4d) finish perldelta   5) push out RC1 and wait a week; rinse and repeat as necessary  Note thate there won't be a single code-freeze point as such; more a gradually increasing level of paranoia. However, after 1) and 2) I don't envisage merging any scary changes, so in particular if a major dual-life module update gets into bleed after that date, it's unlikely to get merged into bleed. After that point, I will probably only be interested in module updates that backport a bleed version to CPAN.

2009/2/20 CGI.NET <loveme1314@gmail.com>

一直都想用下perl 5.10的写法，但无奈太多机器基本都是5.8的，所以还是老实的按以前的写法来写
不过我开发用的已经是5.10，虽然是WIN版的

On 2月19日, 上午9时50分, agentzh <agen...@gmail.com> wrote:
> 2009/2/18 Michael Zeng <galaxy2...@gmail.com>

>
> > 还有say，向perl 6 发展了
>
> 对我自己来说，其实 perl 5.10.x 最激动人心的不是这些 perl 6 风格的语言特性，而是一个快了好多好多同时功能也强了好多的正则引擎！哈哈！
>
> Benchmark 显示，我们的 OpenResty 测试集在同一台 Ubuntu Linux 上，使用 perl 5.10.0 比 perl
> 5.8.8 快了 10% ~ 20% 的样子。于是我把我手上的生产机全布署上自己编译的 perl 5.10.0 了，呵呵。
>
> Cheers,
> -agentzh

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 星期四 (明天) 北京 Perl 用户小组的 2 月聚会

厉害，敬佩！

2009/2/23 agentzh <agentzh@gmail.com>:
> 2009/2/23 azure wang <azure1st@gmail.com>
>>
>> 呵呵幻灯片用什么工具做的啊，我看了，是个xml文件。不知道用什么软件制作啊不能记事本手写吧哈哈。
>
> 呵呵，幻灯片是 XUL 的，XML 的一个子集，基于 Firefox 插件技术，由 Ingy dot Net 的 Sporx 框架生成，同时用了
> Audrey Tang 的 .css，前面是我自己的 perl 编写的预处理器。我手写的幻灯片正文的代码在这里：
>
> http://agentzh.org/misc/slides/BJPW200902/ffcluster.sld
>
> 其中各种 Graphviz 插图则是我手写的 dot 代码或者手写 TT2 模板，再生成最终的 .dot，两个例子是：
>
> http://agentzh.org/misc/slides/BJPW200902/images/cluster-arch.dot
> 对应 PNG 图片
> http://agentzh.org/misc/slides/BJPW200902/images/cluster-arch.png
>
> http://agentzh.org/misc/slides/BJPW200902/images/resty-cluster.tt
> 对应 PNG 图片
> http://agentzh.org/misc/slides/BJPW200902/images/resty-cluster.png
>
> 这里手写的 sld/dot/tt 代码都在 vim 中编辑，呵呵。
>
> 我们在 CPAN 上还放了一个 XUL::Image::PPT 模块，可以将这种 XUL 格式的幻灯转为 PowerPoint .ppt
> 格式，从而进一步地可以得到 .pdf
> 文件，呵呵。当然，目前的转换就是全自动的屏幕快照，有些傻，但还算好使。一直想做一个基于文本原生的转换。有哥们愿意贡献代码么？哈哈
>
> Thanks!
> -agentzh
>
>
> >
>

[PerlChina] Re: mod_perl 输出 binmode 数据该怎么做啊?

明白,试试,谢谢指点

[PerlChina] Re: 有关perl调用linux系统命令

2009/2/23 CherryMM <lsy2669@163.com>:
> 我在linux终端用命令" grep -E '^[[:space:]]*[\*|_]*\b.*?=' ./test.cpp" 能输出匹配的信
> 息，但我把这个命令移到perl代码里就不匹配了，在perl里引用命令的代码：` grep -E '^[[:space:]]*[\*|_]*
> \b.*?=' ./test.cpp`
> 请问一下这是怎么回事，谢谢？

直接用 Perl 的 regexp 过滤吧，不要再启动个 grep(1) 了。

lee

[PerlChina] Re: 星期四 (明天) 北京 Perl 用户小组的 2 月聚会

本来FF3用Cairo应该直接可以保存PDF的,但不知道为什么...,可以看看有没有这方面的patch...

2009/2/23 agentzh <agentzh@gmail.com>

2009/2/23 azure wang <azure1st@gmail.com>

呵呵幻灯片用什么工具做的啊，我看了，是个xml文件。不知道用什么软件制作啊不能记事本手写吧哈哈。

呵呵，幻灯片是 XUL 的，XML 的一个子集，基于 Firefox 插件技术，由 Ingy dot Net 的 Sporx 框架生成，同时用了 Audrey Tang 的 .css，前面是我自己的 perl 编写的预处理器。我手写的幻灯片正文的代码在这里：

    http://agentzh.org/misc/slides/BJPW200902/ffcluster.sld

其中各种 Graphviz 插图则是我手写的 dot 代码或者手写 TT2 模板，再生成最终的 .dot，两个例子是：

   http://agentzh.org/misc/slides/BJPW200902/images/cluster-arch.dot
           对应 PNG 图片 http://agentzh.org/misc/slides/BJPW200902/images/cluster-arch.png

   http://agentzh.org/misc/slides/BJPW200902/images/resty-cluster.tt
           对应 PNG 图片 http://agentzh.org/misc/slides/BJPW200902/images/resty-cluster.png

这里手写的 sld/dot/tt 代码都在 vim 中编辑，呵呵。

我们在 CPAN 上还放了一个 XUL::Image::PPT 模块，可以将这种 XUL 格式的幻灯转为 PowerPoint .ppt 格式，从而进一步地可以得到 .pdf 文件，呵呵。当然，目前的转换就是全自动的屏幕快照，有些傻，但还算好使。一直想做一个基于文本原生的转换。有哥们愿意贡献代码么？哈哈

Thanks!
-agentzh

--
>: ~

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 有关perl调用linux系统命令

try qx

2009/2/23 CherryMM <lsy2669@163.com>

我在linux终端用命令" grep -E '^[[:space:]]*[\*|_]*\b.*?=' ./test.cpp" 能输出匹配的信
息，但我把这个命令移到perl代码里就不匹配了，在perl里引用命令的代码：` grep -E '^[[:space:]]*[\*|_]*
\b.*?=' ./test.cpp`
请问一下这是怎么回事，谢谢？

[PerlChina] 有关perl调用linux系统命令

我在linux终端用命令" grep -E '^[[:space:]]*[\*|_]*\b.*?=' ./test.cpp" 能输出匹配的信
息，但我把这个命令移到perl代码里就不匹配了，在perl里引用命令的代码：` grep -E '^[[:space:]]*[\*|_]*
\b.*?=' ./test.cpp`
请问一下这是怎么回事，谢谢？
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

2009年2月22日星期日

[PerlChina] Re: mod_perl 输出 binmode 数据该怎么做啊?

是的，要设置输出的content-type就行了，比如image/gif,text/plain之类的。

2009/2/23 Beckheng Lam <bi.ken.lam@gmail.com>

set the header content-type with application/octet-stream
imxae wrote:

在perl程序中可以用下面的代码向浏览器输出文件,但mod_perl该怎么做呢?也试着用下面的方法,不行. 	binmode DOWN; 	binmode STDOUT; 	binmode STDERR; 	print <DOWN>; 	close DOWN;

[PerlChina] Re: mod_perl 输出 binmode 数据该怎么做啊?

set the header content-type with application/octet-stream
imxae wrote:

在perl程序中可以用下面的代码向浏览器输出文件,但mod_perl该怎么做呢?也试着用下面的方法,不行. 	binmode DOWN; 	binmode STDOUT; 	binmode STDERR; 	print <DOWN>; 	close DOWN;

--  Perl乐事 -- http://www.perlersh.org 我的博客 -- http://www.perlersh.org/blog.html

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] mod_perl 输出 binmode 数据该怎么做啊?

在perl程序中可以用下面的代码向浏览器输出文件,但mod_perl该怎么做呢?也试着用下面的方法,不行.
binmode DOWN;
binmode STDOUT;
binmode STDERR;
print <DOWN>;
close DOWN;
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: perl编译成可执行文件后,不能正常映射

问题已经解决了,原因是映射前没有从原映射中跳出来

On 2月22日, 下午2时09分, abc_tang <tang...@yahoo.com> wrote:
> 程序功能:自动映射到不同机器硬盘,获取测试信息,打印到屏幕.有可能用不同机器测试同一个产品的现象发生.
> 主要程序如下:
> while ($i<@data) #@data 保存所有的测试机器的信息
> {print ($i+1," A is tested at MC $data[$i]\n");
> map_hd("$data[$i]","$mapdir"); #根据测试机器,映射对应的HDD 到$mapdir盘符
> $mapdir++;
> word_search ($Lot_No); #查找相关测试数据
>
> while ($data[$i+1] eq $data[$i] && $i lt @data) #如果下次还是同一台机器测试,则不去映射
> {print ((++$i)+1," A is still tested at MC $data[$i]: No new logs.
> \n");}
> $i++;
> system ("net use * /delete /yes >nul 2>nul"); #删除所有映射
>
> }
>
> map_hd程序部分:
> sub map_hd
> { my $s_i=my $s_j =$_[0];
> my $s_mapdir = $_[1];
> system ("net use * /delete /yes >nul 2>nul"); #删除所有映射
> print ("map to $s_mapdir:\n");
> sleep 2;
> $s_i="\\"."\\cc01acp".$s_i."sc01\\c\$"; #根据测试机器生成映射目的
> $s_j="hcr\\uc01acp".$s_j."sc01"; #生成用户名
> system ("net use $s_mapdir: $s_i ina\@123 /user:$s_j ");#映射
> chdir ("$s_mapdir:\\ca\\T_4.3.2.2\\logs") or die ("$!");} #改变当前目录
> line120
>
> 问题是用perl 源文件执行时,没有问题.
> 但是用perlapp 生成可执行文件后, 如果出现一个产品前后在两台机器上测试的情况, 程序在第二次取数据时报错 :No such file
> or directory 在line 120上面.经过检查,发现第二次没有映射成功.
> 请帮忙分析一下,谢谢
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 星期四 (明天) 北京 Perl 用户小组的 2 月聚会

2009/2/23 azure wang <azure1st@gmail.com>

呵呵幻灯片用什么工具做的啊，我看了，是个xml文件。不知道用什么软件制作啊不能记事本手写吧哈哈。

呵呵，幻灯片是 XUL 的，XML 的一个子集，基于 Firefox 插件技术，由 Ingy dot Net 的 Sporx 框架生成，同时用了 Audrey Tang 的 .css，前面是我自己的 perl 编写的预处理器。我手写的幻灯片正文的代码在这里：

    http://agentzh.org/misc/slides/BJPW200902/ffcluster.sld

其中各种 Graphviz 插图则是我手写的 dot 代码或者手写 TT2 模板，再生成最终的 .dot，两个例子是：

   http://agentzh.org/misc/slides/BJPW200902/images/cluster-arch.dot
           对应 PNG 图片 http://agentzh.org/misc/slides/BJPW200902/images/cluster-arch.png

   http://agentzh.org/misc/slides/BJPW200902/images/resty-cluster.tt
           对应 PNG 图片 http://agentzh.org/misc/slides/BJPW200902/images/resty-cluster.png

这里手写的 sld/dot/tt 代码都在 vim 中编辑，呵呵。

我们在 CPAN 上还放了一个 XUL::Image::PPT 模块，可以将这种 XUL 格式的幻灯转为 PowerPoint .ppt 格式，从而进一步地可以得到 .pdf 文件，呵呵。当然，目前的转换就是全自动的屏幕快照，有些傻，但还算好使。一直想做一个基于文本原生的转换。有哥们愿意贡献代码么？哈哈

Thanks!
-agentzh

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: perl编译成可执行文件后,不能正常映射

大哥，感觉你写的这个很有C的风格

On 2/22/09, abc_tang <tang_tq@yahoo.com> wrote:

程序功能:自动映射到不同机器硬盘,获取测试信息,打印到屏幕.有可能用不同机器测试同一个产品的现象发生.
主要程序如下:
while ($i<@data)           #@data 保存所有的测试机器的信息
{print ($i+1," A is tested at MC $data[$i]\n");
map_hd("$data[$i]","$mapdir");   #根据测试机器,映射对应的HDD 到$mapdir盘符
$mapdir++;
word_search ($Lot_No);     #查找相关测试数据

while ($data[$i+1] eq $data[$i] && $i lt @data)   #如果下次还是同一台机器测试,则不去映射
{print ((++$i)+1," A is still tested at MC $data[$i]: No new logs.
\n");}
$i++;
system ("net use * /delete /yes >nul 2>nul");  #删除所有映射
}

map_hd程序部分:
sub map_hd
{ my $s_i=my $s_j =$_[0];
my $s_mapdir = $_[1];
system ("net use * /delete /yes >nul 2>nul");          #删除所有映射
  print ("map to $s_mapdir:\n");
  sleep 2;
  $s_i="\\"."\\cc01acp".$s_i."sc01\\c\$";   #根据测试机器生成映射目的
  $s_j="hcr\\uc01acp".$s_j."sc01";          #生成用户名
  system ("net use $s_mapdir: $s_i ina\@123 /user:$s_j ");#映射
  chdir ("$s_mapdir:\\ca\\T_4.3.2.2\\logs") or die ("$!");} #改变当前目录
line120

问题是用perl 源文件执行时,没有问题.
但是用perlapp 生成可执行文件后, 如果出现一个产品前后在两台机器上测试的情况, 程序在第二次取数据时报错 :No such file
or directory 在line 120上面.经过检查,发现第二次没有映射成功.
请帮忙分析一下,谢谢

--
            Yours Sincerely
                    Zeng Hong
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 星期四 (明天) 北京 Perl 用户小组的 2 月聚会

呵呵幻灯片用什么工具做的啊，我看了，是个xml文件。不知道用什么软件制作啊不能记事本手写吧哈哈。

2009/2/17 辉郎 <smart.wolfer@gmail.com>

不爽，那天临时决定出差，丧失了一次宝贵的学习机会。

On 2月13日, 上午11时03分, agentzh <agen...@gmail.com> wrote:
> 2009/2/12 agentzh <agen...@gmail.com>
>
> > 2009/2/12 agentzh <agen...@gmail.com>

>
> >> 刚做好一套幻灯初稿，先放出来：
>
> >> http://agentzh.org/misc/slides/BJPW200902/ffcluster.xul （Firefox
> >> 2.x/3.x required)
>
> > 基本定稿了已经，呵呵。还是上面这个 URL，一共 50 张幻灯。
>
> 后来我又加了几张，现在是 54 张，呵呵。昨晚的交流没料到来了这么多朋友，呵呵，原本一小时的 talk，一不小心讲得起兴，聊了两个半小时 :P
>
> 21 日在 OpenParty 的 Fox 聚会上我还会再说一说这个主题：
>

> http://www.beijing-open-party.org/index.php/2009/02/beijing-open-part...

>
> -agentzh

[PerlChina] Re: 请教perl字符串加密算法..于小弟是初学者,学习加密时遇到问题,现求教之:

aes感觉又太大了,这有个方法,只是加密后字符串太长了.

sub passport_encrypt
{
my($txt, $key,$ctr,$tmp)=(shift,shift,0,undef);
srand;
my $encrypt_key = md5_hex(rand 32000);

for(my $i = 0; $i < length($txt); $i++) {
#如果 $ctr = $encrypt_key 的长度，则 $ctr 清零
$ctr = $ctr == length($encrypt_key) ? 0 : $ctr;
#$tmp 字串在末尾增加两位，其第一位内容为 $encrypt_key 的第 $ctr 位, 第二位内容为 $txt 的第 $i 位与
$encrypt_key 的 $ctr 位取异或。然后 $ctr = $ctr + 1
$tmp .= substr($encrypt_key,$ctr,1).(substr($txt,$i,1) ^
substr($encrypt_key,$ctr,1));
$ctr++;
}

#返回结果，结果为 passport_key() 函数返回值的 base64 编码结果
return Base64encode(passport_key($tmp, $key));
}

#解密模块
sub passport_decrypt{
my ($txt, $key,$tmp)=(shift,shift,undef);
#$txt 的结果为加密后的字串经过 base64 解码，然后与私有密匙一起经过 passport_key() 函数处理后的返回值
$txt = passport_key(Base64decode($txt), $key);

#for 循环，$i 为从 0 开始，到小于 $txt 字串长度的整数
for (my $i = 0; $i < length($txt); $i++) {
# $tmp 字串在末尾增加一位，其内容为 $txt 的第 $i 位与 $txt 的第 $i + 1 位取异或。然后 $i = $i + 1
$tmp .= substr($txt,$i,1) ^substr($txt,++$i,1);
}
#返回 $tmp 的值作为结果
return $tmp;

}

#密匙模块
sub passport_key {
my ($txt, $encrypt_key,$ctr,$tmp)=(shift,shift,0,undef);
#将 $encrypt_key 赋为 $encrypt_key 经 md5() 后的值
$encrypt_key = md5_hex($encrypt_key);

#for 循环，$i 为从 0 开始，到小于 $txt 字串长度的整数
for(my $i = 0; $i < length($txt); $i++) {
#如果 $ctr = $encrypt_key 的长度，则 $ctr 清零
$ctr = $ctr == length($encrypt_key) ? 0 : $ctr;
#$tmp 字串在末尾增加一位，其内容为 $txt 的第 $i 位，与 $encrypt_key 的第 $ctr + 1 位取异或。然后
$ctr = $ctr + 1
$tmp .= substr($txt,$i,1) ^ substr($encrypt_key,$ctr,1);
$ctr++;
}

# 返回 $tmp 的值作为结果
return $tmp;

}

订阅：博文 (Atom)

2009年2月28日星期六

2009年2月27日星期五

2009年2月26日星期四

2009年2月25日星期三

2009年2月24日星期二

2009年2月23日星期一

2009年2月22日星期日

订阅

博客归档