Perl China Blog Spot: 2011-03-06

2011年3月11日星期五

Re: [PerlChina] 为日本人民祈福

尊重生命，不要相互伤害。
日本民族很靠谱的啦，要相信他们。问题是中华民族表现得很不靠谱啊。

在 2011年3月11日下午9:53，arrow <arrow.wang@gmail.com> 写道：
> 希望日本的人民平安。
>
>
> cnhack TNT 提到:
>> 8.9 的强震，但厉害的是房子大都好好的，最大的损失来自海啸的冲击, 太恐怖了
>>
>> god bless japan...
>>
>>
>>
>> 2011/3/11 Beckheng Lam <bi.ken.lam@gmail.com
>> <mailto:bi.ken.lam@gmail.com>>
>>
>> Great,
>> God bless all of you too!
>>
>>
>> 于 2011年03月11日 16:36, xsir317 写道:
>> > 为这个多灾多难的坚强民族祈福。希望日本的人民平安，希望你们的家
>> 人，朋友
>> > 平安。也希望在日本遭遇到地震、海啸的中国人和所有其他人平安。
>> >
>> >
>> > --
>>
>> --
>> 诸法从缘起，如来说是因。
>> 彼法因缘尽，是大沙门说。
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨
>> 论组"论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com
>> <mailto:perlchina@googlegroups.com>。
>> 要取消订阅此网上论坛，请发送电子邮件至
>> perlchina+unsubscribe@googlegroups.com
>> <mailto:perlchina%2Bunsubscribe@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 访问此网上论坛。
>
>

Alex Chan

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

Re: [PerlChina] 为日本人民祈福

希望日本的人民平安。

cnhack TNT 提到:
> 8.9 的强震，但厉害的是房子大都好好的，最大的损失来自海啸的冲击, 太恐怖了
>
> god bless japan...
>
>
>
> 2011/3/11 Beckheng Lam <bi.ken.lam@gmail.com
> <mailto:bi.ken.lam@gmail.com>>
>
> Great,
> God bless all of you too!
>
>
> 于 2011年03月11日 16:36, xsir317 写道:
> > 为这个多灾多难的坚强民族祈福。希望日本的人民平安，希望你们的家
> 人，朋友
> > 平安。也希望在日本遭遇到地震、海啸的中国人和所有其他人平安。
> >
> >
> > --
>
> --
> 诸法从缘起，如来说是因。
> 彼法因缘尽，是大沙门说。
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨
> 论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com
> <mailto:perlchina@googlegroups.com>。
> 要取消订阅此网上论坛，请发送电子邮件至
> perlchina+unsubscribe@googlegroups.com
> <mailto:perlchina%2Bunsubscribe@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] 为日本人民祈福

god bless

在 2011-3-11 下午4:36，"xsir317" <xsir317@163.com>写道：
> 为这个多灾多难的坚强民族祈福。希望日本的人民平安，希望你们的家人，朋友平安。也希望在日本遭遇到地震、海啸的中国人和所有其他人平安。
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

Re: [PerlChina] 为日本人民祈福

All life should be blessed!

----- Original Message -----
From: "Beckheng Lam" <bi.ken.lam@gmail.com>
To: <perlchina@googlegroups.com>
Sent: Friday, March 11, 2011 5:15 PM
Subject: Re: [PerlChina] 为日本人民祈福

> Great,
> God bless all of you too!
>
>
> 于 2011年03月11日 16:36, xsir317 写道:
>> 为这个多灾多难的坚强民族祈福。希望日本的人民平安，希望你们的家人，朋友
>> 平安。也希望在日本遭遇到地震、海啸的中国人和所有其他人平安。
>>
>>
>> --
>
> --
> 诸法从缘起，如来说是因。
> 彼法因缘尽，是大沙门说。
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至
> perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>

Re: [PerlChina] 为日本人民祈福

8.9 的强震，但厉害的是房子大都好好的，最大的损失来自海啸的冲击, 太恐怖了

god bless japan...

2011/3/11 Beckheng Lam <bi.ken.lam@gmail.com>

Great,
God bless all of you too!

于 2011年03月11日 16:36, xsir317 写道:
> 为这个多灾多难的坚强民族祈福。希望日本的人民平安，希望你们的家人，朋友
> 平安。也希望在日本遭遇到地震、海啸的中国人和所有其他人平安。
>
>
> --

