Perl China Blog Spot: 2009-10-18

2009年10月24日星期六

[PerlChina] Re: 请问大家字符串的匹配输出问题～

\Q${str}\E 是强引用，即quotemeta $str

把[^0-9a-zA-Z_]的东西都加 \ , perldoc -f quotemeta

.*? 是非贪婪匹配，你把Learning Perl 好好看看，这些都是基础知识

2009/10/25 Yingying <yyzhang3185@gmail.com>ot

请问Xiaojun Deng为什么你写的src中用的是.*?，这里的"?"是什么意思呢?

On 10月23日, 下午7时25分, Xiaojun Deng <xjde...@gmail.com> wrote:
> 2009/10/23 Yingying <yyzhang3...@gmail.com>:> 如果我还想再从这段源码中找到一个图像地址<img src="XXXXXXXX">，我应该怎么把这个图像地址提取出来呢？

>
> \<img\ src\="(.*?)"\>
> 再把()中的提取到一个变量中就可以了，比如$1 $2啥的。
>
>
>
> > 谢谢！！
>
> > On 10月23日, 上午12时37分, Yingying <yyzhang3...@gmail.com> wrote:
> >> 我在$_中存了一个相当长的字符串（一页网页的源代码），现在我想从中匹配一段代码，比如/<div\sclass="user-thumb-
> >> xlarge"><div>\s+<a\shref=.+\s+<img.*>\s*<\/a>/，有办法把这段匹配的网页源代码另外存在一个字符串里
> >> 吗？我到网上查了很多地方，都没有说的样子...

--
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: 请问大家字符串的匹配输出问题～

One principle of regular expression is greedy.
如："sldfk"sdfksdf"
字符串中有几个"的时候，有？时保存最靠左端的两个"之间的部分。没？时，保存最左端与最右端"之间的部分。

----- Original Message -----
From: "Yingying" <yyzhang3185@gmail.com>
To: "PerlChina Mongers 讨论组" <perlchina@googlegroups.com>
Sent: Sunday, October 25, 2009 8:40 AM
Subject: [PerlChina] Re: 请问大家字符串的匹配输出问题～

> 请问Xiaojun Deng为什么你写的src中用的是.*?，这里的"?"是什么意思呢?
>
> On 10月23日, 下午7时25分, Xiaojun Deng <xjde...@gmail.com> wrote:
>> 2009/10/23 Yingying <yyzhang3...@gmail.com>:> 如果我还想再从这段源码中找到一个图像地址<img src="XXXXXXXX">，我应该怎么把这个图像地址提取出来呢？
>>
>> \<img\ src\="(.*?)"\>
>> 再把()中的提取到一个变量中就可以了，比如$1 $2啥的。
>>
>>
>>
>> > 谢谢！！
>>
>> > On 10月23日, 上午12时37分, Yingying <yyzhang3...@gmail.com> wrote:
>> >> 我在$_中存了一个相当长的字符串（一页网页的源代码），现在我想从中匹配一段代码，比如/<div\sclass="user-thumb-
>> >> xlarge"><div>\s+<a\shref=.+\s+<img.*>\s*<\/a>/，有办法把这段匹配的网页源代码另外存在一个字符串里
>> >> 吗？我到网上查了很多地方，都没有说的样子...
> >
>

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

[PerlChina] Re: 请问大家字符串的匹配输出问题～

请问Xiaojun Deng为什么你写的src中用的是.*?，这里的"?"是什么意思呢?

On 10月23日, 下午7时25分, Xiaojun Deng <xjde...@gmail.com> wrote:
> 2009/10/23 Yingying <yyzhang3...@gmail.com>:> 如果我还想再从这段源码中找到一个图像地址<img src="XXXXXXXX">，我应该怎么把这个图像地址提取出来呢？
>
> \<img\ src\="(.*?)"\>
> 再把()中的提取到一个变量中就可以了，比如$1 $2啥的。
>
>
>
> > 谢谢！！
>
> > On 10月23日, 上午12时37分, Yingying <yyzhang3...@gmail.com> wrote:
> >> 我在$_中存了一个相当长的字符串（一页网页的源代码），现在我想从中匹配一段代码，比如/<div\sclass="user-thumb-
> >> xlarge"><div>\s+<a\shref=.+\s+<img.*>\s*<\/a>/，有办法把这段匹配的网页源代码另外存在一个字符串里
> >> 吗？我到网上查了很多地方，都没有说的样子...
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 请问大家字符串的匹配输出问题～

谢谢，不过我想知道\Q和\E是什么意思呢？

