2009年12月12日星期六

Re: [PerlChina] Re: 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

围观
2009/12/13 Fangyuan <chengfangyuan2008@gmail.com>:
> 正在使用perl,有兴趣,
> qq: 434988469
> email: chengfangyuan2008@gmail.com
> msn不常用
>
> On Dec 12, 12:50 pm, 蓝天下云层上 <imx365s...@gmail.com> wrote:
>> 我想发起用perl写个类似于问问的开源程序,旨在于学习perl,提高自己perl的能力,希望能找些共同爱好perl人一起研究一起学习,不知
>> 道
>> 大家是否有兴趣?
>>
>> 希望有兴趣的朋友回复自己的QQ,或msn,建个群一起联系.
>
> --
>
> 您收到此邮件是因为您订阅了 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写个类似于问问的开源程序,不知道大家有兴趣?

正在使用perl,有兴趣,
qq: 434988469
email: chengfangyuan2008@gmail.com
msn不常用

On Dec 12, 12:50 pm, 蓝天下云层上 <imx365s...@gmail.com> wrote:
> 我想发起用perl写个类似于问问的开源程序,旨在于学习perl,提高自己perl的能力,希望能找些共同爱好perl人一起研究一起学习,不知
> 道
> 大家是否有兴趣?
>
> 希望有兴趣的朋友回复自己的QQ,或msn,建个群一起联系.

--

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

Re: [PerlChina] 关于Erlang::Port模块有问题向高手请教

可以 bless 到任意字符串,不光是包名。

2009/12/12 小飞侠 <jackson1668@gmail.com>
 这是用来处理Erlang和perl语言通信的模块,我从模块在本机安装好,测试ok后,看了看它的source,发现一个不太理解的现象如下

#
-----------------------------------------------------------------------------
# $port->_newAtom($text) @ private.
#  create Erlang::Atom object.
#
sub _newAtom
{
       my $this = shift;
       my $atom = shift;
       bless \$atom, 'Erlang::Atom';
}

以上是其中的一个方法的注释和实体,创建了一个 Erlang::Atom对象的实体。
奇怪的是,当前目录 /usr/lib/perl5/site_perl/5.8.8/Erlang 下中有一个文件 Port.pm,并且在
Port.pm中并没有对Erlang::Atom的定义。
不知道是怎么一回事,忘高手不吝赐教

--

您收到此邮件是因为您订阅了 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] Re: 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

算我一个

2009/12/13 钟声 <gh00920307@gmail.com>
我也想参加,以前都是用PHP开发网站的。perl开发问问有什么框架吗?
或者从什么地方开始呢,还要大家讨论下吧

2009/12/12 imxae <imx365ster@gmail.com>

我可以提供网站空间来存perl问问的代码,可我需要什么程序才能方便大家协同开发呢?

--

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

Re: [PerlChina] Re: 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

没错,我已经发送了一封电子邮件有关基本框架的建议.大家准备下应该就可以开始了.

2009/12/13 钟声 <gh00920307@gmail.com>:
> 我也想参加,以前都是用PHP开发网站的。perl开发问问有什么框架吗?
> 或者从什么地方开始呢,还要大家讨论下吧
>

--

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

Re: [PerlChina] Re: 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

我也想参加,以前都是用PHP开发网站的。perl开发问问有什么框架吗?
或者从什么地方开始呢,还要大家讨论下吧

2009/12/12 imxae <imx365ster@gmail.com>
我可以提供网站空间来存perl问问的代码,可我需要什么程序才能方便大家协同开发呢?

--

您收到此邮件是因为您订阅了 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] perlchina advent day 13

=for advent_year 2009

=for advent_day 13

=for advent_title Unicode Charnames

=for advent_author Joe Jiang

可能因为创造者学的是语言而非计算机科学的缘故,Perl 支持 Unicode 的处理已经很久了,远在 2000 年的 5.6 版本就开始支持。直到如今的 5.10.1 版本支持 Unicode 的 5.1.0 版本,Perl 保持了一贯的特色,接近并支持自然语言。

作为验证,可以从目前比较容易获得的 5.8.8 版本开始检查,对比有名字的字符的数量。

=begin pre

% perl -C3 -Mcharnames=:full -le 'print qq(@{[$a=sprintf(qq(\\x{%04x}),$_)]}\t@{[eval q(").$a.q(")]}\t@{[charnames::viacode($_)]}) for 0x0 .. 0xffff' | perl -lane 'print join q( ),@F[2..$#F] if $F[2] ne undef'| wc -l
13058

=end pre

同样的命令在 5.10.0 上运行得到 13398,在 5.10.1 上运行得到 14706。查阅 perldoc perldelta 得知 5.8.8 支持的 Unicode 版本大概是 4.1.0,而 5.10.0 则更加确定,是 5.0.0。

上面的命令很好玩,能让你的机器跑一阵子。如果把后面的管道换成 less 或 more 也很有用,可以列出 0xffff 以下所有的 unicode 的编码和名字。

=begin pre

\x{0000}        ^@     
\x{0001}        ^A      START OF HEADING
\x{0002}        ^B      START OF TEXT
\x{0003}        ^C      END OF TEXT
...

=end pre

所以本文开头的命令正是利用了最右边一列的名字,用 wc -l 来数算有名的 Unicode 码的数量。

如果我们在这个输出中往下滚动,就会看到很多稀奇古怪的文字,比如这一段:

=begin pre

\x{03d0}        ϐ       GREEK BETA SYMBOL
\x{03d1}        ϑ       GREEK THETA SYMBOL
...
\x{0488}        ҈        COMBINING CYRILLIC HUNDRED THOUSANDS SIGN
\x{0489}        ҉        COMBINING CYRILLIC MILLIONS SIGN
...
\x{336f}        ㍯      IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-THREE
\x{3370}        ㍰      IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-FOUR
...
\x{4e00}        一     
\x{4e01}        丁     
...

=end pre

由此可知,我们的程序并没有数算中日韩文的符号,所以结果的数量不是非常巨大。统计的对象主要是这些能用英文来描述的字符,而这些字符在 Perl 里面可以用 charnames 模块的 viacode 子程序查出名字,也就是大家看到的 charnames::viacode()。例如下面的代码能打印出一个特殊的六角形:

=begin pre

$ perl -C3 -Mcharnames=:full -e 'print qq(\x{2394}\t),charnames::viacode(0x2394),qq(\n)'
⎔    SOFTWARE-FUNCTION SYMBOL

$ perl -Mcharnames=:full -C3 -le 'print qq(\N{SOFTWARE-FUNCTION SYMBOL})'


=end pre

如上所示,\N{} 的写法非常 English,同样需要 charnames 模块的支持。

程序中也有些很难懂的地方,自己也觉得还有待完善。比如中间一列的字符打印使用了这样的代码 \t@{[eval q(").$a.q(")]}\t,不过这毕竟是一行代码,可以在茶余饭后反复改进,这大概是 Perl 的爱好者总能保持憨厚微笑的原因之一吧。

--

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

Re: [PerlChina] Re: 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

我可以提供网站空间来存perl问问的代码,可我需要什么程序才能方便大家协同开发呢?

--

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

Re: [PerlChina] Re: 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

盲拳打死老师傅,支持一下你们!

期待更多用PERL实施项目的人给意见你们。 :-)


蓝天下云层上 wrote:
> 谢谢大家的支持,我也是菜鸟,是否有人能指教一下,该怎么建立和维护一个代码库?方便大家去更新代码?
>
> --
>
>
>


--
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] Re: 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

谢谢大家的支持,我也是菜鸟,是否有人能指教一下,该怎么建立和维护一个代码库?方便大家去更新代码?

--

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

Re: [PerlChina] Re: 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

谢谢大家的支持,我也是菜鸟,是否有人能指教一下,该怎么建立和维护一个代码库?方便大家去更新代码?

--

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

[PerlChina] 关于Erlang::Port模块有问题向高手请教

这是用来处理Erlang和perl语言通信的模块,我从模块在本机安装好,测试ok后,看了看它的source,发现一个不太理解的现象如下

#
-----------------------------------------------------------------------------
# $port->_newAtom($text) @ private.
# create Erlang::Atom object.
#
sub _newAtom
{
my $this = shift;
my $atom = shift;
bless \$atom, 'Erlang::Atom';
}

以上是其中的一个方法的注释和实体,创建了一个 Erlang::Atom对象的实体。
奇怪的是,当前目录 /usr/lib/perl5/site_perl/5.8.8/Erlang 下中有一个文件 Port.pm,并且在
Port.pm中并没有对Erlang::Atom的定义。
不知道是怎么一回事,忘高手不吝赐教

--

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

Re: [PerlChina] Re: 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

报名
 
 
----- Original Message -----
Sent: Saturday, December 12, 2009 7:31 PM
Subject: Re: [PerlChina] Re: 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

有兴趣,不知道能帮啥忙, 只是perl基础较好
 


 
2009/12/12 weigun <sffidr99@163.com>


