Perl China Blog Spot: 2012-10-28

2012年11月3日星期六

[PerlChina] 北京第二次编程聚会

http://dev.hukaa.com/forum.php?mod=viewthread&tid=2436&fromuid=3

时间：11月7日周三晚上19：00-21：00
地点：多乐之日咖啡馆（国贸店）
地址：朝阳区光华路甲14号诺安大厦1楼(近诺安基金大厦)
电话： (010)51309969

这次台湾友人 Hsin-chan Chien 会过来一起参加。

--
---------------------------
Achilles Xu

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

Re: [PerlChina] 北京编程聚会，第二次时间：11月7日周三晚上19：00-21：00 地点：多乐之日咖啡馆（国贸店）地址：朝阳区光华路甲14号诺安大厦1楼(近诺安基金大厦) 电话： (010)51309969

撒花，一定到。

在 2012年11月4日下午1:04，Achilles Xu <formalin14@gmail.com>写道：

这次台湾友人 Hsin-chan Chien 会过来一起参加。

--
---------------------------
Achilles Xu

--
您收到此邮件是因为您订阅了 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] 北京编程聚会，第二次时间：11月7日周三晚上19：00-21：00 地点：多乐之日咖啡馆（国贸店）地址：朝阳区光华路甲14号诺安大厦1楼(近诺安基金大厦) 电话： (010)51309969

这次台湾友人 Hsin-chan Chien 会过来一起参加。

--
---------------------------
Achilles Xu

2012年11月1日星期四

Re: [PerlChina] =()= 的使用

给力

在 2012年11月1日下午8:45，Jacky Xu <x2x4com@gmail.com>写道：

深刻，给力。

发自我的 iPhone

在 2012-11-1，20:38，"李鎮(Zhen Li)" <li.zhen@dena.jp> 写道：
Hi,

做了个小实验, 明白了一些事情，拿来分享。
Q1：
> 书中说，split 函数返回结果有多少个元素可以用下面的方法
> my $count = ( ) = split /:/, $line;
> 但是我测试，发现$count的值只是为1

my $line = "this:is:test:line:for:split.";

my $cnt = () = (split /:/, $line);
返回值为1，

这里的奥妙在split这里，
split这个函数，需要别人告诉它，分割数是多少（就是它要返回多少个数值）。
但是()代表空list，
() = (split /:/, $line)这种情况下，split不清楚分割数是多少。

我猜测它在这里返回的是个布尔值的结果。

接着，
my $cnt = () = (split /:/, $line, -1);
返回值为6，
这里添加的-1, 明确告诉split, 最大分割数是无限，
所以这时侯split把数组返回来了。

Q2,

>书上还有一个例子，如书所说返回。
> my $elements = ( ) = localtime;
这里结果是9，
localtime返回日期内容的数组，什么年月日的都在里面。
看一下它的说明就知道了。

localtime返回的数组，首先被()这个空列表捕获，
因为$elements = ( ) 这个表达式，代表sclar context，

这样，数组的数量，就赋给了$elements。

以上，
希望我得解释容易理解，能对大家有所帮助。
呵呵。
2012/10/27 Robin Lee <robinlee.sysu@gmail.com>

没用过这种表达方式

my $count = split /:/, $line;
不就可以了吗？

如果要强制使用 List Context，应该推荐这样写：
my $elements = @{[localtime]};

2012/10/26 x2x4 <x2x4com@gmail.com>

Hi 各位
最近在看Perl高效编程，其中的=()=让我疑惑

书中说，split 函数返回结果有多少个元素可以用下面的方法
my $count = ( ) = split /:/, $line;

但是我测试，发现$count的值只是为1

my $line = "this:is:test:line:for:split.";
my $count = ( ) = split /:/, $line;
print "split = $count\n";

如果换成
my $count = my @test = split /:/, $line;
返回为6

书上还有一个例子，如书所说返回。
my $elements = ( ) = localtime;

疑惑，求解。

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