On 10月24日, 上午4时29分, Anthony WU <anthonywu...@gmail.com> wrote:
> $total_str =~ /($pattern)/ ;
>
> 改成
>
> $total_str =~ /(\Q$pattern\E)/ ; 吧，不然你的系統可能很快被入侵了
>
>
>
>
>
> -------- Original Message --------
> Subject: [PerlChina] Re: 请问大家字符串的匹配输出问题～
> From: Yingying <yyzhang3...@gmail.com>
> To: PerlChina Mongers 讨论组 <perlchina@googlegroups.com>
> Date: 24/10/2009 14:46
> > 谢谢谢谢！原来是因为my的范围。我的赋值语句是在if内，而打印是在if外，所以我把my去掉之后就好了，太感谢了~~~
>
> > On 10月23日, 下午6时04分, Michael Zeng <galaxy2...@gmail.com> wrote:
>
> >> 这不就是正则表达式的应用么 , 用 ( ）抓取不就完了
>
> >> 把你具体的字符串讲下
>
> >> ( my $sub_str ) = $total_str =~ /($pattern)/ ;
>
> >> 2009/10/23 Yingying <yyzhang3...@gmail.com>
>
> >>> 如果我还想再从这段源码中找到一个图像地址<img src="XXXXXXXX">，我应该怎么把这个图像地址提取出来呢？
>
> >>> 谢谢！！
>
> >>> On 10月23日, 上午12时37分, Yingying <yyzhang3...@gmail.com> wrote:
>
> >>>> 我在$_中存了一个相当长的字符串（一页网页的源代码），现在我想从中匹配一段代码，比如/<div\sclass="user-thumb-
> >>>> xlarge"><div>\s+<a\shref=.+\s+<img.*>\s*<\/a>/，有办法把这段匹配的网页源代码另外存在一个字符串里
> >>>> 吗？我到网上查了很多地方，都没有说的样子...
>
> >> --
> >> Yours Sincerely
> >> Zeng Hong
>
> --
> Best Regards,
> Anthony WU
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 一个礼物

这种东西应该不是perl的特长吧，应该是flash 啥的

perl就是文本处理，流程控制，网页处理，进程管理

2009/10/24 flw <su2admin@gmail.com>

程序员的爱情果然很土……

2009/10/9 xsir317 <xsir317@163.com>

个人意见先写死。手写写出你的目标。也就是先明确目标字符串是什么样子的，至少这样能弄个0.1版交差。

然后再找找规律。。。心形是不规则的形状，可能比较麻烦。

据说可以读入图片然后根据图片绘制。。。反正我没弄过。。。

另，如果你女朋友不是搞IT的，那么建议你还是去Google一个壁纸或者图片之类的。。。比较靠谱。

2009-10-09

xsir317

发件人： Allen

发送时间： 2009-10-09 14:09:16

收件人： PerlChina Mongers 讨论组

抄送：

主题： [PerlChina] Re: 一个礼物

等待作者回来贴代码。

On 10月2日, 上午5时46分, qingshui <xiongperso...@gmail.com> wrote:

> 最近在学习perl，我女朋友马上要过生日了，我突然想到用perl编个程序给她个惊喜。

> 我的想法是编个心字型，她今天是28岁生日，所以这个心字要用28个小心做成一个大的

> 心字型。当然这个程序是在没有perl解释器的情况下可以运行。

> 我现在开始编了，但是很想知道是否大家也有这样的经历没有?

> 供我参考一下。本人承诺，此程序的源码全部给大家公布，

> 我甚至还想到，是否可以编一个通用的程序，比如说多少个心，我们通过

> 参数可以控制，甚至，还可以有其他的图形，比如生日快乐的字样了。

> 很希望大家给我idea。

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

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

发帖者 lazayworm 时间： 08:06 没有评论:

[PerlChina] Re: 请问大家字符串的匹配输出问题～

$total_str =~ /($pattern)/ ;

改成

$total_str =~ /(\Q$pattern\E)/ ; 吧，不然你的系統可能很快被入侵了

-------- Original Message --------
Subject: [PerlChina] Re: 请问大家字符串的匹配输出问题～
From: Yingying <yyzhang3185@gmail.com>
To: PerlChina Mongers 讨论组 <perlchina@googlegroups.com>
Date: 24/10/2009 14:46
> 谢谢谢谢！原来是因为my的范围。我的赋值语句是在if内，而打印是在if外，所以我把my去掉之后就好了，太感谢了~~~
>
> On 10月23日, 下午6时04分, Michael Zeng <galaxy2...@gmail.com> wrote:
>
>> 这不就是正则表达式的应用么 , 用 ( ）抓取不就完了
>>
>> 把你具体的字符串讲下
>>
>> ( my $sub_str ) = $total_str =~ /($pattern)/ ;
>>
>> 2009/10/23 Yingying <yyzhang3...@gmail.com>
>>
>>
>>> 如果我还想再从这段源码中找到一个图像地址<img src="XXXXXXXX">，我应该怎么把这个图像地址提取出来呢？
>>>
>>> 谢谢！！
>>>
>>> On 10月23日, 上午12时37分, Yingying <yyzhang3...@gmail.com> wrote:
>>>
>>>> 我在$_中存了一个相当长的字符串（一页网页的源代码），现在我想从中匹配一段代码，比如/<div\sclass="user-thumb-
>>>> xlarge"><div>\s+<a\shref=.+\s+<img.*>\s*<\/a>/，有办法把这段匹配的网页源代码另外存在一个字符串里
>>>> 吗？我到网上查了很多地方，都没有说的样子...
>>>>
>> --
>> Yours Sincerely
>> Zeng Hong
>>
> >
>

--
Best Regards,
Anthony WU

[PerlChina] Re: 版本perl 5.10语法特性请教！

看 HTML 版的文档，
里面提到的东西都会有超链接的。

2009/9/27 Michael Zeng <galaxy2004@gmail.com>

看第5 版 Learning Perl

5.10 比5.8 就是几个更新：

1）增加分支关键字 : given/when , 增加say 函数，

2) 增加有名记忆, 在regex里面：\{name}

3) 增加智能匹配：~~

2009/9/27 joe jiang <lamp.purl@gmail.com>

perldoc feature

2009/9/26 <123456fuzhong@sohu.com>

Hi,all!

最近小弟在用perl5.10版写脚本，很想了解其最新的语法特性，请问在perl哪个文档中可以了解到其详细用法及变更？小弟使用perl的时间不长，我看了一下perl 5。10自带的perl5100delta，上面只讲到有哪些更新，没有具体用法！哪位老大曾看过这个文档，望给点儿提示。

你的搜狐好友邀你领取"神秘礼包"

抽奖换礼，好运有你！

--
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/10/9 xsir317 <xsir317@163.com>

个人意见先写死。手写写出你的目标。也就是先明确目标字符串是什么样子的，至少这样能弄个0.1版交差。

然后再找找规律。。。心形是不规则的形状，可能比较麻烦。

据说可以读入图片然后根据图片绘制。。。反正我没弄过。。。

另，如果你女朋友不是搞IT的，那么建议你还是去Google一个壁纸或者图片之类的。。。比较靠谱。

2009-10-09

xsir317

发件人： Allen

发送时间： 2009-10-09 14:09:16

收件人： PerlChina Mongers 讨论组

抄送：

主题： [PerlChina] Re: 一个礼物

等待作者回来贴代码。

On 10月2日, 上午5时46分, qingshui <xiongperso...@gmail.com> wrote:

> 最近在学习perl，我女朋友马上要过生日了，我突然想到用perl编个程序给她个惊喜。

> 我的想法是编个心字型，她今天是28岁生日，所以这个心字要用28个小心做成一个大的

> 心字型。当然这个程序是在没有perl解释器的情况下可以运行。

> 我现在开始编了，但是很想知道是否大家也有这样的经历没有?

> 供我参考一下。本人承诺，此程序的源码全部给大家公布，

> 我甚至还想到，是否可以编一个通用的程序，比如说多少个心，我们通过

> 参数可以控制，甚至，还可以有其他的图形，比如生日快乐的字样了。

> 很希望大家给我idea。

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

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

[PerlChina] Re: Perl包安装复杂问题！求助！！

用 cpan 命令来安装。会变得非常简单。

2009/10/23 空格 <ribozyme2004@gmail.com>

系统我试过重装了，还是有这个问题。看来除非换一个linux的分发版。
重装perl怎么做? 我看了下有很多包含perl标题的rpm包的。而且我担心这些包有彼此的倚赖关系。

On 10月22日, 下午6时50分, 钟声 <gh00920...@gmail.com> wrote:
> 这种事真无语。前断时间装Glade研究Gtk2的时候也是来回安装pm，但没像你那样遇见死循环。
>
> 建议重装perl...再不行就重装linux。。哈哈，不信弄不好
>

> 2009/10/22 空格 <ribozyme2...@gmail.com>