--
诸法从缘起，如来说是因。
彼法因缘尽，是大沙门说。

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

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

请不要回复邮件列表摘要，谢谢

2011/3/11 许高飞 <flyhighxu@gmail.com>:
> 谢谢，不过 "allow_whitespace = 1" 会把头尾的空白字符去掉，有什么办法把这些空白字符也保留下来吗？
>
> allow_whitespace
> When this option is set to true, whitespace (TAB's and SPACE's)
> surrounding the separation character is removed when parsing.
>
>
>
> 在 2011年3月11日下午3:20， <perlchina+noreply@googlegroups.com>写道：
>>
>> 主题: 如何不让Tie::Handle::CSV 在字符串外加双引号""？
>>
>> 许高飞 <flyhighxu@gmail.com> Mar 10 04:58PM +0800 ^
>>
>> 请教一下大家，我在用Tie::Handle::CSV模块处理CSV文件时，发现其输出时会在字符串外加双引号""。
>> 例如：
>> FOOBAR, Name, Type,
>> 输出会变成：
>> FOOBAR," Name"," Type"," "
>> 有什么办法不让Tie::Handle::CSV 在字符串外加双引号""吗？
>> 代码例子见附件。
>>
>>
>>
>> Robin Lee <robinlee.sysu@gmail.com> Mar 10 05:39PM +0800 ^
>>
>> 因为有空格，所以加双引号是规范的做法，试试写成
>> FOOBAR,Name,Type,
>> 也就是逗号后不加空格
>>
>>
>>
>> Shu Cao <shucao@gmail.com> Mar 10 06:01PM +0800 ^
>>
>> 改成如下：
>>
>> use Text::CSV_XS;
>>
>> ...
>>
>> my $csv_parser = Text::CSV_XS->new( {allow_whitespace => 1} );
>> my $fh_input = Tie::Handle::CSV->new("$inputfile", header => 1,
>> csv_parser => $csv_parser);
>>
>> ...
>>
>>
>> --
>> Shu Cao
>>
>>
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
Liang Guo
http://bluestone.cublog.cn

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

Re: [PerlChina] 为日本人民祈福

Great,
God bless all of you too!

于 2011年03月11日 16:36, xsir317 写道:
> 为这个多灾多难的坚强民族祈福。希望日本的人民平安，希望你们的家人，朋友
> 平安。也希望在日本遭遇到地震、海啸的中国人和所有其他人平安。
>
>
> --

--
诸法从缘起，如来说是因。
彼法因缘尽，是大沙门说。

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

谢谢，不过 "allow_whitespace = 1" 会把头尾的空白字符去掉，有什么办法把这些空白字符也保留下来吗？

    allow_whitespace
        When this option is set to true, whitespace (TAB's and SPACE's)
        surrounding the separation character is removed when parsing.

在 2011年3月11日下午3:20， <perlchina+noreply@googlegroups.com>写道：

主题: 如何不让Tie::Handle::CSV 在字符串外加双引号""？

许高飞 <flyhighxu@gmail.com> Mar 10 04:58PM +0800 ^

请教一下大家，我在用Tie::Handle::CSV模块处理CSV文件时，发现其输出时会在字符串外加双引号""。
例如：
FOOBAR, Name, Type,
输出会变成：
FOOBAR," Name"," Type"," "
有什么办法不让Tie::Handle::CSV 在字符串外加双引号""吗？
代码例子见附件。

Robin Lee <robinlee.sysu@gmail.com> Mar 10 05:39PM +0800 ^

因为有空格，所以加双引号是规范的做法，试试写成
FOOBAR,Name,Type,
也就是逗号后不加空格

Shu Cao <shucao@gmail.com> Mar 10 06:01PM +0800 ^

改成如下：

use Text::CSV_XS;

...

my $csv_parser = Text::CSV_XS->new( {allow_whitespace => 1} );
my $fh_input = Tie::Handle::CSV->new("$inputfile", header => 1,
csv_parser => $csv_parser);

...

--
Shu Cao

[PerlChina] 为日本人民祈福

为这个多灾多难的坚强民族祈福。希望日本的人民平安，希望你们的家人，朋友平安。也希望在日本遭遇到地震、海啸的中国人和所有其他人平安。