On 12月12日, 下午12时50分, 蓝天下云层上 <imx365s...@gmail.com> wrote:
> 我想发起用perl写个类似于问问的开源程序,旨在于学习perl,提高自己perl的能力,希望能找些共同爱好perl人一起研究一起学习,不知
> 道
> 大家是否有兴趣?
>
> 希望有兴趣的朋友回复自己的QQ,或msn,建个群一起联系.

对perl有兴趣・・但是・・网页的话・・完全没基础

--

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





--
           Yours Sincerely
                   Zeng Hong

--

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

Re: [PerlChina] Re: 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

有兴趣,不知道能帮啥忙, 只是perl基础较好
 


 
2009/12/12 weigun <sffidr99@163.com>


On 12月12日, 下午12时50分, 蓝天下云层上 <imx365s...@gmail.com> wrote:
> 我想发起用perl写个类似于问问的开源程序,旨在于学习perl,提高自己perl的能力,希望能找些共同爱好perl人一起研究一起学习,不知
> 道
> 大家是否有兴趣?
>
> 希望有兴趣的朋友回复自己的QQ,或msn,建个群一起联系.

对perl有兴趣・・但是・・网页的话・・完全没基础

--

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





--
           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: 关于一个子程序的问题

On 12月10日, 上午7时26分, camelbbs <camel...@gmail.com> wrote:
> 请问我的子程序想处理两个数组参数,应该怎么写,下面这样好像不行:
>
> sub check{
> my @dd=shift;
> my @num=shift;
> my $n=0;
> for(my $i=0;$i<@num;$i++){
> if($dd[$num[$i]] ne 'NA'){
> $n++;
> }
> }
> return $n;
>
>
>
> }- 隐藏被引用文字 -
>
> - 显示引用的文字 -

可以用引用来传递参数

--

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

[PerlChina] Re: 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

On 12月12日, 下午12时50分, 蓝天下云层上 <imx365s...@gmail.com> wrote:
> 我想发起用perl写个类似于问问的开源程序,旨在于学习perl,提高自己perl的能力,希望能找些共同爱好perl人一起研究一起学习,不知
> 道
> 大家是否有兴趣?
>
> 希望有兴趣的朋友回复自己的QQ,或msn,建个群一起联系.

对perl有兴趣・・但是・・网页的话・・完全没基础

--

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

2009年12月11日星期五

Re: [PerlChina] cpan有开关交互询问的参数没

thanks

2009/12/12 woosley. xu. <redicaps@gmail.com>:
> 在.cpan/CPAN/MyConfig.pm
>
> 'prerequisites_policy' => q[follow],
>
>
> 2009/12/12 Yuan Jiang <sleetdrop@gmail.com>
>>
>> 用cpan装一个模块的时候,如果它有相当多的依赖的话,它会问你很多yes/no
>> 能让它自动都yes不,在那守着太痛苦了。
>>
>>
>>
>> --
>> 姜源
>> Yuan Jiang
>> http://blog.vetcafe.net
>> http://twitter.com/sleetdrop
>>
>> --
>>
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
>> 要取消订阅此网上论坛,请发送电子邮件至 perlchina+unsubscribe@googlegroups.com
>> 若有更多问题,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>
>>
>
>
>
> --
> Woosley.Xu
>
>
>
> --
>
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
> 要取消订阅此网上论坛,请发送电子邮件至 perlchina+unsubscribe@googlegroups.com
> 若有更多问题,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
姜源
Yuan Jiang
http://blog.vetcafe.net
http://twitter.com/sleetdrop

--

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

[PerlChina] Re: 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

我想参加,可是我是刚学perl的新手,有心无力呀!不知道怎么办好。

On 12月12日, 下午12时50分, 蓝天下云层上 <imx365s...@gmail.com> wrote:
> 我想发起用perl写个类似于问问的开源程序,旨在于学习perl,提高自己perl的能力,希望能找些共同爱好perl人一起研究一起学习,不知
> 道
> 大家是否有兴趣?
>
> 希望有兴趣的朋友回复自己的QQ,或msn,建个群一起联系.

--

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

Re: [PerlChina] 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

想法不错, 支持一下.

我不太会,但是很愿意参加一份.



----- Original Message -----
From: "蓝天下云层上" <imx365ster@gmail.com>
To: "PerlChina Mongers 讨论组" <perlchina@googlegroups.com>
Sent: Saturday, December 12, 2009 12:50 PM
Subject: [PerlChina] 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?


> 我想发起用perl写个类似于问问的开源程序,旨在于学习perl,提高自己perl的能力,希望能找些共同爱好perl人一起研究一起学习,不知
> 道
> 大家是否有兴趣?
>
> 希望有兴趣的朋友回复自己的QQ,或msn,建个群一起联系.
>
> --
>
> 您收到此邮件是因为您订阅了 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] 想发起用perl写个类似于问问的开源程序,不知道大家有兴趣?

我想发起用perl写个类似于问问的开源程序,旨在于学习perl,提高自己perl的能力,希望能找些共同爱好perl人一起研究一起学习,不知

大家是否有兴趣?

希望有兴趣的朋友回复自己的QQ,或msn,建个群一起联系.

--

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

[PerlChina] 我想发一个用perl写的类似于问问的开源程序,不知道大家是否有兴趣?

我想发一个用perl写个类似于问问的开源程序,旨在于学习perl,提高自己perl的能力,希望能找些共同爱好perl人一起研究一起学习,不知道
大家是否有兴趣?

--

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

Re: [PerlChina] Re: 一个限制酶切作图算法的Perl语言实现问题

On Thu, Dec 10, 2009 at 11:45:44PM -0800, D-Horse wrote:
>我补充一下问题描述,
>就是已知数组1{0,2 ,4,7,10},数组内元素两两相减得数组2{2,2,3,3,4,5,6,7,8,10}
>现在是已知数组2,求数组1
>

没有细看, 但觉得你的脚本应该把每个功能分开, 遵循UNIX的哲学, 函数要小,
每个函数只做一件事情, 这样debug起来也比较的方便
这个的算法都描述的很清楚, Perl实现起来应该还是很容易的:)

>--
>
>您收到此邮件是因为您订阅了 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] cpan有开关交互询问的参数没

在.cpan/CPAN/MyConfig.pm

  'prerequisites_policy' => q[follow],


2009/12/12 Yuan Jiang <sleetdrop@gmail.com>
用cpan装一个模块的时候,如果它有相当多的依赖的话,它会问你很多yes/no
能让它自动都yes不,在那守着太痛苦了。



--
姜源
Yuan Jiang
http://blog.vetcafe.net
http://twitter.com/sleetdrop

--

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





--
Woosley.Xu



--

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

[PerlChina] cpan有开关交互询问的参数没

用cpan装一个模块的时候,如果它有相当多的依赖的话,它会问你很多yes/no
能让它自动都yes不,在那守着太痛苦了。

--
姜源
Yuan Jiang
http://blog.vetcafe.net
http://twitter.com/sleetdrop

--

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

[PerlChina] CN Perl Advent Day 12: Devel::REPL

http://perlchina.org/advent/2009/REPL.html

=for advent_year 2009

=for advent_day 12

=for advent_title Devel::REPL

=for advent_author Fayland Lam

M<Devel::REPL> 由牛人 Matt S Trout 所开发。整个开发过程通过 blog 发布,极具参考价值。

A<http://chainsawblues.vox.com/library/post/a-perl-read-excute-print-loop-repl.html>

A<http://chainsawblues.vox.com/library/post/writing-a-perl-read-eval-print-loop-repl---part-2.html>

A<http://chainsawblues.vox.com/library/post/writing-a-perl-repl-part-3---lexical-environments.html>

A<http://chainsawblues.vox.com/library/post/develrepl-part-4---script-options-rc-files-profiles-and-packaging.html>

(上述地址需要爬墙)

=begin pre

[fayland@perl ~]$ re.pl

$ use WWW::Mechanize;

$ my $ua = WWW::Mechanize->new;
my ($jar,$parser);
$jar = HTTP::Cookies=HASH(0x90530bc);
$parser = undef;
$WWW_Mechanize1 = WWW::Mechanize=HASH(0x94d1da4);

$ my $resp = $ua->get('http://google.com');
$HTTP_Response1 = HTTP::Response=HASH(0x9694a14);

$ $_REPL->load_plugin('Timing');
1
$ $resp = $ua->get('http://google.com');
Took 0.152513027191162 seconds.
$HTTP_Response1 = HTTP::Response=HASH(0x96ad904);

$ $ua->cookie_jar->as_string;
Took 0.000859975814819336 seconds.
Set-Cookie3: NID="29=EGf4gTTIzOZkezAPclz4IQnixlbALIP3tBnjzoU05vmI81T4duI8a7hPD49gYpwcwCTPnFlZlbdoSGw0Bz7amPObGUcbkKlK3yRUrbEJWVyGS3aTUY4ECmfOkmc7C-UG";
path="/"; domain=.google.com; path_spec; expires="2010-06-12
13:21:07Z"; HttpOnly; version=0
Set-Cookie3: PREF="ID=2704ee5d6f52e4ca:U=34269efc86f19890:TM=1260537667:LM=1260537775:S=QZ3yjOx-nf6n6K5U";
path="/"; domain=.google.com; path_spec; expires="2011-12-11
13:22:55Z"; version=0