>
> > 要装的是一个叫msatfinder的软件，说明上说需要有Bioperl包和config::simple包。都是cpan上现成的我以为会很好
> > 弄。
> > 不料：
> > 装bioperl时，make出错，说需要Module::Build包；
> > 装Module::Build时，出错，说Pod::Simple包没有能在预定义路径的@INC数组中找到；
> > 装Pod::Simple时，出错，说Pod::Man包没有能在预定义路径的@INC数组中找到；
> > 装Pod::Man包时，出错，说需要的Pod::Simple包没有！！
> > 于是我彻底无语...
>
> > 给cpan上Pod::Man的维护人员去信。回复说貌似我需要手工删除并重安装Pod::Man。我不会手工删除一个cpan包，就上网查，看到最多
> > 的一个说法是，"因为blablabla，所以cpan包一般不提供手工删除方式"...
> > 再次无语...
>
> > 我把Man.pm文件在Pod目录里找到并移除，结果就是在make时报错说没有在@INC中找到Man.pm文件的路径。
>
> > 我怀疑是我用的linux分发版丢掉了某些perl的安装文件造成这样的问题。请大家帮忙。折腾了多半个月了老板安排的活还一点没做。光倒腾这几个pm
> > 包了。。。
>
> > //bow

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

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

[PerlChina] Re: 各位大神，谁知道这个是什么编码？应该怎么处理？

经验

2009/10/24 chico CHEN <chillycreator@gmail.com>

楼上果真牛人...这编码咋看出来的？

2009/10/23 xsir317 <xsir317@163.com>

Thanks TNT and azure wang

2009-10-23

xsir317

发件人： cnhack TNT

发送时间： 2009-10-23 17:40:37

收件人： perlchina

抄送：

主题： [PerlChina] Re: 各位大神，谁知道这个是什么编码？应该怎么处理？

perl -MMIME::Base64 -le 'print decode_base64 "MTIzNA0KMTIzNDUNCjEyMzQ1Ng0KMTIzNDU2Nzg5DQoxMjM0NS02Nzg5"'

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

Base64编码

2009/10/23 xsir317 <xsir317@163.com>

我在处理RegexBuddy里面那个正则库（见附件，是XML文件）的时候，发现里面的testdata字段被编码成了我完全看不懂的样子。。。

比如

1234

12345

123456

123456789

12345-6789

被编码成

MTIzNA0KMTIzNDUNCjEyMzQ1Ng0KMTIzNDU2Nzg5DQoxMjM0NS02Nzg5

谁知道这是怎么编码的。。。

2009-10-23

中华连珠网

五子棋百科

--
Azure.Wang

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

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

2009年10月23日星期五

[PerlChina] Re: 请问大家字符串的匹配输出问题～

谢谢谢谢！原来是因为my的范围。我的赋值语句是在if内，而打印是在if外，所以我把my去掉之后就好了，太感谢了~~~