2011年3月10日星期四

Re: [PerlChina] 最近社区很是热闹啊！

Hello,

未看完，能概括说说吗？

于 2011年03月10日 18:11, Shu Cao 写道:
> 看这个thread: http://www.gossamer-threads.com/lists/perl/porters/261316
>
>

--
诸法从缘起，如来说是因。
彼法因缘尽，是大沙门说。

Re: [PerlChina] 关于XML::DOM 模块

非常的感谢cnhack TNT，我的问题解决了，thank u.

2011/3/11 cnhack TNT <cnhacktnt@gmail.com>

直接给个例子吧：

#!/usr/bin/env perl
# cnhackTNT

use strict;
use XML::DOM;
use Data::Dumper;

my $paser = XML::DOM::Parser->new;

my $doc = $paser->parse(<<XML);
<ScriptRule>
   <Rule>
   <BLineCode><![CDATA[JX-LINUX-TY-PZ-14-OPT]]></BLineCode>
   <BLineName><![CDATA[Perl]]></BLineName>

   <BLineDesc><![CDATA[]]></BLineDesc>
   <BLineSeverity><![CDATA[1]]></BLineSeverity>
   <IsCheck><![CDATA[1]]></IsCheck>
   <RuleExpression><![CDATA[on remote_record it Match YES]]></RuleExpression>
   <BLineValue><![CDATA[]]></BLineValue>
   <Unit><![CDATA[]]></Unit>

   <FormatRule><![CDATA[Linux]]></FormatRule>
   <Solution><![CDATA[]]></Solution>
   <BLineStandard><![CDATA[1]]></BLineStandard>

   </Rule>
   <Rule>
   <BLineCode><![CDATA[JX-LINUX-TY-WW-16-OPT]]></BLineCode>
   <BLineName><![CDATA[Perl]]></BLineName>

   <BLineDesc><![CDATA[]]></BLineDesc>
   <BLineSeverity><![CDATA[1]]></BLineSeverity>
   <IsCheck><![CDATA[1]]></IsCheck>
   <RuleExpression><![CDATA[on remote_record it Match YES]]></RuleExpression>

   <BLineValue><![CDATA[]]></BLineValue>
   <Unit><![CDATA[]]></Unit>
   <FormatRule><![CDATA[Linux]]></FormatRule>

   <Solution><![CDATA[]]></Solution>

   <BLineStandard><![CDATA[1]]></BLineStandard>
   </Rule>
</ScriptRule>
XML

my @nodes = $doc->getElementsByTagName("BLineCode");

for my $node (@nodes) {
   my $cdata = $node->getFirstChild;
   print $node->getTagName, " => ", $cdata->getData, "\n";
}

2011/3/11 DXX <master2dou@gmail.com>
这个上面已经找了，只有一个小例子，所有的方法解释的相当的简单且没有例子，google了一下，发现网上所有的无论博客还是论坛，内容都是一模一样的，都是perldoc XML::DOM的前十行，我都汗死了

2011/3/11 Michael Zeng <galaxy2004@gmail.com>

search.cpan.org 上看看

2011/3/11 DXX <master2dou@gmail.com>

恩，是的，用正则可以，但是上面的头指明了必须要用dom来做，比较棘手，dom的资料太不好找了

2011/3/11 Michael Zeng <galaxy2004@gmail.com>

抛开xml及其模块，用regex 也可以做啊

( my $data ) = $string =~ /^\s*BLineCode><!\[CDATA\[(.*)\]\]><\/BLineCode>\s*$/m ;

print $data ;

2011/3/11 DXX <master2dou@gmail.com>

hi:
   我是一个perl程序员，最近遇到一个棘手的问题，我们有个脚本（解析XML文件）现在要用dom模块来进行解析，但是相关的文档太少了，我看了dom的源码，找了google还是没找到到底该怎么解决，所以希望路过的大神能够看到这个问题，并顺手解决一下:

   XML文件是这样的：

<ScriptRule>

   <Rule>

   <BLineCode><![CDATA[JX-LINUX-TY-PZ-14-OPT]]></BLineCode>

   <BLineName><![CDATA[Perl]]><<