$ sub fact {

> my $n = shift;

> return 1 if $n < 2;

> return $n * fact($n-1);

> }

$ fact(10);
3628800

$ exit

=end pre

本文只做简单介绍,更多更详尽的功能就需要自己去尝试。

另外,可以自定义 profile 模块或者 rc 文件来构建自己的 re.pl 环境。

基于该模块的扩展有 M<Carp::REPL> 和 M<CatalystX::REPL>,都是非常好的工具。

Enjoy! 谢谢。

--
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] Re: CN Perl Advent Day 10: Padre

wx在linux里是对gtk的封装。


2009/12/11 snyh <snyh@snyh.org>:
> UI应该是gtk写的吧 里面有几个图标 貌似是gtk里面的stock 也有熟悉的gnome的感觉 特别是那橙黄色的标题栏
>
> 2009/12/11 Fayland Lam <fayland@gmail.com>:
>> Wx. :)
>>
>> http://search.cpan.org/dist/Wx/
>>
>> On 2009-12-11 16:43, lobatt wrote:
>>> UI界面挺好看的,是TK写的还是用的eclipse的组件?
>>>
>>> On 12月10日, 上午7时37分, Fayland Lam <fayl...@gmail.com> wrote:
>>>
>>>> http://perlchina.org/advent/2009/Padre.html
>>>>
>>>> =for advent_year 2009
>>>>
>>>> =for advent_day 10
>>>>
>>>> =for advent_title Padre
>>>>
>>>> =for advent_author Fayland Lam
>>>>
>>>> 如果您在寻找一个免费的,高度可扩展的,对 Perl 拥有良好支持的 IDE, 那么 M<Padre> 是个很不错的选择。
>>>>
>>>> Padre 由 Gábor Szabó 发起,使用 Perl 编写,主要目标是给 Perl 开发者一个良好的开发环境。主页在
>>>> A<http://padre.perlide.org/>
>>>>
>>>> 以下是使用 Padre 的几大理由:
>>>>
>>>> 一,它由 Perl 所编写。
>>>>
>>>> 由 Perl 编写意味着高度可扩展,您可以使用您最熟悉和喜欢的 Perl 来编写插件,满足自己的需求。
>>>>
>>>> 二,初学者模式。
>>>>
>>>> 它能自动识别指出一些初学者常见的错误。
>>>>
>>>> 还有一些初学者常用的功能如变量替换,查找变量申明,括号对齐和补齐等。
>>>>
>>>> 三,丰富的功能。
>>>>
>>>> 通过一些插件扩展,您能 Tidy
>>>> A<http://search.cpan.org/dist/Padre-Plugin-HTML/|HTML>/A<http://search.cpan.org/dist/Padre-Plugin-XML/|XML>/A<http://search.cpan.org/dist/Padre-Plugin-JavaScript/|JavaScript>/Perl,
>>>> 验证 HTML/XML/CSS 错误,检查拼写语法等。
>>>>
>>>> 针对 Perl, 拥有 A<http://search.cpan.org/dist/Padre-Plugin-Ecliptic/|Ecliptic>,
>>>> A<http://search.cpan.org/dist/Padre-Plugin-Debugger/|调试器>,A<http://search.cpan.org/dist/Padre-Plugin-PerlCritic/|Critic>,
>>>> A<http://search.cpan.org/dist/Padre-Plugin-ClassSniff/|ClassSniff>,
>>>> A<http://search.cpan.org/dist/Padre-Plugin-DataWalker/|DataWalker>,
>>>> A<http://search.cpan.org/dist/Padre-Plugin-REPL/|REPL>,
>>>> A<http://search.cpan.org/dist/Padre-Plugin-PAR/|PAR> 等丰富插件。
>>>>
>>>> 常见的框架支持 A<http://search.cpan.org/dist/Padre-Plugin-Catalyst/|Catalyst>,
>>>> A<http://search.cpan.org/dist/Padre-Plugin-Mojolicious/|Mojolicious>
>>>> 等。
>>>>
>>>> 四,Perl 6
>>>>
>>>> 虽然 Perl 6 不会在今年的圣诞发布,但是这并不妨碍我们去尝试她。
>>>>
>>>> Padre 拥有 A<http://search.cpan.org/dist/Padre-Plugin-Perl6/|Perl 6>
>>>> 高亮语法支持,Parrot 和 Rakudo 支持。Win32 用户可以直接下载
>>>> A<http://padre.perlide.org/download.html|Padre Standalone Plus Six>
>>>> 来同时拥有 Strawberry Perl + Padre + Rakudo.
>>>>
>>>> M<Padre> 的下载安装可以参考 A<http://padre.perlide.org/download.html>, 大部分的操作系统都有直接安装文件。
>>>>
>>>> 截屏参考 A<http://padre.perlide.org/screenshots.html>,如
>>>>
>>>> <img src='http://padre.perlide.org/trac/raw-attachment/wiki/Screenshots/Padre_0...>
>>>>
>>>> 今年的 Catalyst Advent Calendar 有一篇
>>>> A<http://www.catalystframework.org/calendar/2009/9|Developing Catalyst
>>>> Applications with Padre>,可以阅读一下。
>>>>
>>>> 谢谢。
>>>>
>>>> --
>>>> 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 访问此网上论坛。
>>>
>>>
>>>
>>
>>
>> --
>> 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 访问此网上论坛。
>>
>>
>>
>
> --
>
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
> 要取消订阅此网上论坛,请发送电子邮件至 perlchina+unsubscribe@googlegroups.com
> 若有更多问题,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>
>

--
姜源
Yuan Jiang
http://blog.vetcafe.net
http://twitter.com/sleetdrop

--

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

Re: [PerlChina] Re: CN Perl Advent Day 10: Padre

UI应该是gtk写的吧 里面有几个图标 貌似是gtk里面的stock 也有熟悉的gnome的感觉 特别是那橙黄色的标题栏

2009/12/11 Fayland Lam <fayland@gmail.com>:
> Wx. :)
>
> http://search.cpan.org/dist/Wx/
>
> On 2009-12-11 16:43, lobatt wrote:
>> UI界面挺好看的,是TK写的还是用的eclipse的组件?
>>
>> On 12月10日, 上午7时37分, Fayland Lam <fayl...@gmail.com> wrote:
>>
>>> http://perlchina.org/advent/2009/Padre.html
>>>
>>> =for advent_year 2009
>>>
>>> =for advent_day 10
>>>
>>> =for advent_title Padre
>>>
>>> =for advent_author Fayland Lam
>>>
>>> 如果您在寻找一个免费的,高度可扩展的,对 Perl 拥有良好支持的 IDE, 那么 M<Padre> 是个很不错的选择。
>>>
>>> Padre 由 Gábor Szabó 发起,使用 Perl 编写,主要目标是给 Perl 开发者一个良好的开发环境。主页在
>>> A<http://padre.perlide.org/>
>>>
>>> 以下是使用 Padre 的几大理由:
>>>
>>> 一,它由 Perl 所编写。
>>>
>>> 由 Perl 编写意味着高度可扩展,您可以使用您最熟悉和喜欢的 Perl 来编写插件,满足自己的需求。
>>>
>>> 二,初学者模式。
>>>
>>> 它能自动识别指出一些初学者常见的错误。
>>>
>>> 还有一些初学者常用的功能如变量替换,查找变量申明,括号对齐和补齐等。
>>>
>>> 三,丰富的功能。
>>>
>>> 通过一些插件扩展,您能 Tidy
>>> A<http://search.cpan.org/dist/Padre-Plugin-HTML/|HTML>/A<http://search.cpan.org/dist/Padre-Plugin-XML/|XML>/A<http://search.cpan.org/dist/Padre-Plugin-JavaScript/|JavaScript>/Perl,
>>> 验证 HTML/XML/CSS 错误,检查拼写语法等。
>>>
>>> 针对 Perl, 拥有 A<http://search.cpan.org/dist/Padre-Plugin-Ecliptic/|Ecliptic>,
>>> A<http://search.cpan.org/dist/Padre-Plugin-Debugger/|调试器>,A<http://search.cpan.org/dist/Padre-Plugin-PerlCritic/|Critic>,
>>> A<http://search.cpan.org/dist/Padre-Plugin-ClassSniff/|ClassSniff>,
>>> A<http://search.cpan.org/dist/Padre-Plugin-DataWalker/|DataWalker>,
>>> A<http://search.cpan.org/dist/Padre-Plugin-REPL/|REPL>,
>>> A<http://search.cpan.org/dist/Padre-Plugin-PAR/|PAR> 等丰富插件。
>>>
>>> 常见的框架支持 A<http://search.cpan.org/dist/Padre-Plugin-Catalyst/|Catalyst>,
>>> A<http://search.cpan.org/dist/Padre-Plugin-Mojolicious/|Mojolicious>
>>> 等。
>>>
>>> 四,Perl 6
>>>
>>> 虽然 Perl 6 不会在今年的圣诞发布,但是这并不妨碍我们去尝试她。
>>>
>>> Padre 拥有 A<http://search.cpan.org/dist/Padre-Plugin-Perl6/|Perl 6>
>>> 高亮语法支持,Parrot 和 Rakudo 支持。Win32 用户可以直接下载
>>> A<http://padre.perlide.org/download.html|Padre Standalone Plus Six>
>>> 来同时拥有 Strawberry Perl + Padre + Rakudo.
>>>
>>> M<Padre> 的下载安装可以参考 A<http://padre.perlide.org/download.html>, 大部分的操作系统都有直接安装文件。
>>>
>>> 截屏参考 A<http://padre.perlide.org/screenshots.html>,如
>>>
>>> <img src='http://padre.perlide.org/trac/raw-attachment/wiki/Screenshots/Padre_0...>
>>>
>>> 今年的 Catalyst Advent Calendar 有一篇
>>> A<http://www.catalystframework.org/calendar/2009/9|Developing Catalyst
>>> Applications with Padre>,可以阅读一下。
>>>
>>> 谢谢。
>>>
>>> --
>>> 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 访问此网上论坛。
>>
>>
>>
>
>
> --
> 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 访问此网上论坛。
>
>
>