On 10月23日, 下午6时04分, Michael Zeng <galaxy2...@gmail.com> wrote:
> 这不就是正则表达式的应用么 , 用 ( ）抓取不就完了
>
> 把你具体的字符串讲下
>
> ( my $sub_str ) = $total_str =~ /($pattern)/ ;
>
> 2009/10/23 Yingying <yyzhang3...@gmail.com>
>
> > 如果我还想再从这段源码中找到一个图像地址<img src="XXXXXXXX">，我应该怎么把这个图像地址提取出来呢？
>
> > 谢谢！！
>
> > On 10月23日, 上午12时37分, Yingying <yyzhang3...@gmail.com> wrote:
> > > 我在$_中存了一个相当长的字符串（一页网页的源代码），现在我想从中匹配一段代码，比如/<div\sclass="user-thumb-
> > > xlarge"><div>\s+<a\shref=.+\s+<img.*>\s*<\/a>/，有办法把这段匹配的网页源代码另外存在一个字符串里
> > > 吗？我到网上查了很多地方，都没有说的样子...
>
> --
> 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: 请问大家字符串的匹配输出问题～

我还是不太明白...为什么(my $sub_str)中会有个my呢，你写的存入的变量名是$sub_str吗？
如果我直接写($sub_str) = $total_str =~ /($pattern)/;
如果匹配了的话$sub_str中就存了个数字1，这个应该是匹配后rerturn的true吧？
为什么字符串并没有存进去呢？

[PerlChina] Re: 各位大神，谁知道这个是什么编码？应该怎么处理？

楼上果真牛人...这编码咋看出来的？

2009/10/23 xsir317 <xsir317@163.com>

Thanks TNT and azure wang

2009-10-23

xsir317

发件人： cnhack TNT

发送时间： 2009-10-23 17:40:37

收件人： perlchina

抄送：

主题： [PerlChina] Re: 各位大神，谁知道这个是什么编码？应该怎么处理？

perl -MMIME::Base64 -le 'print decode_base64 "MTIzNA0KMTIzNDUNCjEyMzQ1Ng0KMTIzNDU2Nzg5DQoxMjM0NS02Nzg5"'

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

Base64编码

2009/10/23 xsir317 <xsir317@163.com>

我在处理RegexBuddy里面那个正则库（见附件，是XML文件）的时候，发现里面的testdata字段被编码成了我完全看不懂的样子。。。

比如

1234

12345

123456

123456789

12345-6789

被编码成

MTIzNA0KMTIzNDUNCjEyMzQ1Ng0KMTIzNDU2Nzg5DQoxMjM0NS02Nzg5

谁知道这是怎么编码的。。。

2009-10-23

中华连珠网

五子棋百科

--
Azure.Wang

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

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

[PerlChina] Re: 请问大家字符串的匹配输出问题～

2009/10/23 Yingying <yyzhang3185@gmail.com>:
> 如果我还想再从这段源码中找到一个图像地址<img src="XXXXXXXX">，我应该怎么把这个图像地址提取出来呢？
>
\<img\ src\="(.*?)"\>
再把()中的提取到一个变量中就可以了，比如$1 $2啥的。
> 谢谢！！
>
> On 10月23日, 上午12时37分, Yingying <yyzhang3...@gmail.com> wrote:
>> 我在$_中存了一个相当长的字符串（一页网页的源代码），现在我想从中匹配一段代码，比如/<div\sclass="user-thumb-
>> xlarge"><div>\s+<a\shref=.+\s+<img.*>\s*<\/a>/，有办法把这段匹配的网页源代码另外存在一个字符串里
>> 吗？我到网上查了很多地方，都没有说的样子...
> >
>

[PerlChina] Re: 请问大家字符串的匹配输出问题～

这不就是正则表达式的应用么 , 用 ( ）抓取不就完了

把你具体的字符串讲下

( my $sub_str ) = $total_str =~ /($pattern)/ ;

2009/10/23 Yingying <yyzhang3185@gmail.com>

如果我还想再从这段源码中找到一个图像地址<img src="XXXXXXXX">，我应该怎么把这个图像地址提取出来呢？

谢谢！！

On 10月23日, 上午12时37分, Yingying <yyzhang3...@gmail.com> wrote:
> 我在$_中存了一个相当长的字符串（一页网页的源代码），现在我想从中匹配一段代码，比如/<div\sclass="user-thumb-
> xlarge"><div>\s+<a\shref=.+\s+<img.*>\s*<\/a>/，有办法把这段匹配的网页源代码另外存在一个字符串里
> 吗？我到网上查了很多地方，都没有说的样子... --~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

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

发帖者 lazayworm 时间： 18:04 没有评论:

[PerlChina] Re: perl可以移植到linux开发板上吗？

2009/10/21 钟声 <gh00920307@gmail.com>:
>
>
> 然后用perl进行嵌入式开发
> 不知道行不行。
应该可以吧，正准备买个ARM9的板子来玩玩呢
>
> >
>

[PerlChina] Re: 再次求助一事，上海电信最近DNS不稳定

210.22.84.3

每到一个地方,我会背下至少一个DNS :-)

2009/10/23 xsir317 <xsir317@163.com>

如题，俺家上网现在很痛苦，经常打不开网页。。。请问有没有什么比较靠谱的DNS服务器？

2009-10-23

xsir317

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

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

[PerlChina] Re: perl可以移植到linux开发板上吗？

改装的

是贝尔金的原装的貌似8m还是16m
常州有个恩山那伙人职业改装这个
给加到64m了应该是他们从旧机器上拆下来的弄上去的

Anthony WU 写道：
> 請教一下你是自己改成64MB的還是原生是64MB的(是加入SD卡接口嗎？)？原生是
> 64MB的路由好像很少吧？
>
> -------- Original Message --------
> Subject: [PerlChina] Re: perl可以移植到linux开发板上吗？
> From: jyf1987 <jyf1987@gmail.com>
> To: PerlChina Mongers 讨论组 <perlchina@googlegroups.com>
> Date: 22/10/2009 13:38
> > 64m是超级配置了
> > 我的路由是 openwrt的改装的64m
> > 有这个环境还装了lua python还有ngircd 内存还有多余呢
> >
> > 钟声写道：
> >
> >> 谢谢
> >> 我找找。。要在64M的开发板上装个perl还真有点前牵强
> >>
> >> 2009/10/21 PIG <addmyin@gmail.com>
> >>
> >>
> >>> 貌似可以用miniperl
> >>>
> >>> 2009/10/21 Allen <allen_craft@hotmail.com>
> >>>
> >>>
> >>>> Perl是跨平台的啊，Linux默认就安装了perl的分发。
> >>>>
> >>>> On 10月21日, 下午12时15分, 钟声 <gh00920...@gmail.com> wrote:
> >>>>
> >>>>> 然后用perl进行嵌入式开发
> >>>>> 不知道行不行。
> >>>>>
> >>>>
> >>> --
> >>> 大明童鞋
> >>> 特价blog一个http://daminger.net
> >>> 我的翻墙代理http://proxy.daminger.net
> >>> 记得帮我点广告- -.
> >>>
> >>>
> >>>
> >>>
> >>>
> > >
> >
>
> --
> Best Regards,
> Anthony WU
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 再次求助一事，上海电信最近DNS不稳定

opendns？自己搜一下，他们提供两组地址
----------------------------------
msmouse@ir.hit.edu.cn
msmouse@gmail.com

2009/10/23 xsir317 <xsir317@163.com>

如题，俺家上网现在很痛苦，经常打不开网页。。。请问有没有什么比较靠谱的DNS服务器？

2009-10-23

xsir317

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

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

[PerlChina] 再次求助一事，上海电信最近DNS不稳定

如题，俺家上网现在很痛苦，经常打不开网页。。。请问有没有什么比较靠谱的DNS服务器？

2009-10-23

xsir317

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

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

[PerlChina] Re: 各位大神，谁知道这个是什么编码？应该怎么处理？

Thanks TNT and azure wang

2009-10-23

xsir317

发件人： cnhack TNT

发送时间： 2009-10-23 17:40:37

收件人： perlchina

抄送：

主题： [PerlChina] Re: 各位大神，谁知道这个是什么编码？应该怎么处理？

perl -MMIME::Base64 -le 'print decode_base64 "MTIzNA0KMTIzNDUNCjEyMzQ1Ng0KMTIzNDU2Nzg5DQoxMjM0NS02Nzg5"'

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

Base64编码

2009/10/23 xsir317 <xsir317@163.com>

我在处理RegexBuddy里面那个正则库（见附件，是XML文件）的时候，发现里面的testdata字段被编码成了我完全看不懂的样子。。。

比如

1234

12345

123456

123456789

12345-6789

被编码成

MTIzNA0KMTIzNDUNCjEyMzQ1Ng0KMTIzNDU2Nzg5DQoxMjM0NS02Nzg5

谁知道这是怎么编码的。。。

2009-10-23

中华连珠网

五子棋百科

--
Azure.Wang

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

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

[PerlChina] Re: 各位大神，谁知道这个是什么编码？应该怎么处理？

perl -MMIME::Base64 -le 'print decode_base64 "MTIzNA0KMTIzNDUNCjEyMzQ1Ng0KMTIzNDU2Nzg5DQoxMjM0NS02Nzg5"'

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

Base64编码

2009/10/23 xsir317 <xsir317@163.com>

我在处理RegexBuddy里面那个正则库（见附件，是XML文件）的时候，发现里面的testdata字段被编码成了我完全看不懂的样子。。。

比如

1234

12345

123456

123456789

12345-6789

被编码成

MTIzNA0KMTIzNDUNCjEyMzQ1Ng0KMTIzNDU2Nzg5DQoxMjM0NS02Nzg5

谁知道这是怎么编码的。。。

2009-10-23

中华连珠网

五子棋百科

--
Azure.Wang

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

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

[PerlChina] Re: 各位大神，谁知道这个是什么编码？应该怎么处理？

Base64编码

2009/10/23 xsir317 <xsir317@163.com>

我在处理RegexBuddy里面那个正则库（见附件，是XML文件）的时候，发现里面的testdata字段被编码成了我完全看不懂的样子。。。

比如

1234

12345

123456

123456789

12345-6789

被编码成

MTIzNA0KMTIzNDUNCjEyMzQ1Ng0KMTIzNDU2Nzg5DQoxMjM0NS02Nzg5

谁知道这是怎么编码的。。。

2009-10-23

中华连珠网

五子棋百科

--
Azure.Wang

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

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

[PerlChina] Re: 请问大家字符串的匹配输出问题～

如果我还想再从这段源码中找到一个图像地址<img src="XXXXXXXX">，我应该怎么把这个图像地址提取出来呢？

谢谢！！

On 10月23日, 上午12时37分, Yingying <yyzhang3...@gmail.com> wrote:
> 我在$_中存了一个相当长的字符串（一页网页的源代码），现在我想从中匹配一段代码，比如/<div\sclass="user-thumb-
> xlarge"><div>\s+<a\shref=.+\s+<img.*>\s*<\/a>/，有办法把这段匹配的网页源代码另外存在一个字符串里
> 吗？我到网上查了很多地方，都没有说的样子...
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] 请问大家字符串的匹配输出问题～