/BLineName>

   <BLineDesc><![CDATA[]]></BLineDesc>

   <BLineSeverity><![CDATA[1]]></BLineSeverity>

   <IsCheck><![CDATA[1]]></IsCheck>

   <RuleExpression><![CDATA[on remote_record it Match YES]]></RuleExpression>

   <BLineValue><![CDATA[]]></BLineValue>

   <Unit><![CDATA[]]></Unit>

   <FormatRule><![CDATA[Linux]]></FormaatRule>

   <Solution><![CDATA[]]></Solution>

   <BLineStandard><![CDATA[1]]></BLineStandard>

   </Rule>

</ScriptRule>

我现在要将cdata进行解析，并放入一个哈希或者数组中：

形式像这样的：

%hash = ("BLineCode"=>"JX-LINUX-TY-PZ-14-OPT")，或者是简单的告诉我要怎么把BLineCode和对应的cdata值取出来，不盛感激。

期待有个传说的人物出现，解决我这个问题

--
nothing is impossible to a willing heart

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

--
nothing is impossible to a willing heart

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

--
nothing is impossible to a willing heart

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

--
nothing is impossible to a willing heart

Re: [PerlChina] 关于XML::DOM 模块

直接给个例子吧：

#!/usr/bin/env perl

# cnhackTNT

use strict;

use XML::DOM;

use Data::Dumper;

my $paser = XML::DOM::Parser->new;

my $doc = $paser->parse(<<XML);

<Rule>

</Rule>

<Rule>

</Rule>

</ScriptRule>

XML

my @nodes = $doc->getElementsByTagName("BLineCode");

for my $node (@nodes) {

my $cdata = $node->getFirstChild;

print $node->getTagName, " => ", $cdata->getData, "\n";

}

2011/3/11 DXX <master2dou@gmail.com>

这个上面已经找了，只有一个小例子，所有的方法解释的相当的简单且没有例子，google了一下，发现网上所有的无论博客还是论坛，内容都是一模一样的，都是perldoc XML::DOM的前十行，我都汗死了

2011/3/11 Michael Zeng <galaxy2004@gmail.com>

search.cpan.org 上看看

2011/3/11 DXX <master2dou@gmail.com>

恩，是的，用正则可以，但是上面的头指明了必须要用dom来做，比较棘手，dom的资料太不好找了

2011/3/11 Michael Zeng <galaxy2004@gmail.com>

抛开xml及其模块，用regex 也可以做啊

( my $data ) = $string =~ /^\s*BLineCode><!\[CDATA\[(.*)\]\]><\/BLineCode>\s*$/m ;

print $data ;

2011/3/11 DXX <master2dou@gmail.com>

hi:
   我是一个perl程序员，最近遇到一个棘手的问题，我们有个脚本（解析XML文件）现在要用dom模块来进行解析，但是相关的文档太少了，我看了dom的源码，找了google还是没找到到底该怎么解决，所以希望路过的大神能够看到这个问题，并顺手解决一下:

   XML文件是这样的：

<ScriptRule>

   <Rule>

   <BLineCode><![CDATA[JX-LINUX-TY-PZ-14-OPT]]></BLineCode>

   <BLineName><![CDATA[Perl]]><<

/BLineName>

   <BLineDesc><![CDATA[]]></BLineDesc>

   <BLineSeverity><![CDATA[1]]></BLineSeverity>

   <IsCheck><![CDATA[1]]></IsCheck>

   <RuleExpression><![CDATA[on remote_record it Match YES]]></RuleExpression>

   <BLineValue><![CDATA[]]></BLineValue>

   <Unit><![CDATA[]]></Unit>

   <FormatRule><![CDATA[Linux]]></FormaatRule>

   <Solution><![CDATA[]]></Solution>

   <BLineStandard><![CDATA[1]]></BLineStandard>

   </Rule>

</ScriptRule>

我现在要将cdata进行解析，并放入一个哈希或者数组中：

形式像这样的：

%hash = ("BLineCode"=>"JX-LINUX-TY-PZ-14-OPT")，或者是简单的告诉我要怎么把BLineCode和对应的cdata值取出来，不盛感激。

期待有个传说的人物出现，解决我这个问题

--
nothing is impossible to a willing heart

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

--
nothing is impossible to a willing heart

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

--
nothing is impossible to a willing heart

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

Re: [PerlChina] 关于XML::DOM 模块