--
+++++++_++++++++
李　鎮
株式会社ディー・エヌ・エー
ソーシャルプラットフォーム事業本部 システム部
   
〒150-8510
    東京都渋谷区渋谷2丁目21番1号渋谷ヒカリエ
Shibuya Hikarie 2-21-1, Shibuya, Shibuya-ku, Tokyo 150-8510
    
++++++ *-* +++++++
--
您收到此邮件是因为您订阅了 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] =()= 的使用

深刻，给力。

发自我的 iPhone

在 2012-11-1，20:38，"李鎮(Zhen Li)" <li.zhen@dena.jp> 写道：

Hi,

做了个小实验, 明白了一些事情，拿来分享。
Q1：
> 书中说，split 函数返回结果有多少个元素可以用下面的方法
> my $count = ( ) = split /:/, $line;
> 但是我测试，发现$count的值只是为1

my $line = "this:is:test:line:for:split.";

my $cnt = () = (split /:/, $line);
返回值为1，

这里的奥妙在split这里，
split这个函数，需要别人告诉它，分割数是多少（就是它要返回多少个数值）。
但是()代表空list，
() = (split /:/, $line)这种情况下，split不清楚分割数是多少。

我猜测它在这里返回的是个布尔值的结果。

接着，
my $cnt = () = (split /:/, $line, -1);
返回值为6，
这里添加的-1, 明确告诉split, 最大分割数是无限，
所以这时侯split把数组返回来了。

Q2,

>书上还有一个例子，如书所说返回。
> my $elements = ( ) = localtime;
这里结果是9，
localtime返回日期内容的数组，什么年月日的都在里面。
看一下它的说明就知道了。

localtime返回的数组，首先被()这个空列表捕获，
因为$elements = ( ) 这个表达式，代表sclar context，

这样，数组的数量，就赋给了$elements。

以上，
希望我得解释容易理解，能对大家有所帮助。
呵呵。
2012/10/27 Robin Lee <robinlee.sysu@gmail.com>

没用过这种表达方式

my $count = split /:/, $line;
不就可以了吗？

如果要强制使用 List Context，应该推荐这样写：
my $elements = @{[localtime]};

2012/10/26 x2x4 <x2x4com@gmail.com>

Hi 各位
最近在看Perl高效编程，其中的=()=让我疑惑

书中说，split 函数返回结果有多少个元素可以用下面的方法
my $count = ( ) = split /:/, $line;

但是我测试，发现$count的值只是为1

my $line = "this:is:test:line:for:split.";
my $count = ( ) = split /:/, $line;
print "split = $count\n";

如果换成
my $count = my @test = split /:/, $line;
返回为6

书上还有一个例子，如书所说返回。
my $elements = ( ) = localtime;

疑惑，求解。

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

--
+++++++_++++++++
李　鎮
株式会社ディー・エヌ・エー
ソーシャルプラットフォーム事業本部 システム部
  
〒150-8510
   東京都渋谷区渋谷2丁目21番1号渋谷ヒカリエ
Shibuya Hikarie 2-21-1, Shibuya, Shibuya-ku, Tokyo 150-8510
   
++++++ *-* +++++++
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] =()= 的使用

Hi,

做了个小实验, 明白了一些事情，拿来分享。

Q1：

> 书中说，split 函数返回结果有多少个元素可以用下面的方法

> my $count = ( ) = split /:/, $line;
> 但是我测试，发现$count的值只是为1

my $line = "this:is:test:line:for:split.";

my $cnt = () = (split /:/, $line);

返回值为1，

这里的奥妙在split这里，

split这个函数，需要别人告诉它，分割数是多少（就是它要返回多少个数值）。

但是()代表空list，

() = (split /:/, $line)这种情况下，split不清楚分割数是多少。

我猜测它在这里返回的是个布尔值的结果。

接着，

my $cnt = () = (split /:/, $line, -1);

返回值为6，