我在$_中存了一个相当长的字符串（一页网页的源代码），现在我想从中匹配一段代码，比如/<div\sclass="user-thumb-
xlarge"><div>\s+<a\shref=.+\s+<img.*>\s*<\/a>/，有办法把这段匹配的网页源代码另外存在一个字符串里
吗？我到网上查了很多地方，都没有说的样子...
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] 各位大神，谁知道这个是什么编码？应该怎么处理？

我在处理RegexBuddy里面那个正则库（见附件，是XML文件）的时候，发现里面的testdata字段被编码成了我完全看不懂的样子。。。

比如

1234

12345

123456

123456789

12345-6789

被编码成

MTIzNA0KMTIzNDUNCjEyMzQ1Ng0KMTIzNDU2Nzg5DQoxMjM0NS02Nzg5

谁知道这是怎么编码的。。。

2009-10-23

中华连珠网

五子棋百科

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

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

2009年10月22日星期四

Re: [PerlChina] split function and zero-width seperator

Just remove the "grep !/^\s*$/," statement will give you what you want. :-)

2009/10/23 tiger peng <tigerpeng2001@yahoo.com>

Here is what I want:

:-) perl -MData::Dumper -MRegexp::Common -le '$a="15678.91 ml; .121 0.12312 >
$VAR1 = [
          '15678.91',
          ' ml; ',
          '.121',
          ' ',
          '0.12312',
          ' ',
          '12313.',
          ' r',
          '45.12',
          ' '
        ];

From: tiger peng <tigerpeng2001@yahoo.com>

To: china-pm@pm.org

Sent: Thu, October 22, 2009 9:59:15 PM

Subject: Re: [PerlChina] split function and zero-width seperator

Thank. I thought the seperator would lost. I just read perldoc -f split, which says, "If the PATTERN contains parentheses, additional list elements are created from each matching substring in the delimiter."

From: cnhack TNT <cnhacktnt@gmail.com>
To: china-pm@pm.org
Sent: Thu, October 22, 2009 7:57:37 PM
Subject: Re: [PerlChina] split function and zero-width seperator

perl -MData::Dumper -le '$a="15678.91 ml; r45.12 "; @a=grep !/^\s*$/, split /([\d\.]+)/, $a; print Dumper \@a'

the regex pattern for split don't need to be that complicated. :-)

2009/10/23 tiger peng <tigerpeng2001@yahoo.com>

Hello everyone,

I am trying to isolate numbers from string, manipulate the numbers then put them back to original positions in the string. When I try to use zero-width separator, the split function looks weird, it generated much more elements than I expect.

Are there any mistakes? Why the split behaviors like this? (The regexp looks right when I used it s///)

Could anyone help?

Thanks,

Tiger

#build the seperator

:-) perl -le '$a = "15678.91 ml; r45.12 ";

              $a =~ s/((?!(\d|\.))(?<=(\d|\.)))|((?=(\d|\.))(?<!(\d|\.)))/|/g;

              print $a'
|15678.91| ml; r|45.12|

#use the seperator in split

:-) perl -MData::Dumper -le '$a = "15678.91 ml; r45.12 ";

                             @a = split /((?!(\d|\.))(?<=(\d|\.)))|((?=(\d|\.))(?<!(\d|\.)))/, $a;

                             print Dumper(@a)'
$VAR1 = '15678.91';
$VAR2 = '';
$VAR3 = undef;
$VAR4 = '1';
$VAR5 = undef;
$VAR6 = undef;
$VAR7 = undef;
$VAR8 = ' ml; r';
$VAR9 = undef;
$VAR10 = undef;
$VAR11 = undef;
$VAR12 = '';
$VAR13 = '4';
$VAR14 = undef;
$VAR15 = '45.12';
$VAR16 = '';
$VAR17 = undef;
$VAR18 = '2';
$VAR19 = undef;
$VAR20 = undef;
$VAR21 = undef;
$VAR22 = ' ';

_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm

_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm

[PerlChina] Re: Perl包安装复杂问题！求助！！

系统我试过重装了，还是有这个问题。看来除非换一个linux的分发版。
重装perl怎么做? 我看了下有很多包含perl标题的rpm包的。而且我担心这些包有彼此的倚赖关系。

On 10月22日, 下午6时50分, 钟声 <gh00920...@gmail.com> wrote:
> 这种事真无语。前断时间装Glade研究Gtk2的时候也是来回安装pm，但没像你那样遇见死循环。
>
> 建议重装perl...再不行就重装linux。。哈哈，不信弄不好
>
> 2009/10/22 空格 <ribozyme2...@gmail.com>
>
> > 要装的是一个叫msatfinder的软件，说明上说需要有Bioperl包和config::simple包。都是cpan上现成的我以为会很好
> > 弄。
> > 不料：
> > 装bioperl时，make出错，说需要Module::Build包；
> > 装Module::Build时，出错，说Pod::Simple包没有能在预定义路径的@INC数组中找到；
> > 装Pod::Simple时，出错，说Pod::Man包没有能在预定义路径的@INC数组中找到；
> > 装Pod::Man包时，出错，说需要的Pod::Simple包没有！！
> > 于是我彻底无语...
>
> > 给cpan上Pod::Man的维护人员去信。回复说貌似我需要手工删除并重安装Pod::Man。我不会手工删除一个cpan包，就上网查，看到最多
> > 的一个说法是，"因为blablabla，所以cpan包一般不提供手工删除方式"...
> > 再次无语...
>
> > 我把Man.pm文件在Pod目录里找到并移除，结果就是在make时报错说没有在@INC中找到Man.pm文件的路径。
>
> > 我怀疑是我用的linux分发版丢掉了某些perl的安装文件造成这样的问题。请大家帮忙。折腾了多半个月了老板安排的活还一点没做。光倒腾这几个pm
> > 包了。。。
>
> > //bow
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

Re: [PerlChina] split function and zero-width seperator

Here is what I want:
 
:-) perl -MData::Dumper -MRegexp::Common -le '$a="15678.91 ml; .121 0.12312  >
$VAR1 = [
          '15678.91',
          ' ml; ',
          '.121',
          ' ',
          '0.12312',
          '  ',
          '12313.',
          ' r',
          '45.12',
          ' '
        ];



  From: tiger peng <tigerpeng2001@yahoo.com>