这个上面已经找了，只有一个小例子，所有的方法解释的相当的简单且没有例子，google了一下，发现网上所有的无论博客还是论坛，内容都是一模一样的，都是perldoc XML::DOM的前十行，我都汗死了

2011/3/11 Michael Zeng <galaxy2004@gmail.com>

search.cpan.org 上看看

2011/3/11 DXX <master2dou@gmail.com>

恩，是的，用正则可以，但是上面的头指明了必须要用dom来做，比较棘手，dom的资料太不好找了

2011/3/11 Michael Zeng <galaxy2004@gmail.com>

抛开xml及其模块，用regex 也可以做啊

( my $data ) = $string =~ /^\s*BLineCode><!\[CDATA\[(.*)\]\]><\/BLineCode>\s*$/m ;

print $data ;

2011/3/11 DXX <master2dou@gmail.com>

hi:
   我是一个perl程序员，最近遇到一个棘手的问题，我们有个脚本（解析XML文件）现在要用dom模块来进行解析，但是相关的文档太少了，我看了dom的源码，找了google还是没找到到底该怎么解决，所以希望路过的大神能够看到这个问题，并顺手解决一下:

   XML文件是这样的：

<ScriptRule>

   <Rule>

   <BLineCode><![CDATA[JX-LINUX-TY-PZ-14-OPT]]></BLineCode>

   <BLineName><![CDATA[Perl]]><<

/BLineName>

   <BLineDesc><![CDATA[]]></BLineDesc>

   <BLineSeverity><![CDATA[1]]></BLineSeverity>

   <IsCheck><![CDATA[1]]></IsCheck>

   <RuleExpression><![CDATA[on remote_record it Match YES]]></RuleExpression>

   <BLineValue><![CDATA[]]></BLineValue>

   <Unit><![CDATA[]]></Unit>

   <FormatRule><![CDATA[Linux]]></FormaatRule>

   <Solution><![CDATA[]]></Solution>

   <BLineStandard><![CDATA[1]]></BLineStandard>

   </Rule>

</ScriptRule>

我现在要将cdata进行解析，并放入一个哈希或者数组中：

形式像这样的：

%hash = ("BLineCode"=>"JX-LINUX-TY-PZ-14-OPT")，或者是简单的告诉我要怎么把BLineCode和对应的cdata值取出来，不盛感激。

期待有个传说的人物出现，解决我这个问题

--
nothing is impossible to a willing heart

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

--
nothing is impossible to a willing heart

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

--
nothing is impossible to a willing heart

Re: [PerlChina] 关于XML::DOM 模块

search.cpan.org 上看看

2011/3/11 DXX <master2dou@gmail.com>

恩，是的，用正则可以，但是上面的头指明了必须要用dom来做，比较棘手，dom的资料太不好找了

2011/3/11 Michael Zeng <galaxy2004@gmail.com>

抛开xml及其模块，用regex 也可以做啊

( my $data ) = $string =~ /^\s*BLineCode><!\[CDATA\[(.*)\]\]><\/BLineCode>\s*$/m ;

print $data ;

2011/3/11 DXX <master2dou@gmail.com>

hi:
   我是一个perl程序员，最近遇到一个棘手的问题，我们有个脚本（解析XML文件）现在要用dom模块来进行解析，但是相关的文档太少了，我看了dom的源码，找了google还是没找到到底该怎么解决，所以希望路过的大神能够看到这个问题，并顺手解决一下:

   XML文件是这样的：

<ScriptRule>

   <Rule>

   <BLineCode><![CDATA[JX-LINUX-TY-PZ-14-OPT]]></BLineCode>

   <BLineName><![CDATA[Perl]]><<

/BLineName>

   <BLineDesc><![CDATA[]]></BLineDesc>

   <BLineSeverity><![CDATA[1]]></BLineSeverity>

   <IsCheck><![CDATA[1]]></IsCheck>

   <RuleExpression><![CDATA[on remote_record it Match YES]]></RuleExpression>

   <BLineValue><![CDATA[]]></BLineValue>

   <Unit><![CDATA[]]></Unit>

   <FormatRule><![CDATA[Linux]]></FormaatRule>

   <Solution><![CDATA[]]></Solution>

   <BLineStandard><![CDATA[1]]></BLineStandard>

   </Rule>