--

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

Re: [PerlChina] Re: CN Perl Advent Day 10: Padre

Wx. :)

http://search.cpan.org/dist/Wx/

On 2009-12-11 16:43, lobatt wrote:
> UI界面挺好看的,是TK写的还是用的eclipse的组件?
>
> On 12月10日, 上午7时37分, Fayland Lam <fayl...@gmail.com> wrote:
>
>> http://perlchina.org/advent/2009/Padre.html
>>
>> =for advent_year 2009
>>
>> =for advent_day 10
>>
>> =for advent_title Padre
>>
>> =for advent_author Fayland Lam
>>
>> 如果您在寻找一个免费的,高度可扩展的,对 Perl 拥有良好支持的 IDE, 那么 M<Padre> 是个很不错的选择。
>>
>> Padre 由 Gábor Szabó 发起,使用 Perl 编写,主要目标是给 Perl 开发者一个良好的开发环境。主页在
>> A<http://padre.perlide.org/>
>>
>> 以下是使用 Padre 的几大理由:
>>
>> 一,它由 Perl 所编写。
>>
>> 由 Perl 编写意味着高度可扩展,您可以使用您最熟悉和喜欢的 Perl 来编写插件,满足自己的需求。
>>
>> 二,初学者模式。
>>
>> 它能自动识别指出一些初学者常见的错误。
>>
>> 还有一些初学者常用的功能如变量替换,查找变量申明,括号对齐和补齐等。
>>
>> 三,丰富的功能。
>>
>> 通过一些插件扩展,您能 Tidy
>> A<http://search.cpan.org/dist/Padre-Plugin-HTML/|HTML>/A<http://search.cpan.org/dist/Padre-Plugin-XML/|XML>/A<http://search.cpan.org/dist/Padre-Plugin-JavaScript/|JavaScript>/Perl,
>> 验证 HTML/XML/CSS 错误,检查拼写语法等。
>>
>> 针对 Perl, 拥有 A<http://search.cpan.org/dist/Padre-Plugin-Ecliptic/|Ecliptic>,
>> A<http://search.cpan.org/dist/Padre-Plugin-Debugger/|调试器>,A<http://search.cpan.org/dist/Padre-Plugin-PerlCritic/|Critic>,
>> A<http://search.cpan.org/dist/Padre-Plugin-ClassSniff/|ClassSniff>,
>> A<http://search.cpan.org/dist/Padre-Plugin-DataWalker/|DataWalker>,
>> A<http://search.cpan.org/dist/Padre-Plugin-REPL/|REPL>,
>> A<http://search.cpan.org/dist/Padre-Plugin-PAR/|PAR> 等丰富插件。
>>
>> 常见的框架支持 A<http://search.cpan.org/dist/Padre-Plugin-Catalyst/|Catalyst>,
>> A<http://search.cpan.org/dist/Padre-Plugin-Mojolicious/|Mojolicious>
>> 等。
>>
>> 四,Perl 6
>>
>> 虽然 Perl 6 不会在今年的圣诞发布,但是这并不妨碍我们去尝试她。
>>
>> Padre 拥有 A<http://search.cpan.org/dist/Padre-Plugin-Perl6/|Perl 6>
>> 高亮语法支持,Parrot 和 Rakudo 支持。Win32 用户可以直接下载
>> A<http://padre.perlide.org/download.html|Padre Standalone Plus Six>
>> 来同时拥有 Strawberry Perl + Padre + Rakudo.
>>
>> M<Padre> 的下载安装可以参考 A<http://padre.perlide.org/download.html>, 大部分的操作系统都有直接安装文件。
>>
>> 截屏参考 A<http://padre.perlide.org/screenshots.html>,如
>>
>> <img src='http://padre.perlide.org/trac/raw-attachment/wiki/Screenshots/Padre_0...>
>>
>> 今年的 Catalyst Advent Calendar 有一篇
>> A<http://www.catalystframework.org/calendar/2009/9|Developing Catalyst
>> Applications with Padre>,可以阅读一下。
>>
>> 谢谢。
>>
>> --
>> 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 访问此网上论坛。
>
>
>


--
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 访问此网上论坛。

[PerlChina] Re: CN Perl Advent Day 10: Padre

UI界面挺好看的,是TK写的还是用的eclipse的组件?

On 12月10日, 上午7时37分, Fayland Lam <fayl...@gmail.com> wrote:
> http://perlchina.org/advent/2009/Padre.html
>
> =for advent_year 2009
>
> =for advent_day 10
>
> =for advent_title Padre
>
> =for advent_author Fayland Lam
>
> 如果您在寻找一个免费的,高度可扩展的,对 Perl 拥有良好支持的 IDE, 那么 M<Padre> 是个很不错的选择。
>
> Padre 由 Gábor Szabó 发起,使用 Perl 编写,主要目标是给 Perl 开发者一个良好的开发环境。主页在
> A<http://padre.perlide.org/>
>
> 以下是使用 Padre 的几大理由:
>
> 一,它由 Perl 所编写。
>
> 由 Perl 编写意味着高度可扩展,您可以使用您最熟悉和喜欢的 Perl 来编写插件,满足自己的需求。
>
> 二,初学者模式。
>
> 它能自动识别指出一些初学者常见的错误。
>
> 还有一些初学者常用的功能如变量替换,查找变量申明,括号对齐和补齐等。
>
> 三,丰富的功能。
>
> 通过一些插件扩展,您能 Tidy
> A<http://search.cpan.org/dist/Padre-Plugin-HTML/|HTML>/A<http://search.cpan.org/dist/Padre-Plugin-XML/|XML>/A<http://search.cpan.org/dist/Padre-Plugin-JavaScript/|JavaScript>/Perl,
> 验证 HTML/XML/CSS 错误,检查拼写语法等。
>
> 针对 Perl, 拥有 A<http://search.cpan.org/dist/Padre-Plugin-Ecliptic/|Ecliptic>,
> A<http://search.cpan.org/dist/Padre-Plugin-Debugger/|调试器>,A<http://search.cpan.org/dist/Padre-Plugin-PerlCritic/|Critic>,
> A<http://search.cpan.org/dist/Padre-Plugin-ClassSniff/|ClassSniff>,
> A<http://search.cpan.org/dist/Padre-Plugin-DataWalker/|DataWalker>,
> A<http://search.cpan.org/dist/Padre-Plugin-REPL/|REPL>,
> A<http://search.cpan.org/dist/Padre-Plugin-PAR/|PAR> 等丰富插件。
>
> 常见的框架支持 A<http://search.cpan.org/dist/Padre-Plugin-Catalyst/|Catalyst>,
> A<http://search.cpan.org/dist/Padre-Plugin-Mojolicious/|Mojolicious>
> 等。
>
> 四,Perl 6
>
> 虽然 Perl 6 不会在今年的圣诞发布,但是这并不妨碍我们去尝试她。
>
> Padre 拥有 A<http://search.cpan.org/dist/Padre-Plugin-Perl6/|Perl 6>
> 高亮语法支持,Parrot 和 Rakudo 支持。Win32 用户可以直接下载
> A<http://padre.perlide.org/download.html|Padre Standalone Plus Six>
> 来同时拥有 Strawberry Perl + Padre + Rakudo.
>
> M<Padre> 的下载安装可以参考 A<http://padre.perlide.org/download.html>, 大部分的操作系统都有直接安装文件。
>
> 截屏参考 A<http://padre.perlide.org/screenshots.html>,如
>
> <img src='http://padre.perlide.org/trac/raw-attachment/wiki/Screenshots/Padre_0...>
>
> 今年的 Catalyst Advent Calendar 有一篇
> A<http://www.catalystframework.org/calendar/2009/9|Developing Catalyst
> Applications with Padre>,可以阅读一下。
>
> 谢谢。
>
> --
> 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 访问此网上论坛。

2009年12月10日星期四

[PerlChina] Re: 一个限制酶切作图算法的Perl语言实现问题

我补充一下问题描述,
就是已知数组1{0,2 ,4,7,10},数组内元素两两相减得数组2{2,2,3,3,4,5,6,7,8,10}
现在是已知数组2,求数组1