这里添加的-1, 明确告诉split, 最大分割数是无限，

所以这时侯split把数组返回来了。

Q2,

>书上还有一个例子，如书所说返回。
> my $elements = ( ) = localtime;

这里结果是9，

localtime返回日期内容的数组，什么年月日的都在里面。

看一下它的说明就知道了。

localtime返回的数组，首先被()这个空列表捕获，

因为$elements = ( ) 这个表达式，代表sclar context，

这样，数组的数量，就赋给了$elements。

以上，

希望我得解释容易理解，能对大家有所帮助。

呵呵。

2012/10/27 Robin Lee <robinlee.sysu@gmail.com>

没用过这种表达方式

my $count = split /:/, $line;
不就可以了吗？

如果要强制使用 List Context，应该推荐这样写：
my $elements = @{[localtime]};

2012/10/26 x2x4 <x2x4com@gmail.com>

Hi 各位
最近在看Perl高效编程，其中的=()=让我疑惑

书中说，split 函数返回结果有多少个元素可以用下面的方法
my $count = ( ) = split /:/, $line;

但是我测试，发现$count的值只是为1

my $line = "this:is:test:line:for:split.";
my $count = ( ) = split /:/, $line;
print "split = $count\n";

如果换成
my $count = my @test = split /:/, $line;
返回为6

书上还有一个例子，如书所说返回。
my $elements = ( ) = localtime;

疑惑，求解。

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

+++++++_++++++++

李　鎮

株式会社ディー・エヌ・エー

ソーシャルプラットフォーム事業本部 システム部
 
〒150-8510
  東京都渋谷区渋谷2丁目21番1号渋谷ヒカリエ
Shibuya Hikarie 2-21-1, Shibuya, Shibuya-ku, Tokyo 150-8510

++++++ *-* +++++++

Re: [PerlChina] 大家可以点拨下Perl 模块HTML::Parser的原理吗?对于start_h，end_h，text_h该如何让设置？看了说明就是不太明白

use HTML::Parser;

my $p = HTML::Parser->new( api_version => 3,

start_h => [\&start, "self, tagname, attr, attrseq, text"],

end_h => [\&end, "self, tagname, text"],

text_h => [\&text, "tagname, text"],

marked_sections => 1,

);

sub start{

my($self, $tagname, $attr, $attrseq, $origtext)=@_;

print "START: $self\n";

}

这个时候打印输出的$self是一个hash引用，

use HTML::Parser;

my $p = HTML::Parser->new( api_version => 3,

start_h => [\&start, "tagname, text"],

end_h => [\&end, "self, tagname, text"],

text_h => [\&text, "tagname, text"],

marked_sections => 1,

);

sub start{

my($self, $tagname, $attr, $attrseq, $origtext)=@_;

print "START: $self\n";

}

这个时候打印输出的$self就是一个具体的值，这是怎么回事，这几个参数的设置代表什么意义，求解！

2012/11/1 baocheng li <linus00917@gmail.com>

Thank you for your suggestion! But I am maintaining a tool, it uses Perl the HTML::Parse. I want to know the method of use so that I can get the data structure. Could you please give me help!
Thank you!

在 2012年11月1日下午1:09，Fayland Lam <fayland@gmail.com>写道：

maybe you can try HTML::TreeBuilder or Mojo::DOM or HTML::TreeBuilder::XPath.

HTML::Parser is quite low level and not so API-friendly.

Thanks.

2012/11/1 baocheng li <linus00917@gmail.com>:
>
> --
> 您收到此邮件是因为您订阅了 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 访问此网上论坛。

2012年10月31日星期三

Re: [PerlChina] 大家可以点拨下Perl 模块HTML::Parser的原理吗?对于start_h，end_h，text_h该如何让设置？看了说明就是不太明白

Thank you for your suggestion! But I am maintaining a tool, it uses Perl the HTML::Parse. I want to know the method of use so that I can get the data structure. Could you please give me help!

Thank you!