</ScriptRule>

我现在要将cdata进行解析，并放入一个哈希或者数组中：

形式像这样的：

%hash = ("BLineCode"=>"JX-LINUX-TY-PZ-14-OPT")，或者是简单的告诉我要怎么把BLineCode和对应的cdata值取出来，不盛感激。

期待有个传说的人物出现，解决我这个问题

--
nothing is impossible to a willing heart

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

--
nothing is impossible to a willing heart

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

--
Yours Sincerely
Zeng Hong

Re: [PerlChina] 关于XML::DOM 模块

恩，是的，用正则可以，但是上面的头指明了必须要用dom来做，比较棘手，dom的资料太不好找了

2011/3/11 Michael Zeng <galaxy2004@gmail.com>

抛开xml及其模块，用regex 也可以做啊

( my $data ) = $string =~ /^\s*BLineCode><!\[CDATA\[(.*)\]\]><\/BLineCode>\s*$/m ;

print $data ;

2011/3/11 DXX <master2dou@gmail.com>

hi:
   我是一个perl程序员，最近遇到一个棘手的问题，我们有个脚本（解析XML文件）现在要用dom模块来进行解析，但是相关的文档太少了，我看了dom的源码，找了google还是没找到到底该怎么解决，所以希望路过的大神能够看到这个问题，并顺手解决一下:

   XML文件是这样的：

<ScriptRule>

   <Rule>

   <BLineCode><![CDATA[JX-LINUX-TY-PZ-14-OPT]]></BLineCode>

   <BLineName><![CDATA[Perl]]><<

/BLineName>

   <BLineDesc><![CDATA[]]></BLineDesc>

   <BLineSeverity><![CDATA[1]]></BLineSeverity>

   <IsCheck><![CDATA[1]]></IsCheck>

   <RuleExpression><![CDATA[on remote_record it Match YES]]></RuleExpression>

   <BLineValue><![CDATA[]]></BLineValue>

   <Unit><![CDATA[]]></Unit>

   <FormatRule><![CDATA[Linux]]></FormaatRule>

   <Solution><![CDATA[]]></Solution>

   <BLineStandard><![CDATA[1]]></BLineStandard>

   </Rule>

</ScriptRule>

我现在要将cdata进行解析，并放入一个哈希或者数组中：

形式像这样的：

%hash = ("BLineCode"=>"JX-LINUX-TY-PZ-14-OPT")，或者是简单的告诉我要怎么把BLineCode和对应的cdata值取出来，不盛感激。

期待有个传说的人物出现，解决我这个问题

--
nothing is impossible to a willing heart

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

--
nothing is impossible to a willing heart

Re: [PerlChina] 关于XML::DOM 模块

抛开xml及其模块，用regex 也可以做啊

( my $data ) = $string =~ /^\s*BLineCode><!\[CDATA\[(.*)\]\]><\/BLineCode>\s*$/m ;

print $data ;

2011/3/11 DXX <master2dou@gmail.com>

hi:
   我是一个perl程序员，最近遇到一个棘手的问题，我们有个脚本（解析XML文件）现在要用dom模块来进行解析，但是相关的文档太少了，我看了dom的源码，找了google还是没找到到底该怎么解决，所以希望路过的大神能够看到这个问题，并顺手解决一下:

   XML文件是这样的：

<ScriptRule>

   <Rule>

   <BLineCode><![CDATA[JX-LINUX-TY-PZ-14-OPT]]></BLineCode>

   <BLineName><![CDATA[Perl]]><<

/BLineName>

   <BLineDesc><![CDATA[]]></BLineDesc>

   <BLineSeverity><![CDATA[1]]></BLineSeverity>

   <IsCheck><![CDATA[1]]></IsCheck>

   <RuleExpression><![CDATA[on remote_record it Match YES]]></RuleExpression>

   <BLineValue><![CDATA[]]></BLineValue>

   <Unit><![CDATA[]]></Unit>

   <FormatRule><![CDATA[Linux]]></FormaatRule>

   <Solution><![CDATA[]]></Solution>

   <BLineStandard><![CDATA[1]]></BLineStandard>

   </Rule>

</ScriptRule>

我现在要将cdata进行解析，并放入一个哈希或者数组中：

形式像这样的：