--

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

[PerlChina] 一个限制酶切作图算法的Perl语言实现问题

我这两个星期才开始学习Perl语言,前几天在看《生物信息学算法导论》的时候看到一个限制酶切作图的算法,就想用Perl语言来实现以下。
该算法的伪代码是:
一些符号的定义:
<----:赋值
X,L是数组
~(y,X)表示y与数组X中元素的差值集合,比如~(2,{1,3,4,5}) = {1,1,2,3}
=============================================================
Partialdigest(L)
1 width <----L中的最大元素
2 DELETE(width,L)
3 X<----{0,width}
4 PLACE(L,X)

PLACE(L,X)
1 if L是空集
2 output X
3 return
4 y<----L中最大元素
5 if ~(y,X)属于L
6 将y添加到X,且从L中删除长度~(y,X)
7 PLACE(L,X)
8 在X中删除y,且将长度~(y,X)添加到L中
9 if ~(width-y,X)属于L
10 将width-y添加到X,且从L中删除长度~(width-y,X)
11 PLACE(L,X)
12 在X中删除width-y,且将长度~(width-y,X)添加到L中
13 return

===============================================================
我的Perl语言代码:
sub by_number
{
if($a<$b) {-1} elsif($a>$b) {1} else {0}
}
sub place{
if (@array == 0){
print "@x";
return;
}
$y = $array_L[-1];
if (&isSubArray_1 == 1){
push @x,$y;
@x = sort by_number @x;
$_ = join "-",@array_L;
$_ = "$_-";
while (@rec_array != 0){
my $item = pop @rec_array;
s/$item-//;
}
return &place;
}
if (&isSubArray_2 == 1){
push @x,($width-$y);
@x = sort by_number @x;
$_ = join "-",@array_L;
$_ = "$_-";
while (@rec_array != 0){
my $item = pop @rec_array;
s/$item-//;
}
return &place;
}
return;
}
sub isSubArray_1{
my @temp_array = @x;
my @result_array;
my $signal = 0;
while (@temp_array != 0){
my $si = pop @temp_array;
my $result = abs($si-$y);
push @result_array, $result;
}
@rec_array = sort by_number @result_array;
$_ = join "-",@array_LL;
$_ = "$_-";
while (@result_array != 0){
my $item = pop @result_array;
if (s/$item-//){
}
else{
$signal += 1;
}
}
if ($signal != 0){
return 0;
}
else{
return 1;
}
}

sub isSubArray_2{
my @temp_array = @x;
my @result_array;
my $signal = 0;
while (@temp_array != 0){
my $si = pop @temp_array;
my $result = abs($si-($width-$y));
push @result_array, $result;
}
@rec_array = sort by_number @result_array;
$_ = join "-",@array_LL;
$_ = "$_-";
while (@result_array != 0){
my $item = pop @result_array;
if (s/$item-//){
}
else{
$signal += 1;
}
}
if ($signal != 0){
return 0;
}
else{
return 1;
}
}
my @rec_array;
my $y = 0;
my @array_L = qw(2 2 3 3 4 5 6 7 8 10);
my @array_LL = qw(2 2 3 3 4 5 6 7 8 10);
@array_L = sort by_number @array_L;
my $width = pop @array_L;
my @x = qw(0);
push @x,$width;
&place;

调试了一天多了,还是不能运行,希望大家有空的话能帮我看看啊,谢谢啦!

--

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

[PerlChina] Re: 请教高手们一个模式测试程序的问题

谢谢你和大家的帮助!

On 12月11日, 下午1时48分, Michael Zeng <galaxy2...@gmail.com> wrote:
> while ( <> ) 就是直接从 @ARGV 里面读东西
>
> 即直接打开命令行参数的文件打开,一行一行读,
>
> 相当于
>
> foreach my $var ( @ARGV ) {
> open my $F1, '<', $var ; # some file name ;
> while ( <$F1> ) { # line by line
> .....
> }
> close $F1 ; # close , open another file
>
> }
>
> 比如 你这个脚本叫 test.pl
>
> shell>test.pl 1 2 3
>
> 就会依次打开文件1,2,3 做处理
>
> 这个题目的意思是 打开某个文件,找匹配
>
> 如 test.pl file1
> 应该会输出包含 /pattern/的行 ,
>
> 2009/12/11 天翼 张 <icann....@gmail.com>
>
>
>
>
>
> > 能不能跟我说详细点呀?我还是没有搞懂怎么做。我才学的,可能我太笨了点。
>
> > On 12月10日, 下午9时47分, truncatei <trunca...@gmail.com> wrote:
> > > 先写个文件
> > > echo "some text" > data.txt
> > > 然后运行
> > > yourpl.pl data.txt
>
> > > <> 是迭代默认的文件句柄的
>
> > > 或者
>
> > > while (<STDIN>) {
> > > ...
>
> > > 2009/12/10 天翼 张 <icann....@gmail.com>
>
> > > > 各位高手,我是一个刚学习perl的新手,学到正则表达式的模式测试程序这一节时书中列出了一个用来某些字符串的模式匹配的程序。可是我不知道怎样使
> > > > 用,不知到是在命令提示符窗口中输入来测试还是另外调用一个程序来测试我用了两种方法都不行。望各位高手们指点一二。下面是这个程序。
> > > > #!/usr/bin/perl
> > > > while(<>){
> > > > chiomp;
> > > > if(/YOUR_PATTERN_GOES_HERE/){
> > > > print"Matched:|$`<$&>$'|\n";
> > > > }else{
> > > > print "\uno match:|$_|\n";
> > > > }
> > > > }
>
> > > --
> > > 如果觉得无聊,您不妨访问Google Reader消遣http://www.google.com/reader/view
> > > 要尝试黑版本Google,请访问http://tinyurl.com/yk3yp7j
>
> > --
>
> > 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> > 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
> > 要取消订阅此网上论坛,请发送电子邮件至 perlchina+unsubscribe@googlegroups.com<perlchina%2Bunsubscribe@googlegroups-.com>
> > 。
> > 若有更多问题,请通过http://groups.google.com/group/perlchina?hl=zh-CN访问此网上论坛。
>
> --
> Yours Sincerely
> Zeng Hong- 隐藏被引用文字 -
>
> - 显示引用的文字 -

--

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

Re: [PerlChina] Re: CN Perl Advent Day 10: Padre

确实很好用,使用PPM安装很顺利
2009/12/11 Yuan Jiang <sleetdrop@gmail.com>
这东东,前两天用cpan装,依赖太恐怖了。
装了N多的模块。

2009/12/10 Beckheng Lam <bi.ken.lam@gmail.com>:
> thanks for share!
>
> Fayland Lam wrote:
>> http://perlchina.org/advent/2009/Padre.html
>>
>> =for advent_year 2009
>>
>> =for advent_day 10
>>
>> =for advent_title Padre
>>
>> =for advent_author Fayland Lam
>>
>> 如果您在寻找一个免费的,高度可扩展的,对 Perl 拥有良好支持的 IDE, 那么 M<Padre> 是个很不错的选择。
>>
>> Padre 由 Gábor Szabó 发起,使用 Perl 编写,主要目标是给 Perl 开发者一个良好的开发环境。主页在
>> A<http://padre.perlide.org/>
>>
>> 以下是使用 Padre 的几大理由:
>>
>> 一,它由 Perl 所编写。
>>
>> 由 Perl 编写意味着高度可扩展,您可以使用您最熟悉和喜欢的 Perl 来编写插件,满足自己的需求。
>>
>> 二,初学者模式。
>>
>> 它能自动识别指出一些初学者常见的错误。
>>
>> 还有一些初学者常用的功能如变量替换,查找变量申明,括号对齐和补齐等。
>>
>> 三,丰富的功能。
>>
>> 通过一些插件扩展,您能 Tidy
>> A<http://search.cpan.org/dist/Padre-Plugin-HTML/|HTML>/A<http://search.cpan.org/dist/Padre-Plugin-XML/|XML>/A<http://search.cpan.org/dist/Padre-Plugin-JavaScript/|JavaScript>/Perl,
>> 验证 HTML/XML/CSS 错误,检查拼写语法等。
>>
>> 针对 Perl, 拥有 A<http://search.cpan.org/dist/Padre-Plugin-Ecliptic/|Ecliptic>,
>> A<http://search.cpan.org/dist/Padre-Plugin-Debugger/|调试器>,A<http://search.cpan.org/dist/Padre-Plugin-PerlCritic/|Critic>,
>> A<http://search.cpan.org/dist/Padre-Plugin-ClassSniff/|ClassSniff>,
>> A<http://search.cpan.org/dist/Padre-Plugin-DataWalker/|DataWalker>,
>> A<http://search.cpan.org/dist/Padre-Plugin-REPL/|REPL>,
>> A<http://search.cpan.org/dist/Padre-Plugin-PAR/|PAR> 等丰富插件。
>>
>> 常见的框架支持 A<http://search.cpan.org/dist/Padre-Plugin-Catalyst/|Catalyst>,
>> A<http://search.cpan.org/dist/Padre-Plugin-Mojolicious/|Mojolicious>
>> 等。
>>
>> 四,Perl 6
>>
>> 虽然 Perl 6 不会在今年的圣诞发布,但是这并不妨碍我们去尝试她。
>>
>> Padre 拥有 A<http://search.cpan.org/dist/Padre-Plugin-Perl6/|Perl 6>
>> 高亮语法支持,Parrot 和 Rakudo 支持。Win32 用户可以直接下载
>> A<http://padre.perlide.org/download.html|Padre Standalone Plus Six>
>> 来同时拥有 Strawberry Perl + Padre + Rakudo.
>>
>> M<Padre> 的下载安装可以参考 A<http://padre.perlide.org/download.html>, 大部分的操作系统都有直接安装文件。
>>
>> 截屏参考 A<http://padre.perlide.org/screenshots.html>,如
>>
>> <img src='http://padre.perlide.org/trac/raw-attachment/wiki/Screenshots/Padre_0.47_Win7_autocomplete.jpg'
>> />
>>
>> 今年的 Catalyst Advent Calendar 有一篇
>> A<http://www.catalystframework.org/calendar/2009/9|Developing Catalyst
>> Applications with Padre>,可以阅读一下。
>>
>> 谢谢。
>>
>>
>
>
> --
> Perl乐事 -- http://www.perlersh.org
> 我的博客 -- http://www.perlersh.org/blog.html
> 揭谛揭谛,波罗揭谛,波罗僧揭谛,菩提萨婆诃。
>
>
> >
>



--
姜源
Yuan Jiang
http://blog.vetcafe.net
http://twitter.com/sleetdrop

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 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] Re: 请教高手们一个模式测试程序的问题