To: china-pm@pm.org
Sent: Thu, October 22, 2009 9:59:15 PM
Subject: Re: [PerlChina] split function and zero-width seperator

Thank. I thought the seperator would lost. I just read perldoc -f split, which says, "If the PATTERN contains parentheses, additional list elements are created from each matching substring in the delimiter."

  From: cnhack TNT <cnhacktnt@gmail.com>
To: china-pm@pm.org
Sent: Thu, October 22, 2009 7:57:37 PM
Subject: Re: [PerlChina] split function and zero-width seperator

perl -MData::Dumper -le '$a="15678.91 ml; r45.12 "; @a=grep !/^\s*$/, split /([\d\.]+)/, $a; print Dumper  \@a' 

the regex pattern for split don't need to be that complicated. :-)



2009/10/23 tiger peng <tigerpeng2001@yahoo.com>
 Hello everyone,
 
I am trying to isolate numbers from string, manipulate the numbers then put them back to original positions in the string. When I try to use zero-width separator, the split function looks weird, it generated much more elements than I expect.
 
Are there any mistakes? Why the split behaviors like this? (The regexp looks right when I used it s///)
 
Could anyone help?
 
Thanks,
Tiger
 
#build the seperator
:-) perl -le '$a = "15678.91 ml; r45.12 ";
              $a =~ s/((?!(\d|\.))(?<=(\d|\.)))|((?=(\d|\.))(?<!(\d|\.)))/|/g;
              print $a'
|15678.91| ml; r|45.12|
 
#use the seperator in split
:-) perl -MData::Dumper -le '$a = "15678.91 ml; r45.12 ";
                             @a = split /((?!(\d|\.))(?<=(\d|\.)))|((?=(\d|\.))(?<!(\d|\.)))/, $a;
                             print Dumper(@a)'
$VAR1 = '15678.91';
$VAR2 = '';
$VAR3 = undef;
$VAR4 = '1';
$VAR5 = undef;
$VAR6 = undef;
$VAR7 = undef;
$VAR8 = ' ml; r';
$VAR9 = undef;
$VAR10 = undef;
$VAR11 = undef;
$VAR12 = '';
$VAR13 = '4';
$VAR14 = undef;
$VAR15 = '45.12';
$VAR16 = '';
$VAR17 = undef;
$VAR18 = '2';
$VAR19 = undef;
$VAR20 = undef;
$VAR21 = undef;
$VAR22 = ' ';

_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm

Re: [PerlChina] split function and zero-width seperator

Thank. I thought the seperator would lost. I just read perldoc -f split, which says, "If the PATTERN contains parentheses, additional list elements are created from each matching substring in the delimiter."

  From: cnhack TNT <cnhacktnt@gmail.com>
To: china-pm@pm.org
Sent: Thu, October 22, 2009 7:57:37 PM
Subject: Re: [PerlChina] split function and zero-width seperator

perl -MData::Dumper -le '$a="15678.91 ml; r45.12 "; @a=grep !/^\s*$/, split /([\d\.]+)/, $a; print Dumper  \@a' 

the regex pattern for split don't need to be that complicated. :-)

2009/10/23 tiger peng <tigerpeng2001@yahoo.com>
 Hello everyone,

I am trying to isolate numbers from string, manipulate the numbers then put them back to original positions in the string. When I try to use zero-width separator, the split function looks weird, it generated much more elements than I expect.

Are there any mistakes? Why the split behaviors like this? (The regexp looks right when I used it s///)

Could anyone help?

Thanks,
Tiger

#build the seperator
:-) perl -le '$a = "15678.91 ml; r45.12 ";
              $a =~ s/((?!(\d|\.))(?<=(\d|\.)))|((?=(\d|\.))(?<!(\d|\.)))/|/g;
              print $a'
|15678.91| ml; r|45.12|

#use the seperator in split
:-) perl -MData::Dumper -le '$a = "15678.91 ml; r45.12 ";
                             @a = split /((?!(\d|\.))(?<=(\d|\.)))|((?=(\d|\.))(?<!(\d|\.)))/, $a;
                             print Dumper(@a)'
$VAR1 = '15678.91';
$VAR2 = '';
$VAR3 = undef;
$VAR4 = '1';
$VAR5 = undef;
$VAR6 = undef;
$VAR7 = undef;
$VAR8 = ' ml; r';
$VAR9 = undef;
$VAR10 = undef;
$VAR11 = undef;
$VAR12 = '';
$VAR13 = '4';
$VAR14 = undef;
$VAR15 = '45.12';
$VAR16 = '';
$VAR17 = undef;
$VAR18 = '2';
$VAR19 = undef;
$VAR20 = undef;
$VAR21 = undef;
$VAR22 = ' ';

_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm

Re: [PerlChina] split function and zero-width seperator

perl -MData::Dumper -le '$a="15678.91 ml; r45.12 "; @a=grep !/^\s*$/, split /([\d\.]+)/, $a; print Dumper \@a'

the regex pattern for split don't need to be that complicated. :-)

2009/10/23 tiger peng <tigerpeng2001@yahoo.com>

Hello everyone,

I am trying to isolate numbers from string, manipulate the numbers then put them back to original positions in the string. When I try to use zero-width separator, the split function looks weird, it generated much more elements than I expect.

Are there any mistakes? Why the split behaviors like this? (The regexp looks right when I used it s///)

Could anyone help?

Thanks,

Tiger

#build the seperator

:-) perl -le '$a = "15678.91 ml; r45.12 ";

              $a =~ s/((?!(\d|\.))(?<=(\d|\.)))|((?=(\d|\.))(?<!(\d|\.)))/|/g;

              print $a'
|15678.91| ml; r|45.12|

#use the seperator in split

:-) perl -MData::Dumper -le '$a = "15678.91 ml; r45.12 ";

                             @a = split /((?!(\d|\.))(?<=(\d|\.)))|((?=(\d|\.))(?<!(\d|\.)))/, $a;

                             print Dumper(@a)'
$VAR1 = '15678.91';
$VAR2 = '';
$VAR3 = undef;
$VAR4 = '1';
$VAR5 = undef;
$VAR6 = undef;
$VAR7 = undef;
$VAR8 = ' ml; r';
$VAR9 = undef;
$VAR10 = undef;
$VAR11 = undef;
$VAR12 = '';
$VAR13 = '4';
$VAR14 = undef;
$VAR15 = '45.12';
$VAR16 = '';
$VAR17 = undef;
$VAR18 = '2';
$VAR19 = undef;
$VAR20 = undef;
$VAR21 = undef;
$VAR22 = ' ';

_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm

[PerlChina] split function and zero-width seperator