%hash = ("BLineCode"=>"JX-LINUX-TY-PZ-14-OPT")，或者是简单的告诉我要怎么把BLineCode和对应的cdata值取出来，不盛感激。

期待有个传说的人物出现，解决我这个问题

--
nothing is impossible to a willing heart

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

--
Yours Sincerely
Zeng Hong

[PerlChina] wang dingyuan wants to share their location with you on Google Latitude

wang dingyuan (wang.dingyuan1@gmail.com) wants to share their location with you on Google Latitude. You too can see where your friends are and share your location using Latitude from your phone, computer, or both.

Aww snap. You don't have a Google Account.

To use Google Latitude, you'll need to sign in with a Google Account. If you don't have one, use the following steps:

Create a new Gmail account at https://mail.google.com/mail/signup or create a Google Account for your existing email address at https://www.google.com/accounts/NewAccount
Start using Latitude! Go to https://www.google.com/latitude from your phone or computer.
Sign in with your Google Account and add wang dingyuan (wang.dingyuan1@gmail.com) as a friend.

[PerlChina] wang dingyuan wants to share their location with you on Google Latitude

Aww snap. You don't have a Google Account.

To use Google Latitude, you'll need to sign in with a Google Account. If you don't have one, use the following steps:

Create a new Gmail account at https://mail.google.com/mail/signup or create a Google Account for your existing email address at https://www.google.com/accounts/NewAccount
Start using Latitude! Go to https://www.google.com/latitude from your phone or computer.
Sign in with your Google Account and add wang dingyuan (wang.dingyuan1@gmail.com) as a friend.

[PerlChina] wang dingyuan wants to share their location with you on Google Latitude

Aww snap. You don't have a Google Account.

To use Google Latitude, you'll need to sign in with a Google Account. If you don't have one, use the following steps:

Create a new Gmail account at https://mail.google.com/mail/signup or create a Google Account for your existing email address at https://www.google.com/accounts/NewAccount
Start using Latitude! Go to https://www.google.com/latitude from your phone or computer.
Sign in with your Google Account and add wang dingyuan (wang.dingyuan1@gmail.com) as a friend.

[PerlChina] 关于XML::DOM 模块

hi:

我是一个perl程序员，最近遇到一个棘手的问题，我们有个脚本（解析XML文件）现在要用dom模块来进行解析，但是相关的文档太少了，我看了dom的源码，找了google还是没找到到底该怎么解决，所以希望路过的大神能够看到这个问题，并顺手解决一下:

XML文件是这样的：

<Rule>

<BLineName><![CDATA[Perl]]><<

/BLineName>

</Rule>

</ScriptRule>

我现在要将cdata进行解析，并放入一个哈希或者数组中：

形式像这样的：

%hash = ("BLineCode"=>"JX-LINUX-TY-PZ-14-OPT")，或者是简单的告诉我要怎么把BLineCode和对应的cdata值取出来，不盛感激。

期待有个传说的人物出现，解决我这个问题

--
nothing is impossible to a willing heart

Re: [PerlChina] 怎么才能使XML::Simple支持中文

google 一下就有结果啦。

http://bbs.chinaunix.net/viewthread.php?tid=698736&rpid=4881706&ordertype=0&page=3#pid4881706

Qiang

On 03/10/2011 02:26 PM, db2kcn wrote:

大家好！

我在使用XML::Simple处理XML文件，感觉很方便。

但是一旦XML文件中包含中文内容，就无法处理会报错。

怎么才能使该模块支持中文。

db2kcn

2011-03-10
--

[PerlChina] 最近社区很是热闹啊！

看这个thread: http://www.gossamer-threads.com/lists/perl/porters/261316

--
Shu Cao

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

Re: [PerlChina] 如何不让Tie::Handle::CSV 在字符串外加双引号""？

改成如下：

use Text::CSV_XS;

...

my $csv_parser = Text::CSV_XS->new( {allow_whitespace => 1} );
my $fh_input = Tie::Handle::CSV->new("$inputfile", header => 1,
csv_parser => $csv_parser);

...

2011/3/10 许高飞 <flyhighxu@gmail.com>:
> 请教一下大家，我在用Tie::Handle::CSV模块处理CSV文件时，发现其输出时会在字符串外加双引号""。
> 例如：
> FOOBAR, Name, Type,
> 输出会变成：
> FOOBAR," Name"," Type"," "
> 有什么办法不让Tie::Handle::CSV 在字符串外加双引号""吗？
> 代码例子见附件。
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