在 2012年11月1日下午1:09，Fayland Lam <fayland@gmail.com>写道：

maybe you can try HTML::TreeBuilder or Mojo::DOM or HTML::TreeBuilder::XPath.

HTML::Parser is quite low level and not so API-friendly.

Thanks.

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

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

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

Re: [PerlChina] 大家可以点拨下Perl 模块HTML::Parser的原理吗?对于start_h，end_h，text_h该如何让设置？看了说明就是不太明白

maybe you can try HTML::TreeBuilder or Mojo::DOM or HTML::TreeBuilder::XPath.

HTML::Parser is quite low level and not so API-friendly.

Thanks.

2012/11/1 baocheng li <linus00917@gmail.com>:
>
> --
> 您收到此邮件是因为您订阅了 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] 大家可以点拨下Perl 模块HTML::Parser的原理吗?对于start_h，end_h，text_h该如何让设置？看了说明就是不太明白

Re: [PerlChina] 新手求助，匹配问题，请大家帮忙看看

大家可以点拨下Perl 模块HTML::Parser的原理吗?对于start_h，end_h，text_h该如何让设置？

在 2012年10月30日下午4:44，夏凯 <walkerxk@gmail.com>写道：

其实fgrep -w abc就行了，或者要精确的话awk -F'[. ]+' '$2~"\\<604354\\>"'

On 2012年10月30日 16:04, zzhiou wrote:

Shell更快...

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

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

2012年10月30日星期二

Re: [PerlChina] 新手求助，匹配问题，请大家帮忙看看

其实fgrep -w abc就行了，或者要精确的话awk -F'[. ]+' '$2~"\\<604354\\>"'
On 2012年10月30日 16:04, zzhiou wrote:
>
> Shell更快...
>
> Sent from Samsung Mobile
> --
> 您收到此邮件是因为您订阅了 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: Re: [PerlChina] 新手求助，匹配问题，请大家帮忙看看

Shell更快...

Sent from Samsung Mobile

2012年10月29日星期一

Re: Re: [PerlChina] 新手求助，匹配问题，请大家帮忙看看

偶觉得他应该是问 ” 如何通过正则表达式来匹配到这个基因的ID吗？ “

他可能是想直接匹到一行输出就行了。

2012/10/30 zehui.hug <zehui.hug@gmail.com>

"请问如何用具体的数字来匹配这写文本呢？"

不太明白，你是指对每一行，如何通过正则表达式来匹配到这个基因的ID吗？

不清楚你是单纯查询呢还是要按基因统计呢？

zehui.hug

发件人： Zhang Ming

发送时间： 2012-10-30 11:31

收件人： perlchina

抄送： lixiangchenxy

主题： Re: [PerlChina] 新手求助，匹配问题，请大家帮忙看看

open FILE, $gen_file or die "cannot open file";
while (<FILE>) {

print $_ if $_ =~ /$id/;

}

close FILE;

2012/10/30 李相辰 <lixiangchenxy@gmail.com>

我在处理一个基因文本，部分内容如下：
COG1110 604354.TSIB_0530 1 1212

COG1110 598659.NAMH_1071 1 1060

COG1110 593117.TGAM_1679 1 1216

COG1110 590168.Tnap_0803 1 1104

COG1110 579137.Metvu_1264 1 865

COG1110 573064.Mefer_0049 6 869

COG1110 563041.HPG27_964 428 531

.......

我想用perl编写一个程序来匹配这些文本中相同ID的基因，如输入“604354”匹配出“COG1110 604354.TSIB_0530 1 1212”，这一行，请问如何用具体的数字来匹配这写文本呢？谢谢！

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

--
-ming

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

--
-ming

回复: Re: [PerlChina] 新手求助，匹配问题，请大家帮忙看看

"请问如何用具体的数字来匹配这写文本呢？"

不太明白，你是指对每一行，如何通过正则表达式来匹配到这个基因的ID吗？