Hello everyone,
 
I am trying to isolate numbers from string, manipulate the numbers then put them back to original positions in the string. When I try to use zero-width separator, the split function looks weird, it generated much more elements than I expect.
 
Are there any mistakes? Why the split behaviors like this? (The regexp looks right when I used it s///)
 
Could anyone help?
 
Thanks,
Tiger
 
#build the seperator
:-) perl -le '$a = "15678.91 ml; r45.12 ";
              $a =~ s/((?!(\d|\.))(?<=(\d|\.)))|((?=(\d|\.))(?<!(\d|\.)))/|/g;
              print $a'
|15678.91| ml; r|45.12|
 
#use the seperator in split
:-) perl -MData::Dumper -le '$a = "15678.91 ml; r45.12 ";
                             @a = split /((?!(\d|\.))(?<=(\d|\.)))|((?=(\d|\.))(?<!(\d|\.)))/, $a;
                             print Dumper(@a)'
$VAR1 = '15678.91';
$VAR2 = '';
$VAR3 = undef;
$VAR4 = '1';
$VAR5 = undef;
$VAR6 = undef;
$VAR7 = undef;
$VAR8 = ' ml; r';
$VAR9 = undef;
$VAR10 = undef;
$VAR11 = undef;
$VAR12 = '';
$VAR13 = '4';
$VAR14 = undef;
$VAR15 = '45.12';
$VAR16 = '';
$VAR17 = undef;
$VAR18 = '2';
$VAR19 = undef;
$VAR20 = undef;
$VAR21 = undef;
$VAR22 = ' ';

[PerlChina] Re: perl可以移植到linux开发板上吗？

完全可以

2009/10/21 钟声 <gh00920307@gmail.com>

然后用perl进行嵌入式开发
不知道行不行。

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

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

[PerlChina] Re: perl可以移植到linux开发板上吗？

1)    You should be reading me (README) in perl-5.x.y/Cross

2)    Make sure you are in the Cross directory.

3)    Edit the file 'config' to contain your target platform information.

4)    make patch    ## This will patch the existing source-tree.
5)    make perl    ## Will make perl

这是Cross目录里README里面的内容，安照上面步骤老是出错，
来人指点下呀

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

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

[PerlChina] Re: perl可以移植到linux开发板上吗？

請教一下你是自己改成64MB的還是原生是64MB的(是加入SD卡接口嗎？)？原生是64MB的路由好像很少吧？

-------- Original Message --------
Subject: [PerlChina] Re: perl可以移植到linux开发板上吗？
From: jyf1987 <jyf1987@gmail.com>
To: PerlChina Mongers 讨论组 <perlchina@googlegroups.com>
Date: 22/10/2009 13:38

64m是超级配置了 我的路由是 openwrt的 改装的64m 有这个环境 还装了lua python还有ngircd 内存还有多余呢  钟声 写道：

谢谢 我找找。。要在64M的开发板上装个perl还真有点前牵强  2009/10/21 PIG <addmyin@gmail.com>

貌似可以用miniperl  2009/10/21 Allen <allen_craft@hotmail.com>

Perl是跨平台的啊，Linux默认就安装了perl的分发。  On 10月21日, 下午12时15分, 钟声 <gh00920...@gmail.com> wrote:

然后用perl进行嵌入式开发 不知道行不行。

 -- 大明童鞋 特价blog一个http://daminger.net 我的翻墙代理http://proxy.daminger.net 记得帮我点广告- -.

--  Best Regards, 	Anthony WU

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

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

[PerlChina] Re: perl可以移植到linux开发板上吗？

够厉害。。
不知道为什么我的交叉编译总出错

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

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

[PerlChina] Re: Perl包安装复杂问题！求助！！

这种事真无语。前断时间装Glade研究Gtk2的时候也是来回安装pm，但没像你那样遇见死循环。

建议重装perl...再不行就重装linux。。哈哈，不信弄不好

2009/10/22 空格 <ribozyme2004@gmail.com>

要装的是一个叫msatfinder的软件，说明上说需要有Bioperl包和config::simple包。都是cpan上现成的我以为会很好
弄。
不料：
装bioperl时，make出错，说需要Module::Build包；
装Module::Build时，出错，说Pod::Simple包没有能在预定义路径的@INC数组中找到；
装Pod::Simple时，出错，说Pod::Man包没有能在预定义路径的@INC数组中找到；
装Pod::Man包时，出错，说需要的Pod::Simple包没有！！
于是我彻底无语...

给cpan上Pod::Man的维护人员去信。回复说貌似我需要手工删除并重安装Pod::Man。我不会手工删除一个cpan包，就上网查，看到最多
的一个说法是，“因为blablabla，所以cpan包一般不提供手工删除方式”...
再次无语...

我把Man.pm文件在Pod目录里找到并移除，结果就是在make时报错说没有在@INC中找到Man.pm文件的路径。

我怀疑是我用的linux分发版丢掉了某些perl的安装文件造成这样的问题。请大家帮忙。折腾了多半个月了老板安排的活还一点没做。光倒腾这几个pm
包了。。。

//bow

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

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

[PerlChina] Perl包安装复杂问题！求助！！

要装的是一个叫msatfinder的软件，说明上说需要有Bioperl包和config::simple包。都是cpan上现成的我以为会很好
弄。
不料：
装bioperl时，make出错，说需要Module::Build包；
装Module::Build时，出错，说Pod::Simple包没有能在预定义路径的@INC数组中找到；
装Pod::Simple时，出错，说Pod::Man包没有能在预定义路径的@INC数组中找到；
装Pod::Man包时，出错，说需要的Pod::Simple包没有！！
于是我彻底无语...

给cpan上Pod::Man的维护人员去信。回复说貌似我需要手工删除并重安装Pod::Man。我不会手工删除一个cpan包，就上网查，看到最多
的一个说法是，"因为blablabla，所以cpan包一般不提供手工删除方式"...
再次无语...

我把Man.pm文件在Pod目录里找到并移除，结果就是在make时报错说没有在@INC中找到Man.pm文件的路径。

我怀疑是我用的linux分发版丢掉了某些perl的安装文件造成这样的问题。请大家帮忙。折腾了多半个月了老板安排的活还一点没做。光倒腾这几个pm
包了。。。

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

2009年10月21日星期三

[PerlChina] Re: perl可以移植到linux开发板上吗？

64m是超级配置了
我的路由是 openwrt的改装的64m
有这个环境还装了lua python还有ngircd 内存还有多余呢