Re: [PerlChina] 如何不让Tie::Handle::CSV 在字符串外加双引号""？

因为有空格，所以加双引号是规范的做法，试试写成
FOOBAR,Name,Type,
也就是逗号后不加空格
2011/3/10 许高飞 <flyhighxu@gmail.com>:
> 请教一下大家，我在用Tie::Handle::CSV模块处理CSV文件时，发现其输出时会在字符串外加双引号""。
> 例如：
> FOOBAR, Name, Type,
> 输出会变成：
> FOOBAR," Name"," Type"," "
> 有什么办法不让Tie::Handle::CSV 在字符串外加双引号""吗？
> 代码例子见附件。
>
> --
> 您收到此邮件是因为您订阅了 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] 如何不让Tie::Handle::CSV 在字符串外加双引号""？

请教一下大家，我在用Tie::Handle::CSV模块处理CSV文件时，发现其输出时会在字符串外加双引号""。
例如：
FOOBAR, Name, Type,
输出会变成：
FOOBAR," Name"," Type"," "
有什么办法不让Tie::Handle::CSV 在字符串外加双引号""吗？
代码例子见附件。

2011年3月9日星期三

[PerlChina] 怎么才能使XML::Simple支持中文

大家好！

我在使用XML::Simple处理XML文件，感觉很方便。

但是一旦XML文件中包含中文内容，就无法处理会报错。

怎么才能使该模块支持中文。

db2kcn

2011-03-10

Re: [PerlChina] perl程序中，如何使用shell自己的变量？

加上反斜杠转义一下就好了

2011/3/10 Gary.jsz <gary.jsz@gmail.com>

大家好！

我想在perl程序中得到linux系统的一些值，使用shell比较方便实现，但是有个问题，就是perl把shell的变量当作了自己的变量来替换了，比如：

ps aux |awk "BEGIN { print '%CPU %MEM %STAT PID COMMAND' } { if ('$3' > 25 || '$4' > 25 || '$8'~/Z/ && '$8'!~/Z</) print '$3', '$4', '$8', '$2', '$11'}" |sort

上面命令，在linux系统上面是跑的很正常的，但是，如果放到perl程序中，所有的变量都变成了perl的了，有什么方法可以在perl程序中，完整的得到此命令的输出结果？

比如：

my $ps = `ps aux |awk "BEGIN { print '%CPU %MEM %STAT PID COMMAND' } { if ('$3' > 25 || '$4' > 25 || '$8'~/Z/ && '$8'!~/Z</) print '$3', '$4', '$8', '$2', '$11'}" |sort`

而$ps却得不到想要的值。

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

[PerlChina] perl程序中，如何使用shell自己的变量？

大家好！

我想在perl程序中得到linux系统的一些值，使用shell比较方便实现，但是有个问题，就是perl把shell的变量当作了自己的变量来替换了，比如：

ps aux |awk "BEGIN { print '%CPU %MEM %STAT PID COMMAND' } { if ('$3' > 25 || '$4' > 25 || '$8'~/Z/ && '$8'!~/Z</) print '$3', '$4', '$8', '$2', '$11'}" |sort

上面命令，在linux系统上面是跑的很正常的，但是，如果放到perl程序中，所有的变量都变成了perl的了，有什么方法可以在perl程序中，完整的得到此命令的输出结果？

比如：

my $ps = `ps aux |awk "BEGIN { print '%CPU %MEM %STAT PID COMMAND' } { if ('$3' > 25 || '$4' > 25 || '$8'~/Z/ && '$8'!~/Z</) print '$3', '$4', '$8', '$2', '$11'}" |sort`

而$ps却得不到想要的值。

2011年3月8日星期二

[PerlChina] Perl 5的后继发行版本，有无打算针对基于Moose特别优化的？

闻说Moose的性能会稍欠缺，故有此一问。
谢谢！

--
诸法从缘起，如来说是因。
彼法因缘尽，是大沙门说。

订阅：博文 (Atom)

2011年3月11日星期五

2011年3月10日星期四

2011年3月9日星期三

2011年3月8日星期二

订阅

博客归档