不清楚你是单纯查询呢还是要按基因统计呢？

zehui.hug

发件人： Zhang Ming

发送时间： 2012-10-30 11:31

收件人： perlchina

抄送： lixiangchenxy

主题： Re: [PerlChina] 新手求助，匹配问题，请大家帮忙看看

open FILE, $gen_file or die "cannot open file";

while (<FILE>) {

print $_ if $_ =~ /$id/;

}

close FILE;

2012/10/30 李相辰 <lixiangchenxy@gmail.com>

我在处理一个基因文本，部分内容如下：
COG1110 604354.TSIB_0530 1 1212

COG1110 598659.NAMH_1071 1 1060

COG1110 593117.TGAM_1679 1 1216

COG1110 590168.Tnap_0803 1 1104

COG1110 579137.Metvu_1264 1 865

COG1110 573064.Mefer_0049 6 869

COG1110 563041.HPG27_964 428 531

.......

我想用perl编写一个程序来匹配这些文本中相同ID的基因，如输入"604354"匹配出"COG1110 604354.TSIB_0530 1 1212"，这一行，请问如何用具体的数字来匹配这写文本呢？谢谢！

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

--
-ming

Re: [PerlChina] 新手求助，匹配问题，请大家帮忙看看

open FILE, $gen_file or die "cannot open file";

while (<FILE>) {

print $_ if $_ =~ /$id/;

}

close FILE;

2012/10/30 李相辰 <lixiangchenxy@gmail.com>

我在处理一个基因文本，部分内容如下：
COG1110 604354.TSIB_0530 1 1212

COG1110 598659.NAMH_1071 1 1060

COG1110 593117.TGAM_1679 1 1216

COG1110 590168.Tnap_0803 1 1104

COG1110 579137.Metvu_1264 1 865

COG1110 573064.Mefer_0049 6 869

COG1110 563041.HPG27_964 428 531

.......
我想用perl编写一个程序来匹配这些文本中相同ID的基因，如输入“604354”匹配出“COG1110 604354.TSIB_0530 1 1212”，这一行，请问如何用具体的数字来匹配这写文本呢？谢谢！

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

--
-ming

Re: [PerlChina] 新手求助，匹配问题，请大家帮忙看看

问题有点不够具体，不知道想问什么

Perl里数字和字符串大致上可以互用

2012/10/30 李相辰 <lixiangchenxy@gmail.com>

我在处理一个基因文本，部分内容如下：
COG1110 604354.TSIB_0530 1 1212

COG1110 598659.NAMH_1071 1 1060

COG1110 593117.TGAM_1679 1 1216

COG1110 590168.Tnap_0803 1 1104

COG1110 579137.Metvu_1264 1 865

COG1110 573064.Mefer_0049 6 869

COG1110 563041.HPG27_964 428 531

.......
我想用perl编写一个程序来匹配这些文本中相同ID的基因，如输入“604354”匹配出“COG1110 604354.TSIB_0530 1 1212”，这一行，请问如何用具体的数字来匹配这写文本呢？谢谢！

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

[PerlChina] 新手求助，匹配问题，请大家帮忙看看

我在处理一个基因文本，部分内容如下：

COG1110 604354.TSIB_0530 1 1212

COG1110 598659.NAMH_1071 1 1060

COG1110 593117.TGAM_1679 1 1216

COG1110 590168.Tnap_0803 1 1104

COG1110 579137.Metvu_1264 1 865

COG1110 573064.Mefer_0049 6 869

COG1110 563041.HPG27_964 428 531

.......

我想用perl编写一个程序来匹配这些文本中相同ID的基因，如输入“604354”匹配出“COG1110 604354.TSIB_0530 1 1212”，这一行，请问如何用具体的数字来匹配这写文本呢？谢谢！

订阅：博文 (Atom)

2012年11月3日星期六

2012年11月1日星期四

2012年10月31日星期三

2012年10月30日星期二

2012年10月29日星期一

订阅

博客归档