钟声写道：
> 谢谢
> 我找找。。要在64M的开发板上装个perl还真有点前牵强
>
> 2009/10/21 PIG <addmyin@gmail.com>
>
> > 貌似可以用miniperl
> >
> > 2009/10/21 Allen <allen_craft@hotmail.com>
> >
> >> Perl是跨平台的啊，Linux默认就安装了perl的分发。
> >>
> >> On 10月21日, 下午12时15分, 钟声 <gh00920...@gmail.com> wrote:
> >> > 然后用perl进行嵌入式开发
> >> > 不知道行不行。
> >>
> >>
> >
> >
> > --
> > 大明童鞋
> > 特价blog一个http://daminger.net
> > 我的翻墙代理http://proxy.daminger.net
> > 记得帮我点广告- -.
> >
> >
> >
> >
> > >
> >
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: perl可以移植到linux开发板上吗？

一般的perl ,如activeperl , perl in linux 运行要占多少内存'？

安装是10M 左右

2009/10/21 Anthony WU <anthonywuy2k@gmail.com>

64M足�的，之前我有��目使用 Linux + busybox + lighttpd + perl 使用了30MB多，�未把man�除及未使用strip

-------- Original Message --------
Subject: [PerlChina] Re: perl可以移植到linux开发板上吗？
From: 钟声 <gh00920307@gmail.com>
To: perlchina@googlegroups.com
Date: 21/10/2009 19:05

谢谢
我找找。。要在64M的开发板上装个perl还真有点前牵强

2009/10/21 PIG <addmyin@gmail.com>

貌似可以用miniperl

2009/10/21 Allen <allen_craft@hotmail.com>

Perl 是跨平台的啊，Linux默认就安装了perl的分发。

On 10月21日, 下午12时15分, 钟声 <gh00920...@gmail.com> wrote:
> 然后用perl进行嵌入式开发
> 不知道行不行。

--
大明童鞋
特价blog一个http://daminger.net
我的翻墙代理http://proxy.daminger.net
记得帮我点广告- -.
--  Best Regards, 	Anthony WU
--
Yours Sincerely
Zeng Hong

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

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

发帖者 lazayworm 时间： 06:54 没有评论:

[PerlChina] Re: 新人关于Perl的Web开发学习,前辈支招哈~

http://perlchina.googlegroups.com/web/Embedding_Perl_In_Html_With_Mason.chm.zip?hl=zh-CN&gda=pw6YI1sAAABgOvF_Cq5NMGCipKX_CJ-S_xxL6mD7zMnqOdZqQ2gbngXCGZZXc7TdOosvdHPYbuj-om9szd-KnGD3B7p0Ef0KVzpforOort555_RT_qi45QZF2vdCvKU-TDZpFtcP-AU

----- Original Message -----
From: "宇捷" <hfahe@163.com>
To: <perlchina@googlegroups.com>
Sent: Wednesday, October 21, 2009 8:50 PM
Subject: 答复: [PerlChina] 新人关于Perl的Web开发学习,前辈支招哈~

> www.masonbook.com
>
> -----邮件原件-----
> 发件人:
> grbounce-_mwj1quaaadplfc8fq-7oyyqfcvs3wxt=hfahe=163.com@googlegroups.com
> [mailto:grbounce-_mwj1quaaadplfc8fq-7oyyqfcvs3wxt=hfahe=163.com@googlegroups
> .com] 代表 Dave
> 发送时间: 2009年10月21日 20:37
> 收件人: PerlChina Mongers 讨论组
> 主题: [PerlChina] 新人关于Perl的Web开发学习,前辈支招哈~
>
> 我想学习Perl的Web开发,听说Mason挺不错的.想向各位咨询下学习方法或者书籍.
> 或者关于Perl别的Web方面的开发都可以.
> !!!!!---总之就是想学点东西而不是一味的学习语法~~呵呵---!!!!!
>
> 谢谢大家!
>
>
> >
>

答复: [PerlChina] 新人关于Perl的Web开发学习,前辈支招哈~

www.masonbook.com

-----邮件原件-----
发件人:
grbounce-_mwj1quaaadplfc8fq-7oyyqfcvs3wxt=hfahe=163.com@googlegroups.com
[mailto:grbounce-_mwj1quaaadplfc8fq-7oyyqfcvs3wxt=hfahe=163.com@googlegroups
.com] 代表 Dave
发送时间: 2009年10月21日 20:37
收件人: PerlChina Mongers 讨论组
主题: [PerlChina] 新人关于Perl的Web开发学习,前辈支招哈~

我想学习Perl的Web开发,听说Mason挺不错的.想向各位咨询下学习方法或者书籍.
或者关于Perl别的Web方面的开发都可以.
!!!!!---总之就是想学点东西而不是一味的学习语法~~呵呵---!!!!!

谢谢大家!

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

[PerlChina] 新人关于Perl的Web开发学习,前辈支招哈~

我想学习Perl的Web开发,听说Mason挺不错的.想向各位咨询下学习方法或者书籍.
或者关于Perl别的Web方面的开发都可以.
!!!!!---总之就是想学点东西而不是一味的学习语法~~呵呵---!!!!!

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

[PerlChina] Re: perl可以移植到linux开发板上吗？

64M足夠的，之前我有個項目使用 Linux + busybox + lighttpd + perl 使用了30MB多，還未把man刪除及未使用strip

-------- Original Message --------
Subject: [PerlChina] Re: perl可以移植到linux开发板上吗？
From: 钟声 <gh00920307@gmail.com>
To: perlchina@googlegroups.com
Date: 21/10/2009 19:05

谢谢
我找找。。要在64M的开发板上装个perl还真有点前牵强

2009/10/21 PIG <addmyin@gmail.com>

貌似可以用miniperl

2009/10/21 Allen <allen_craft@hotmail.com>

Perl 是跨平台的啊，Linux默认就安装了perl的分发。

On 10月21日, 下午12时15分, 钟声 <gh00920...@gmail.com> wrote:
> 然后用perl进行嵌入式开发
> 不知道行不行。

--
大明童鞋
特价blog一个http://daminger.net
我的翻墙代理http://proxy.daminger.net
记得帮我点广告- -.

--  Best Regards, 	Anthony WU

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

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

[PerlChina] Re: perl可以移植到linux开发板上吗？

谢谢
我找找。。要在64M的开发板上装个perl还真有点前牵强

2009/10/21 PIG <addmyin@gmail.com>

貌似可以用miniperl

2009/10/21 Allen <allen_craft@hotmail.com>

Perl是跨平台的啊，Linux默认就安装了perl的分发。

On 10月21日, 下午12时15分, 钟声 <gh00920...@gmail.com> wrote:
> 然后用perl进行嵌入式开发
> 不知道行不行。

--
大明童鞋
特价blog一个http://daminger.net
我的翻墙代理http://proxy.daminger.net
记得帮我点广告- -.

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

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

订阅：博文 (Atom)

2009年10月24日星期六

2009年10月23日星期五

2009年10月22日星期四

2009年10月21日星期三

订阅

博客归档