while  ( <> )  就是直接从  @ARGV 里面读东西

即直接打开命令行参数的文件打开,一行一行读,

相当于

foreach my  $var ( @ARGV )  {
    open my  $F1, '<',  $var  ; # some file name ;
    while ( <$F1> )  {  # line by line
           .....
     }
      close $F1 ;   # close , open another file
}

比如  你这个脚本叫  test.pl

shell>test.pl  1 2 3  

就会依次打开文件1,2,3 做处理

这个题目的意思是 打开某个文件,找匹配

test.pl  file1 
应该会输出包含 /pattern/的行 ,




2009/12/11 天翼 张 <icann.net@gmail.com>
能不能跟我说详细点呀?我还是没有搞懂怎么做。我才学的,可能我太笨了点。

On 12月10日, 下午9时47分, truncatei <trunca...@gmail.com> wrote:
> 先写个文件
> echo "some text" > data.txt
> 然后运行
> yourpl.pl data.txt
>
> <> 是迭代默认的文件句柄的
>
> 或者
>
> while (<STDIN>) {
> ...
>
> 2009/12/10 天翼 张 <icann....@gmail.com>
>
> > 各位高手,我是一个刚学习perl的新手,学到正则表达式的模式测试程序这一节时书中列出了一个用来某些字符串的模式匹配的程序。可是我不知道怎样使
> > 用,不知到是在命令提示符窗口中输入来测试还是另外调用一个程序来测试我用了两种方法都不行。望各位高手们指点一二。下面是这个程序。
> > #!/usr/bin/perl
> > while(<>){
> >    chiomp;
> >    if(/YOUR_PATTERN_GOES_HERE/){
> >      print"Matched:|$`<$&>$'|\n";
> >     }else{
> >      print "\uno match:|$_|\n";
> >     }
> > }
>
> --
> 如果觉得无聊,您不妨访问Google Reader消遣http://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 访问此网上论坛。





--
           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: 请教高手们一个模式测试程序的问题

能不能跟我说详细点呀?我还是没有搞懂怎么做。我才学的,可能我太笨了点。

On 12月10日, 下午9时47分, truncatei <trunca...@gmail.com> wrote:
> 先写个文件
> echo "some text" > data.txt
> 然后运行
> yourpl.pl data.txt
>
> <> 是迭代默认的文件句柄的
>
> 或者
>
> while (<STDIN>) {
> ...
>
> 2009/12/10 天翼 张 <icann....@gmail.com>
>
> > 各位高手,我是一个刚学习perl的新手,学到正则表达式的模式测试程序这一节时书中列出了一个用来某些字符串的模式匹配的程序。可是我不知道怎样使
> > 用,不知到是在命令提示符窗口中输入来测试还是另外调用一个程序来测试我用了两种方法都不行。望各位高手们指点一二。下面是这个程序。
> > #!/usr/bin/perl
> > while(<>){
> > chiomp;
> > if(/YOUR_PATTERN_GOES_HERE/){
> > print"Matched:|$`<$&>$'|\n";
> > }else{
> > print "\uno match:|$_|\n";
> > }
> > }
>
> --
> 如果觉得无聊,您不妨访问Google Reader消遣http://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 访问此网上论坛。

[PerlChina] Re: 请教高手们一个模式测试程序的问题

我还是没有搞懂怎么用,你可不可以跟我说详细点。我是才学的新手,不好意思了!

On 12月11日, 上午12时55分, 朱伟 <zhuu...@gmail.com> wrote:
> <>既可以读文件也可以 标准输入, 参数为 - 和文件混用时就可以标准输入
>
> 2009/12/10 天翼 张 <icann....@gmail.com>
>
>
>
> > 各位高手,我是一个刚学习perl的新手,学到正则表达式的模式测试程序这一节时书中列出了一个用来某些字符串的模式匹配的程序。可是我不知道怎样使
> > 用,不知到是在命令提示符窗口中输入来测试还是另外调用一个程序来测试我用了两种方法都不行。望各位高手们指点一二。下面是这个程序。
> > #!/usr/bin/perl
> > while(<>){
> > chiomp;
> > if(/YOUR_PATTERN_GOES_HERE/){
> > print"Matched:|$`<$&>$'|\n";
> > }else{
> > print "\uno match:|$_|\n";
> > }
> > }- 隐藏被引用文字 -
>
> - 显示引用的文字 -

--

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

[PerlChina] Re: TheSchwartz tips

On 2009-12-11 13:12, Fayland Lam wrote:
> read it if you're interested.
>
> well, now we have 4 theschwartz worker script, 3 run at z56-1 and the
> other one runs at on static.zpcdn server.
>
> tip 1: I changed some TheSchwartz code, and I want to make it live.
> svn up at z56-1 then run
> [root@z56-1 ~]# perl /var/www/Zorpia/Misc/cron/TheSchwartz_restart.pl
> it will send INTTERM to the script and no data will lost since we
> treat TERM in the script.
>
> tip 2: the log files
> basically BatchSendMessage log is at /var/log/theschwartz.msg.log
> and Signup is at /var/log/theschwartz.signup.log
> others are at /var/log/theschwartz.log
>
> please use $job->debug to save some debug info into the log.


tip 3: check queues and errors
we have a tools under trunk, you can use
[fayland@alpha ~]$ perl Misc/tools/theschwartz.pl
to check the queues.
and
[fayland@alpha ~]$ perl Misc/tools/theschwartz.pl errors
Fri Dec 4 10:04:35 2009 [1463267]: DBIx::Class::ResultSet::create():
Error executing 'INSERT INTO conversation (conv_id, folder, msg_count,
msgs_from_user, msgs_to_user, new_for_user, set_id, user_id) VALUES (?,
?, ?, ?, ?, ?, ?, ?)': Duplicate entry '112885606' for key 1 at
/var/www/Zorpi
Thu Dec 10 16:13:07 2009 [1466871]: DBIx::Class::ResultSet::create():
Error executing 'INSERT INTO conversation (conv_id, folder, msg_count,
msgs_from_user, msgs_to_user, new_for_user, set_id, user_id) VALUES (?,
?, ?, ?, ?, ?, ?, ?)': Duplicate entry '113511574' for key 1 at
/var/www/Zorpi
Thu Dec 10 20:42:51 2009 [1466912]: Can't locate object method
"dbic_data" via package "Zorpia::Db::Geo::user" at
/var/www/Zorpia/Misc/cron/../../lib/Zorpia/TheSchwartz/Signup.pm line 45.
Thu Dec 10 20:45:47 2009 [1466914]: Can't locate object method
"geo_name" via package "Zorpia::Db::Geo::user" at
/var/www/Zorpia/Misc/cron/../../lib/Zorpia/ResultSet/user_addressbook.pm
line 51.
Thu Dec 10 20:46:21 2009 [1466915]: Can't locate object method
"geo_name" via package "Zorpia::Db::Geo::user" at
/var/www/Zorpia/Misc/cron/../../lib/Zorpia/ResultSet/user_addressbook.pm
line 51.

to check errors.

Thanks.

>
> let me know if you have any issue.
>
> Thanks.
>


--
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 访问此网上论坛。

[PerlChina] TheSchwartz tips

read it if you're interested.

well, now we have 4 theschwartz worker script, 3 run at z56-1 and the
other one runs at on static.zpcdn server.

tip 1: I changed some TheSchwartz code, and I want to make it live.
svn up at z56-1 then run
[root@z56-1 ~]# perl /var/www/Zorpia/Misc/cron/TheSchwartz_restart.pl
it will send INTTERM to the script and no data will lost since we treat
TERM in the script.

tip 2: the log files
basically BatchSendMessage log is at /var/log/theschwartz.msg.log
and Signup is at /var/log/theschwartz.signup.log
others are at /var/log/theschwartz.log

please use $job->debug to save some debug info into the log.

let me know if you have any issue.

Thanks.

--
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 访问此网上论坛。

[PerlChina] CN Perl Advent Day 11: NYTProf

http://perlchina.org/advent/2009/NYTProf.html

=for advent_year 2009

=for advent_day 11

=for advent_title Devel::NYTProf

=for advent_author Fayland Lam

当您有个程序运行得特别慢而无法找到为什么的时候,Profile 当是第一选择(Profile 应当永远在优化之前)。而在 CPAN 众多
Profile 模块中,A<Devel::NYTProf> 当属第一。

比如你有一个简单的 pl 文件

=begin code

use strict;
use warnings;
use List::Util qw/shuffle/;

my @list = (1 .. 1000000);
@list = shuffle @list;
@list = splice(@list, 0, 300);

my @listB;
while (scalar @listB < 300) {
my $value = int(rand(1000000));
unless ( grep { $_ == $value } @listB ) {
push @listB, $value;
}
}

=end code

运行如下

=begin pre

$ perl -d:NYTProf t.pl
$ nytprofhtml

=end pre

然后你就可以打开 nytprof/index.html 了

<img src='NYTProf1.jpg' />

如果点 t.pl 左边的 line, 你能清楚地看到哪一行是比较慢的。

<img src='NYTProf2.jpg' />

如上脚本只是为了简单介绍,实际中的应该比这复杂多了。但是方法还是一样的。

Devel::NYTProf 不仅仅可以对一个 pl 脚本,还可以在 mod_perl 下测试 web 脚本。比如我们的 Catalyst
脚本,只要在 httpd.conf 里设置

=begin pre

PerlSetEnv NYTPROF file=/root/nytprof.out
PerlModule Devel::NYTProf::Apache

=end pre

然后重启 Apache, 访问一些网站地址,然后 stop Apache. 在 /root/nytprof.out*
中选取一个文件,然后运行 nytprofhtml -f nytprof.out.XX 即可。

更多更详尽的请参考 M<Devel::NYTProf> 文档和网络中的一些 slide,
如有遇到无法解决的问题,请来A<http://groups.google.com/group/perlchina|Perlchina
的邮件列表>询问。

谢谢。

--
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 访问此网上论坛。

[PerlChina] Re: 请教高手们一个模式测试程序的问题

<>既可以读文件也可以 标准输入, 参数为 - 和文件混用时就可以标准输入

2009/12/10 天翼 张 <icann.net@gmail.com>
各位高手,我是一个刚学习perl的新手,学到正则表达式的模式测试程序这一节时书中列出了一个用来某些字符串的模式匹配的程序。可是我不知道怎样使
用,不知到是在命令提示符窗口中输入来测试还是另外调用一个程序来测试我用了两种方法都不行。望各位高手们指点一二。下面是这个程序。
#!/usr/bin/perl
while(<>){
   chiomp;
   if(/YOUR_PATTERN_GOES_HERE/){
     print"Matched:|$`<$&>$'|\n";
    }else{
     print "\uno match:|$_|\n";
    }
}


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

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

[PerlChina] Re: CN Perl Advent Day 10: Padre

这东东,前两天用cpan装,依赖太恐怖了。
装了N多的模块。

2009/12/10 Beckheng Lam <bi.ken.lam@gmail.com>:
> thanks for share!
>
> Fayland Lam wrote:
>> http://perlchina.org/advent/2009/Padre.html
>>
>> =for advent_year 2009
>>
>> =for advent_day 10
>>
>> =for advent_title Padre
>>
>> =for advent_author Fayland Lam
>>
>> 如果您在寻找一个免费的,高度可扩展的,对 Perl 拥有良好支持的 IDE, 那么 M<Padre> 是个很不错的选择。
>>
>> Padre 由 Gábor Szabó 发起,使用 Perl 编写,主要目标是给 Perl 开发者一个良好的开发环境。主页在
>> A<http://padre.perlide.org/>
>>
>> 以下是使用 Padre 的几大理由:
>>
>> 一,它由 Perl 所编写。
>>
>> 由 Perl 编写意味着高度可扩展,您可以使用您最熟悉和喜欢的 Perl 来编写插件,满足自己的需求。
>>
>> 二,初学者模式。
>>
>> 它能自动识别指出一些初学者常见的错误。
>>
>> 还有一些初学者常用的功能如变量替换,查找变量申明,括号对齐和补齐等。
>>
>> 三,丰富的功能。
>>
>> 通过一些插件扩展,您能 Tidy
>> A<http://search.cpan.org/dist/Padre-Plugin-HTML/|HTML>/A<http://search.cpan.org/dist/Padre-Plugin-XML/|XML>/A<http://search.cpan.org/dist/Padre-Plugin-JavaScript/|JavaScript>/Perl,
>> 验证 HTML/XML/CSS 错误,检查拼写语法等。
>>
>> 针对 Perl, 拥有 A<http://search.cpan.org/dist/Padre-Plugin-Ecliptic/|Ecliptic>,
>> A<http://search.cpan.org/dist/Padre-Plugin-Debugger/|调试器>,A<http://search.cpan.org/dist/Padre-Plugin-PerlCritic/|Critic>,
>> A<http://search.cpan.org/dist/Padre-Plugin-ClassSniff/|ClassSniff>,
>> A<http://search.cpan.org/dist/Padre-Plugin-DataWalker/|DataWalker>,
>> A<http://search.cpan.org/dist/Padre-Plugin-REPL/|REPL>,
>> A<http://search.cpan.org/dist/Padre-Plugin-PAR/|PAR> 等丰富插件。
>>
>> 常见的框架支持 A<http://search.cpan.org/dist/Padre-Plugin-Catalyst/|Catalyst>,
>> A<http://search.cpan.org/dist/Padre-Plugin-Mojolicious/|Mojolicious>
>> 等。
>>
>> 四,Perl 6
>>
>> 虽然 Perl 6 不会在今年的圣诞发布,但是这并不妨碍我们去尝试她。
>>
>> Padre 拥有 A<http://search.cpan.org/dist/Padre-Plugin-Perl6/|Perl 6>
>> 高亮语法支持,Parrot 和 Rakudo 支持。Win32 用户可以直接下载
>> A<http://padre.perlide.org/download.html|Padre Standalone Plus Six>
>> 来同时拥有 Strawberry Perl + Padre + Rakudo.
>>
>> M<Padre> 的下载安装可以参考 A<http://padre.perlide.org/download.html>, 大部分的操作系统都有直接安装文件。
>>
>> 截屏参考 A<http://padre.perlide.org/screenshots.html>,如
>>
>> <img src='http://padre.perlide.org/trac/raw-attachment/wiki/Screenshots/Padre_0.47_Win7_autocomplete.jpg'
>> />
>>
>> 今年的 Catalyst Advent Calendar 有一篇
>> A<http://www.catalystframework.org/calendar/2009/9|Developing Catalyst
>> Applications with Padre>,可以阅读一下。
>>
>> 谢谢。
>>
>>
>
>
> --
> Perl乐事 -- http://www.perlersh.org
> 我的博客 -- http://www.perlersh.org/blog.html
> 揭谛揭谛,波罗揭谛,波罗僧揭谛,菩提萨婆诃。
>
>
> >
>

--
姜源
Yuan Jiang
http://blog.vetcafe.net
http://twitter.com/sleetdrop

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

[PerlChina] Re: 请教高手们一个模式测试程序的问题

先写个文件
echo "some text" > data.txt
然后运行
yourpl.pl data.txt

<> 是迭代默认的文件句柄的

或者

while (<STDIN>) {
...

2009/12/10 天翼 张 <icann.net@gmail.com>
各位高手,我是一个刚学习perl的新手,学到正则表达式的模式测试程序这一节时书中列出了一个用来某些字符串的模式匹配的程序。可是我不知道怎样使
用,不知到是在命令提示符窗口中输入来测试还是另外调用一个程序来测试我用了两种方法都不行。望各位高手们指点一二。下面是这个程序。
#!/usr/bin/perl
while(<>){
   chiomp;
   if(/YOUR_PATTERN_GOES_HERE/){
     print"Matched:|$`<$&>$'|\n";
    }else{
     print "\uno match:|$_|\n";
    }
}




--
如果觉得无聊,您不妨访问Google Reader消遣 http://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 访问该论坛

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

[PerlChina] 请教高手们一个模式测试程序的问题

各位高手,我是一个刚学习perl的新手,学到正则表达式的模式测试程序这一节时书中列出了一个用来某些字符串的模式匹配的程序。可是我不知道怎样使
用,不知到是在命令提示符窗口中输入来测试还是另外调用一个程序来测试我用了两种方法都不行。望各位高手们指点一二。下面是这个程序。
#!/usr/bin/perl
while(<>){
chiomp;
if(/YOUR_PATTERN_GOES_HERE/){
print"Matched:|$`<$&>$'|\n";
}else{
print "\uno match:|$_|\n";
}
}
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 安装mod_perl modperl_xsinit.c:30: 错误

安装mod_perl时在make时出现make: *** [run_test] Error 1的警告。请问是怎么了。谢谢先
---- Original Message -----
From: cnhack TNT
Sent: Tuesday, December 08, 2009 11:15 AM
Subject: [PerlChina] Re: 安装mod_perl modperl_xsinit.c:30: 错误

你的 ExtUtils::Embed 模块版本有点老
yum 仓库里面的包是帮你处理好相应模块版本依赖关系的,所以装起来顺利:-)

2009/12/8 Fangyuan <chengfangyuan2008@gmail.com>

奇怪的是,我通过以下方式,mod_perl竟然安装成功
#yum install httpd
#yum install mod_perl
然后提示安装成功。

On 12月8日, 上午9时01分, Fangyuan <chengfangyuan2...@gmail.com> wrote:
> 谢谢你的帮助。
> $locate Embed.pm
> /root/.cpan/build/ExtUtils-Embed-1.14-6naOrM/blib/lib/ExtUtils/
> Embed.pm
> /root/.cpan/build/ExtUtils-Embed-1.14-6naOrM/lib/ExtUtils/Embed.pm
> /usr/lib/perl5/5.10.0/ExtUtils/Embed.pm
> --------------------------------------------------------------------------------------------
> $perl -
> V
> Summary of my perl5 (revision 5 version 10 subversion 0)
> configuration:
>
> Platform:
>     osname=linux, osvers=2.6.18-164.el5, archname=i386-linux-thread-
> multi
>     uname='linux x86-2.fedora.phx.redhat.com 2.6.18-164.el5 #1 smp tue
> aug 18 15:51:48 edt 2009 i686 i686 i386 gnulinux
> '
>     config_args='-des -Doptimize=-O2 -g -pipe -Wall -Wp,-
> D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-
> size=4 -m32 -march=i586 -mtune=generic -fasynchronous-unwind-tables -
> Accflags=-DPERL_USE_SAFE_PUTENV -Dversion=5.10.0 -
> Dmyhostname=localhost -Dperladmin=root@localhost -Dcc=gcc -Dcf_by=Red
> Hat, Inc. -Dprefix=/usr -Dvendorprefix=/usr -Dsiteprefix=/usr/local -
> Dprivlib=/usr/lib/perl5/5.10.0 -Dsitelib=/usr/local/lib/perl5/
> site_perl/5.10.0 -Dvendorlib=/usr/lib/perl5/vendor_perl/5.10.0 -
> Darchlib=/usr/lib/perl5/5.10.0/i386-linux-thread-multi -Dsitearch=/usr/
> local/lib/perl5/site_perl/5.10.0/i386-linux-thread-multi -Dvendorarch=/
> usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi -
> Dinc_version_list=none -Darchname=i386-linux-thread-multi -Duseshrplib
> -Dusethreads -Duseithreads -Duselargefiles -Dd_dosuid -Dd_semctl_semun
> -Di_db -Ui_ndbm -Di_gdbm -Di_shadow -Di_syslog -Dman3ext=3pm -
> Duseperlio -Dinstallusrbinperl=n -Ubincompat5005 -Uversiononly -
> Dpager=/usr/bin/less -isr -Dd_gethostent_r_proto -
> Ud_endhostent_r_proto -Ud_sethostent_r_proto -Ud_endprotoent_r_proto -
> Ud_setprotoent_r_proto -Ud_endservent_r_proto -Ud_setservent_r_proto -
> Dscriptdir=/usr/bin -Dotherlibdirs=/usr/lib/perl5/
> site_perl'
>     hint=recommended, useposix=true,
> d_sigaction=define
>     useithreads=define,
> usemultiplicity=define
>     useperlio=define, d_sfio=undef, uselargefiles=define,
> usesocks=undef
>     use64bitint=undef, use64bitall=undef,
> uselongdouble=undef
>     usemymalloc=n,
> bincompat5005=undef
>
> Compiler:
>     cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -
> DPERL_USE_SAFE_PUTENV -DDEBUGGING -fno-strict-aliasing -pipe -I/usr/
> local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/
> include/gdbm',
>     optimize='-O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -
> fstack-protector --param=ssp-buffer-size=4 -m32 -march=i586 -
> mtune=generic -fasynchronous-unwind-
> tables',
>     cppflags='-D_REENTRANT -D_GNU_SOURCE -DPERL_USE_SAFE_PUTENV -
> DDEBUGGING -fno-strict-aliasing -pipe -I/usr/local/include -I/usr/
> include/
> gdbm'
>     ccversion='', gccversion='4.4.1 20090725 (Red Hat 4.4.1-2)',
> gccosandvers=''
>     intsize=4, longsize=4, ptrsize=4, doublesize=8,
> byteorder=1234
>     d_longlong=define, longlongsize=8, d_longdbl=define,
> longdblsize=12
>     ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
> lseeksize=8
>     alignbytes=4,
> prototype=define
>   Linker and Libraries:
>     ld='gcc', ldflags =' -L/usr/local/lib'
>     libpth=/usr/local/lib /lib /usr/lib
>     libs=-lresolv -lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -
> lc
>     perllibs=-lresolv -lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
>     libc=/lib/libc-2.10.1.so, so=so, useshrplib=true,
> libperl=libperl.so
>     gnulibc_version='2.10.1'
>   Dynamic Linking:
>     dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -
> Wl,-rpath,/usr/lib/perl5/5.10.0/i386-linux-thread-multi/CORE'
>     cccdlflags='-fPIC', lddlflags='-shared -O2 -g -pipe -Wall -Wp,-
> D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-
> size=4 -m32 -march=i586 -mtune=generic -fasynchronous-unwind-tables -L/
> usr/local/lib'
>
> Characteristics of this binary (from libperl):
>   Compile-time options: DEBUGGING MULTIPLICITY PERL_DONT_CREATE_GVSV
>                         PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP
>                         PERL_TRACK_MEMPOOL PERL_USE_SAFE_PUTENV
> USE_ITHREADS
>                         USE_LARGE_FILES USE_PERLIO USE_REENTRANT_API
>   Built under linux
>   Compiled at Sep 18 2009 15:01:24
>   @INC:
>     /usr/local/lib/perl5/site_perl/5.10.0/i386-linux-thread-multi
>     /usr/local/lib/perl5/site_perl/5.10.0
>     /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi
>     /usr/lib/perl5/vendor_perl/5.10.0
>     /usr/lib/perl5/vendor_perl
>     /usr/lib/perl5/5.10.0/i386-linux-thread-multi
>     /usr/lib/perl5/5.10.0
>     /usr/lib/perl5/site_perl
>     .
>
> On 12月7日, 下午10时35分, cnhack TNT <cnhack...@gmail.com> wrote:
>
> > 另外附上你的 perl -V 信息
>
> > 2009/12/7 cnhack TNT <cnhack...@gmail.com>
>
> > > 请运行 : locate Embed.pm
> > > 告诉我们结果 :-)
>
> > > 2009/12/7 程方圆 <chengfangyuan2...@gmail.com>
>
> > > 请教个问题:
> > >> 我手动安装mod_perl时出错,使用CPAN安装也有同样的错误而make终止:
> > >> 错误如下:
> > >> =============================================================
> > >> modperl_xsinit.c: 在函数'xs_init'中:
> > >> modperl_xsinit.c:30: 错误:'my_perl'未声明(在此函数内第一次使用)
> > >> modperl_xsinit.c:30: 错误:(即使在一个函数内多次出现,每个未声明的标识符在其
> > >> modperl_xsinit.c:30: 错误:所在的函数内也只报告一次。)
> > >> modperl_xsinit.c:30: 警告:传递'Perl_newXS'的第 3 个参数时在不兼容的指针类型间转换
> > >> /usr/lib/perl5/5.10.0/i386-linux-thread-multi/CORE/proto.h:1500:
> > >> 附注:需要类型'XSUBADDR_t',但实参的类型为'void (*)(struct CV *)'
> > >> make[1]: *** [modperl_xsinit.lo] 错误 1
> > >> make[1]: Leaving directory
> > >> `/root/.cpan/build/mod_perl-2.0.4-mf94jz/src/modules/perl'
> > >> make: *** [modperl_lib] 错误 2
> > >>   GOZER/mod_perl-2.0.4.tar.gz
> > >>   /usr/bin/make -- NOT OK
> > >> Running make test
> > >>   Can't test without successful make
> > >> Running make install
> > >>   Make had returned bad status, install seems impossibl
> > >> =====================================================
>
> > >> 我用"modperl_xsinit.c:30"作为关键词搜索google,发现有人提出同样的问题,但没有找到答案。
> > >>http://d.hatena.ne.jp/hirose31/20090302/1235967816这里好像有解决办法,但是我看不懂日文。
>
> > >> 希望哪位能指点一下,谢谢!
>
> > >> 系统是fedora12
> > >> mod_perl version: mod_perl-2.0.4
> > >> httpd version:
> > >> Server version: Apache/2.2.14 (Unix)
> > >> Server built:   Dec  7 2009 17:42:54


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

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