2008年11月22日星期六

Re: [PerlChina] China-pm Digest, Vol 43, Issue 26

thanks
gtalk:freeespeech@gmail.com

2008/11/23 <china-pm-request@pm.org>:
> Send China-pm mailing list submissions to
> china-pm@pm.org
>
> To subscribe or unsubscribe via the World Wide Web, visit
> http://mail.pm.org/mailman/listinfo/china-pm
> or, via email, send a message with subject or body 'help' to
> china-pm-request@pm.org
>
> You can reach the person managing the list at
> china-pm-owner@pm.org
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of China-pm digest..."
>
>
> Today's Topics:
>
> 1. 传参的一点疑问 (owen nirvana)
> 2. Re: 传参的一点疑问 (bruce)
> 3. Re: 传参的一点疑问 (agentzh)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Sat, 22 Nov 2008 12:49:56 +0800
> From: "owen nirvana" <freeespeech@gmail.com>
> Subject: [PerlChina] 传参的一点疑问
> To: china-pm@pm.org
> Message-ID:
> <ba5829cc0811212049q37002485gcb34fd1dfa8a4699@mail.gmail.com>
> Content-Type: text/plain; charset=GB2312
>
> 传递的参数是数组或者哈希的时候,怎么获取相关参数
>
> 比如 func ( @arr)或者func(%hash)
> 更复杂一点的
> func($param, @arr)
> func(@arr,%hash)
> 好像$_[0]肯定失灵了
>
> gtalk:freeespeech@gmail.com
>
> ------------------------------
>
> Message: 2
> Date: Sat, 22 Nov 2008 12:55:11 +0800
> From: "bruce" <bruce1914@gmail.com>
> Subject: Re: [PerlChina] 传参的一点疑问
> To: <china-pm@pm.org>
> Message-ID: <9D0C9F2F2A7948C2B0619A76AFC67925@brucelaptop>
> Content-Type: text/plain; charset="gb2312"
>
> 这种情况我一般用引用来解决,有点类似于C的指针。
>
> my @arr ;
> my %hash;
> $point_hash = \%hash ;
> $point_arr = \@arr ;
> func($point_arr) ;
> func2($point_hash) ;
>
> sub func
> { my ($point_arr) = @_ ;
> my @array_in = @{$point_arr} ;
> ...
> }
>
> sub func2
> { my ($point_hash) = @_ ;
> my %hash_in = %{$point_hash} ;
> ....
> }
>
>> -----Original Message-----
>> From: china-pm-bounces+bruce1914=gmail.com@pm.org
>> [mailto:china-pm-bounces+bruce1914=gmail.com@pm.org] On Behalf Of owen
>> nirvana
>> Sent: 2008年11月22日 12:50
>> To: china-pm@pm.org
>> Subject: [PerlChina] 传参的一点疑问
>>
>> 传递的参数是数组或者哈希的时候,怎么获取相关参数
>>
>> 比如 func ( @arr)或者func(%hash)
>> 更复杂一点的
>> func($param, @arr)
>> func(@arr,%hash)
>> 好像$_[0]肯定失灵了
>>
>> gtalk:freeespeech@gmail.com
>> _______________________________________________
>> China-pm mailing list
>> China-pm@pm.org
>> http://mail.pm.org/mailman/listinfo/china-pm
>
>
>
> ------------------------------
>
> Message: 3
> Date: Sat, 22 Nov 2008 15:19:49 +0800
> From: agentzh <agentzh@gmail.com>
> Subject: Re: [PerlChina] 传参的一点疑问
> To: china-pm@pm.org
> Message-ID:
> <c711ff240811212319w3a4d24eaj406300eb12226d04@mail.gmail.com>
> Content-Type: text/plain; charset="gb2312"
>
> 2008/11/22 owen nirvana <freeespeech@gmail.com>:
>> 传递的参数是数组或者哈希的时候,怎么获取相关参数
>>
>
> 以数组为参时:
>
> sub func {
> my @b = @_;
> # ...
> }
>
> my @a = (1,2,3);
> func(@a);
>
> 哈希为参时:
>
> sub func {
> my %b = @_;
> }
>
> my %a = (cat => 1, dog => 2);
> func(%a);
>
> 这里的行为是哈希和数组会自动平展成 @_ 中的离散元素 :) 如果想避免,可以使用数组和哈希的引用,例如:
>
> sub func {
> my @b = @{ $_[0] }
> # ...
> }
>
> my @a = (1,2,3);
> func(\@a);
>
> # OR func([1,2,3])
>
> 而对于哈希:
>
> my func {
> my %b = %{ $_[0] };
> # ...
> }
>
> my %a = (cat => 1, dog => 2);
> func(\%a);
>
> # OR func( { cat => 1, dog => 2 } );
>
> 参数是否 slurpy 的行为在 Perl 6 中可以更优雅地控制。。。呵呵
>
> Hope this helps :)
>
> -agentzh
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL: <http://mail.pm.org/pipermail/china-pm/attachments/20081122/55d4eef4/attachment-0001.html>
>
> ------------------------------
>
> _______________________________________________
> China-pm mailing list
> China-pm@pm.org
> http://mail.pm.org/mailman/listinfo/china-pm
>
> End of China-pm Digest, Vol 43, Issue 26
> ****************************************
>
_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm

2008年11月21日星期五

Re: [PerlChina] 传参的一点疑问

2008/11/22 owen nirvana <freeespeech@gmail.com>:
> 传递的参数是数组或者哈希的时候,怎么获取相关参数
>

以数组为参时:

sub func {
   my @b = @_;
   # ...
}

my @a = (1,2,3);
func(@a);

哈希为参时:

sub func {
    my %b = @_;
}

my %a = (cat => 1, dog => 2);
func(%a);

这里的行为是哈希和数组会自动平展成 @_ 中的离散元素 :) 如果想避免,可以使用数组和哈希的引用,例如:

sub func {
   my @b = @{ $_[0] }
   # ...
}

my @a = (1,2,3);
func(\@a);

# OR  func([1,2,3])

而对于哈希:

my func {
   my %b = %{ $_[0] };
   # ...
}

my %a = (cat => 1, dog => 2);
func(\%a);

# OR  func( { cat => 1, dog => 2 } );

参数是否 slurpy 的行为在 Perl 6 中可以更优雅地控制。。。呵呵

Hope this helps :)

-agentzh

Re: [PerlChina] 传参的一点疑问

这种情况我一般用引用来解决,有点类似于C的指针。

my @arr ;
my %hash;
$point_hash = \%hash ;
$point_arr = \@arr ;
func($point_arr) ;
func2($point_hash) ;

sub func
{ my ($point_arr) = @_ ;
my @array_in = @{$point_arr} ;
...
}

sub func2
{ my ($point_hash) = @_ ;
my %hash_in = %{$point_hash} ;
....
}

> -----Original Message-----
> From: china-pm-bounces+bruce1914=gmail.com@pm.org
> [mailto:china-pm-bounces+bruce1914=gmail.com@pm.org] On Behalf Of owen
> nirvana
> Sent: 2008年11月22日 12:50
> To: china-pm@pm.org
> Subject: [PerlChina] 传参的一点疑问
>
> 传递的参数是数组或者哈希的时候,怎么获取相关参数
>
> 比如 func ( @arr)或者func(%hash)
> 更复杂一点的
> func($param, @arr)
> func(@arr,%hash)
> 好像$_[0]肯定失灵了
>
> gtalk:freeespeech@gmail.com
> _______________________________________________
> 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] 传参的一点疑问

传递的参数是数组或者哈希的时候,怎么获取相关参数

比如 func ( @arr)或者func(%hash)
更复杂一点的
func($param, @arr)
func(@arr,%hash)
好像$_[0]肯定失灵了

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

2008年11月19日星期三

Re: [PerlChina] 两本书 Perl实例精解 和 代码之美 样章

truncatei wrote:
> 上市了通知我们啊,又可以买新书了
>
> 2008/11/20 Qiang (James) <shijialee@gmail.com
> <mailto:shijialee@gmail.com>>
>
> 最近 机械工业出版社 向 PerlChina 提供了两本新书的样章,有
>
> * Perl实例精解 (Perl By Example 2007 12 月出版) 提供的样章有 Perl
> 快速入门,面向对象的Perl,与系统交互
>
> * Beatiful Code ( 代码之美 ),目前在 PerlChina 论坛上做一个书评赠
> 书活动
>
> 样章和活动内容请看:
>
> http://wiki.perlchina.org/index.php/Perl_By_Example
> http://wiki.perlchina.org/index.php/Beatiful_Code
>
> 感兴趣的朋友可以看看。
>
> Qiang(James)
> _______________________________________________
> China-pm mailing list
> China-pm@pm.org <mailto: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
看上去很不错,期待早点出货啊。
_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm

Re: [PerlChina] 两本书 Perl实例精解 和 代码之美 样章

truncatei wrote:
> 上市了通知我们啊,又可以买新书了

都已经上市了 :) http://www.china-pub.com/129897

Qiang(James)

>
> 2008/11/20 Qiang (James) <shijialee@gmail.com <mailto:shijialee@gmail.com>>
>
> 最近 机械工业出版社 向 PerlChina 提供了两本新书的样章,有
>
> * Perl实例精解 (Perl By Example 2007 12 月出版) 提供的样章有 Perl快
> 速入 门,面向对象的Perl,与系统交互
>
> * Beatiful Code ( 代码之美 ),目前在 PerlChina 论坛上做一个书评赠书活动
>
> 样章和活动内容请看:
>
> http://wiki.perlchina.org/index.php/Perl_By_Example
> http://wiki.perlchina.org/index.php/Beatiful_Code
>
> 感兴趣的朋友可以看看。
>
> Qiang(James)
> _______________________________________________
> China-pm mailing list
> China-pm@pm.org <mailto: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

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

Re: [PerlChina] 两本书 Perl实例精解 和 代码之美 样章

上市了通知我们啊,又可以买新书了

2008/11/20 Qiang (James) <shijialee@gmail.com>
最近 机械工业出版社 向 PerlChina 提供了两本新书的样章,有

* Perl实例精解 (Perl By Example 2007 12 月出版) 提供的样章有 Perl快速入 门,面向对象的Perl,与系统交互

* Beatiful Code ( 代码之美 ),目前在 PerlChina 论坛上做一个书评赠书活动

样章和活动内容请看:

http://wiki.perlchina.org/index.php/Perl_By_Example
http://wiki.perlchina.org/index.php/Beatiful_Code

感兴趣的朋友可以看看。

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



--
"老是呆在那里不好,我们随生活需要四处迁徙,多年以来的梦想,至今还未实现,压力堵塞了我们的耳朵,工作生涯到了尽头,还是一无所有,我们应该给后人留下点儿什么,教训是不会刻在纪念碑上的,光荣的命令和指引之手,也可请求,简单地改变一下角度就足够了"

[PerlChina] 两本书 Perl实例精解 和 代码之美 样章

最近 机械工业出版社 向 PerlChina 提供了两本新书的样章,有

* Perl实例精解 (Perl By Example 2007 12 月出版) 提供的样章有 Perl快速入
门,面向对象的Perl,与系统交互

* Beatiful Code ( 代码之美 ),目前在 PerlChina 论坛上做一个书评赠书活动

样章和活动内容请看:

http://wiki.perlchina.org/index.php/Perl_By_Example
http://wiki.perlchina.org/index.php/Beatiful_Code

感兴趣的朋友可以看看。

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

2008年11月18日星期二

Re: [PerlChina] catalyst problem

xu zhou wrote:
> 粗略看了下catalyst
> 没搞明白Model是如何传递数据给controller的
>
> 我原以为是这样
> package MyApp::Model::Trial;
> sub new{
> my $pack = shift;
> my $self = bless {
> foo => 'default value foo',
> },$pack;
> return $self;
> }
>
> sub get{
> return shift->{'foo'};
> }
> 1
>
> 然后通过在controller里面调用
> my $a = $c->model('Trial::get');
> 来获得这个model的对象从而调用model的数据

我没用 Catalyst(我用 CGI::Application). 但记得Catalyst 里 Model 的调用方
法应该是 $c->model('Trial')->method. 这里catalyst 每次调用
$c->model('Trial') 都会得到一个 MyApp::Model::Trial 的对象,所以接着你就
可以调用 ->get 。

说的不对的地方请熟悉 catalyst 的朋友指出..

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

[PerlChina] catalyst problem

粗略看了下catalyst
没搞明白Model是如何传递数据给controller的

我原以为是这样
package MyApp::Model::Trial;
sub new{
my $pack = shift;
my $self = bless {
foo => 'default value foo',
},$pack;
return $self;
}

sub get{
return shift->{'foo'};
}
1

然后通过在controller里面调用
my $a = $c->model('Trial::get');
来获得这个model的对象从而调用model的数据

尝试过发现不是如此

哪位高手讲讲这个
thx
_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm

2008年11月17日星期一

Re: [PerlChina] Fwd: perlchina.org域名在谁手里,麻烦再设置一下,机房IP再次更改

王兄,更换ip前我也没有得到任何通知的

2008/11/18 王治国 <wang.zhiguo@neusoft.com>
为啥不能事先协商好再更换IP地址呢?
----- Original Message -----
Sent: Tuesday, November 18, 2008 10:07 AM
Subject: [PerlChina] Fwd: perlchina.org域名在谁手里,麻烦再设置一下,机房IP再次更改

由于更换机房,bbs.perlchina.org的ip地址改变,域名在哪位兄弟手里,麻烦设置一下
新的ip地址是: 222.73.42.53


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



Confidentiality Notice: The information contained in this e-mail and any accompanying attachment(s) is intended only for the use of the intended recipient and may be confidential and/or privileged of Neusoft Corporation, its subsidiaries and/or its affiliates. If any reader of this communication is not the intended recipient, unauthorized use, forwarding, printing, storing, disclosure or copying is strictly prohibited, and may be unlawful. If you have received this communication in error, please immediately notify the sender by return e-mail, and delete the original message and all copies from your system. Thank you.

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



--
gegewan的博客技术含量高,写程序的兄弟不要错过
http://gegewan.org

Re: [PerlChina] Fwd: perlchina.org域名在谁手里,麻烦再设置一下,机房IP再次更改

为啥不能事先协商好再更换IP地址呢?
----- Original Message -----
Sent: Tuesday, November 18, 2008 10:07 AM
Subject: [PerlChina] Fwd: perlchina.org域名在谁手里,麻烦再设置一下,机房IP再次更改

由于更换机房,bbs.perlchina.org的ip地址改变,域名在哪位兄弟手里,麻烦设置一下
新的ip地址是: 222.73.42.53


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

[PerlChina] Fwd: perlchina.org域名在谁手里,麻烦再设置一下,机房IP再次更改

由于更换机房,bbs.perlchina.org的ip地址改变,域名在哪位兄弟手里,麻烦设置一下
新的ip地址是: 222.73.42.53

Re: [PerlChina] China-pm Digest, Vol 43, Issue 21



2008/11/17 owen nirvana <freeespeech@gmail.com>
谢谢,问题是归到上一行这样的操作,我不知道如何用正则表达式完成,那不等于是让表达式再回溯吗
gtalk:freeespeech@gmail.com


>>
>>
>> 还有一个问题,是关于提取数据的
>>
>> 2222  eewweasdds,asdasd.sadsadasdas
>>          ddasdddddddddddddddddddda
>>          ddddddddddddddddddddddddddd
>> 2821  easdddddddddddddddddddddddd
>> 2192  288888888888888888888ass0a-das.
>>          as;dddsaddaa0---------22222222
>>
>> 诸如此类,左边很好办,可是右边并不限于单行,我该如何把这样的数据提取为  name title的格式存到数据表里呢



my ($name, $title);
while (<>){
if (/^(\d+)\s+(.*)$) {
if ($name) {
 // 保存上一个 save $name, $title
 // 下面开始处理一个新的
$name = '';
$title = '';
}
$name = $1;
$title .= $2;
} elsif(/^\s+(.*)$/) {
$title .= $1;
}
// save last one

好久不写了,上面的代码或许会有些错误,大概的流程整理出来了:
每次遇到数字就开始一条数据,否则视为向当前数据中添加title


--
"老是呆在那里不好,我们随生活需要四处迁徙,多年以来的梦想,至今还未实现,压力堵塞了我们的耳朵,工作生涯到了尽头,还是一无所有,我们应该给后人留下点儿什么,教训是不会刻在纪念碑上的,光荣的命令和指引之手,也可请求,简单地改变一下角度就足够了"

Re: [PerlChina] China-pm Digest, Vol 43, Issue 21

谢谢,问题是归到上一行这样的操作,我不知道如何用正则表达式完成,那不等于是让表达式再回溯吗
gtalk:freeespeech@gmail.com

2008/11/17 <china-pm-request@pm.org>:
> Send China-pm mailing list submissions to
> china-pm@pm.org
>
> To subscribe or unsubscribe via the World Wide Web, visit
> http://mail.pm.org/mailman/listinfo/china-pm
> or, via email, send a message with subject or body 'help' to
> china-pm-request@pm.org
>
> You can reach the person managing the list at
> china-pm-owner@pm.org
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of China-pm digest..."
>
>
> Today's Topics:
>
> 1. Re: test again (张晓亮)
> 2. Re: test again (Ken Lam)
> 3. Re: test again (张晓亮)
> 4. Re: test again (张晓亮)
> 5. Re: perl怎么读取文件或者路径参数 ( 亮康 )
> 6. Re: perl怎么读取文件或者路径参数 (purl lamp)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Mon, 17 Nov 2008 08:46:45 +0800
> From: 张晓亮 <alaboszhang@gmail.com>
> Subject: Re: [PerlChina] test again
> To: <china-pm@pm.org>
> Message-ID: <016d01c9484d$f8f04f70$2800a8c0@aj>
> Content-Type: text/plain; charset="utf-8"
>
> 我不能发邮件到这里.
>
>
>
>
> ----- Original Message -----
> From: "Ken Lam" <bi.ken.lam@gmail.com>
> To: <china-pm@pm.org>
> Sent: Sunday, November 16, 2008 11:51 PM
> Subject: [PerlChina] test again
>
>
>> 测试一下。
>>
>> _______________________________________________
>> China-pm mailing list
>> China-pm@pm.org
>> http://mail.pm.org/mailman/listinfo/china-pm
>
> ------------------------------
>
> Message: 2
> Date: Mon, 17 Nov 2008 09:10:13 +0800
> From: Ken Lam <bi.ken.lam@gmail.com>
> Subject: Re: [PerlChina] test again
> To: china-pm@pm.org
> Message-ID: <4920C475.10905@gmail.com>
> Content-Type: text/plain; charset=UTF-8; format=flowed
>
> 我也是,一直在努力地尝试。
>
> 张晓亮 wrote:
>> 我不能发邮件到这里.
>>
>>
>>
>>
>> ----- Original Message -----
>> From: "Ken Lam" <bi.ken.lam@gmail.com>
>> To: <china-pm@pm.org>
>> Sent: Sunday, November 16, 2008 11:51 PM
>> Subject: [PerlChina] test again
>>
>>
>>
>>> 测试一下。
>>>
>>>
>
>
>
> ------------------------------
>
> Message: 3
> Date: Mon, 17 Nov 2008 09:58:12 +0800
> From: 张晓亮 <alaboszhang@gmail.com>
> Subject: Re: [PerlChina] test again
> To: <china-pm@pm.org>
> Message-ID: <019601c94857$f3eb79a0$2800a8c0@aj>
> Content-Type: text/plain; charset="utf-8"
>
> 今天又可以了. 上次又不行. 换成GOOGLE GROUP 也不错. 比这个稳定些
>
>
>
>
> ----- Original Message -----
> From: "Ken Lam" <bi.ken.lam@gmail.com>
> To: <china-pm@pm.org>
> Sent: Monday, November 17, 2008 9:10 AM
> Subject: Re: [PerlChina] test again
>
>
>> 我也是,一直在努力地尝试。
>>
>> 张晓亮 wrote:
>>> 我不能发邮件到这里.
>>>
>>>
>>>
>>>
>>> ----- Original Message -----
>>> From: "Ken Lam" <bi.ken.lam@gmail.com>
>>> To: <china-pm@pm.org>
>>> Sent: Sunday, November 16, 2008 11:51 PM
>>> Subject: [PerlChina] test again
>>>
>>>
>>>
>>>> 测试一下。
>>>>
>>>>
>>
>> _______________________________________________
>> China-pm mailing list
>> China-pm@pm.org
>> http://mail.pm.org/mailman/listinfo/china-pm
>
> ------------------------------
>
> Message: 4
> Date: Mon, 17 Nov 2008 09:58:14 +0800
> From: 张晓亮 <alaboszhang@gmail.com>
> Subject: Re: [PerlChina] test again
> To: <china-pm@pm.org>
> Message-ID: <019701c94857$f6f73300$2800a8c0@aj>
> Content-Type: text/plain; charset="utf-8"
>
> 今天又可以了. 上次又不行. 换成GOOGLE GROUP 也不错. 比这个稳定些
>
>
>
>
> ----- Original Message -----
> From: "Ken Lam" <bi.ken.lam@gmail.com>
> To: <china-pm@pm.org>
> Sent: Monday, November 17, 2008 9:10 AM
> Subject: Re: [PerlChina] test again
>
>
>> 我也是,一直在努力地尝试。
>>
>> 张晓亮 wrote:
>>> 我不能发邮件到这里.
>>>
>>>
>>>
>>>
>>> ----- Original Message -----
>>> From: "Ken Lam" <bi.ken.lam@gmail.com>
>>> To: <china-pm@pm.org>
>>> Sent: Sunday, November 16, 2008 11:51 PM
>>> Subject: [PerlChina] test again
>>>
>>>
>>>
>>>> 测试一下。
>>>>
>>>>
>>
>> _______________________________________________
>> China-pm mailing list
>> China-pm@pm.org
>> http://mail.pm.org/mailman/listinfo/china-pm
>
> ------------------------------
>
> Message: 5
> Date: Mon, 17 Nov 2008 10:25:13 +0800
> From: " 亮康 " <kangliang1982@gmail.com>
> Subject: Re: [PerlChina] perl怎么读取文件或者路径参数
> To: china-pm@pm.org
> Message-ID:
> <72a481210811161825x6e78eb8q43d079a2d7489edf@mail.gmail.com>
> Content-Type: text/plain; charset="gb2312"
>
> 1. @ARGV是默认参数列表
> 2. 使用正则表达式
>
>
>
>
> 2008/11/17 owen nirvana <freeespeech@gmail.com>
>
>> 我用<>总是不得要领,
>>
>> my ($file) = @_,取到的总是文件行数,如果是@file则是文件内容
>> 但是 @_不应该是参数列表吗,为什么不是 filename呢, 如果是输入路径的话,@_甚至 == 0,
>>
>> 但是我很希望能够直接在参数里得到路径名,然后批量打开某些类型的文件, 还请各位指教
>>
>>
>> 还有一个问题,是关于提取数据的
>>
>> 2222 eewweasdds,asdasd.sadsadasdas
>> ddasdddddddddddddddddddda
>> ddddddddddddddddddddddddddd
>> 2821 easdddddddddddddddddddddddd
>> 2192 288888888888888888888ass0a-das.
>> as;dddsaddaa0---------22222222
>>
>> 诸如此类,左边很好办,可是右边并不限于单行,我该如何把这样的数据提取为 name title的格式存到数据表里呢
>> gtalk:freeespeech@gmail.com <gtalk%3Afreeespeech@gmail.com>
>> _______________________________________________
>> China-pm mailing list
>> China-pm@pm.org
>> http://mail.pm.org/mailman/listinfo/china-pm
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL: <http://mail.pm.org/pipermail/china-pm/attachments/20081117/0820c2f4/attachment-0001.html>
>
> ------------------------------
>
> Message: 6
> Date: Mon, 17 Nov 2008 10:26:43 +0800
> From: "purl lamp" <lamp.purl@gmail.com>
> Subject: Re: [PerlChina] perl怎么读取文件或者路径参数
> To: china-pm@pm.org
> Message-ID:
> <367185060811161826j1ae56e02qc782369c78979272@mail.gmail.com>
> Content-Type: text/plain; charset="gb2312"
>
> 在这里使用 <> 得到的是文件列表所有内容的拼接,使用 @ARGV 才是更加上游传进来的文件名列表。
>
> 第二个问题可以用正则替换,把开头不是的数字的东西归并到上一行。
>
> 2008/11/17 truncatei <truncatei@gmail.com>
>
>> <> 是用来快速读取参数提供的文件的内容或者data块定义的数据
>> 用readdir吧
>>
>> 2008/11/17 owen nirvana <freeespeech@gmail.com>
>>
>> 我用<>总是不得要领,
>>>
>>> my ($file) = @_,取到的总是文件行数,如果是@file则是文件内容
>>> 但是 @_不应该是参数列表吗,为什么不是 filename呢, 如果是输入路径的话,@_甚至 == 0,
>>>
>>> 但是我很希望能够直接在参数里得到路径名,然后批量打开某些类型的文件, 还请各位指教
>>>
>>>
>>> 还有一个问题,是关于提取数据的
>>>
>>> 2222 eewweasdds,asdasd.sadsadasdas
>>> ddasdddddddddddddddddddda
>>> ddddddddddddddddddddddddddd
>>> 2821 easdddddddddddddddddddddddd
>>> 2192 288888888888888888888ass0a-das.
>>> as;dddsaddaa0---------22222222
>>>
>>> 诸如此类,左边很好办,可是右边并不限于单行,我该如何把这样的数据提取为 name title的格式存到数据表里呢
>>> gtalk:freeespeech@gmail.com <gtalk%3Afreeespeech@gmail.com>
>>> _______________________________________________
>>> 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
>>
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL: <http://mail.pm.org/pipermail/china-pm/attachments/20081117/114fca17/attachment.html>
>
> ------------------------------
>
> _______________________________________________
> China-pm mailing list
> China-pm@pm.org
> http://mail.pm.org/mailman/listinfo/china-pm
>
> End of China-pm Digest, Vol 43, Issue 21
> ****************************************
>
_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm

Re: [PerlChina] test again

我的另一邮箱(gmx.net)也是不行,无奈换成gmail了,:-(

2008/11/17 Ken Lam <bi.ken.lam@gmail.com>:
> 我也是,一直在努力地尝试。
>
> 张晓亮 wrote:
>>
>> 我不能发邮件到这里.
_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm

Re: [PerlChina] perl怎么读取文件或者路径参数

my ($file) = @_ 提取第一个元素吧

my $file = @_ 才是标量环境

2008/11/17 owen nirvana <freeespeech@gmail.com>:
> 我用<>总是不得要领,
>
> my ($file) = @_,取到的总是文件行数,如果是@file则是文件内容
> 但是 @_不应该是参数列表吗,为什么不是 filename呢, 如果是输入路径的话,@_甚至 == 0,
>
> 但是我很希望能够直接在参数里得到路径名,然后批量打开某些类型的文件, 还请各位指教
>
>
> 还有一个问题,是关于提取数据的
>
> 2222 eewweasdds,asdasd.sadsadasdas
> ddasdddddddddddddddddddda
> ddddddddddddddddddddddddddd
> 2821 easdddddddddddddddddddddddd
> 2192 288888888888888888888ass0a-das.
> as;dddsaddaa0---------22222222
>
> 诸如此类,左边很好办,可是右边并不限于单行,我该如何把这样的数据提取为 name title的格式存到数据表里呢
> gtalk:freeespeech@gmail.com
> _______________________________________________
> 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

Re: [PerlChina] perl怎么读取文件或者路径参数

@ARGV是程序接收到的参数列表;
@_是子函数(sub myfunc)接收到的参数列表.

my ($file) = @_,取到的总是文件行数,如果是@file则是文件内容

你这样用是把@_做为scalar变量来用,这样取到的是数组的元素数量.



2008/11/17 purl lamp <lamp.purl@gmail.com>
在这里使用 <> 得到的是文件列表所有内容的拼接,使用 @ARGV 才是更加上游传进来的文件名列表。

第二个问题可以用正则替换,把开头不是的数字的东西归并到上一行。

2008/11/17 truncatei <truncatei@gmail.com>

<> 是用来快速读取参数提供的文件的内容或者data块定义的数据
用readdir吧

2008/11/17 owen nirvana <freeespeech@gmail.com>

我用<>总是不得要领,

my ($file) = @_,取到的总是文件行数,如果是@file则是文件内容
但是 @_不应该是参数列表吗,为什么不是 filename呢, 如果是输入路径的话,@_甚至 == 0,

但是我很希望能够直接在参数里得到路径名,然后批量打开某些类型的文件, 还请各位指教


还有一个问题,是关于提取数据的

2222  eewweasdds,asdasd.sadsadasdas
         ddasdddddddddddddddddddda
         ddddddddddddddddddddddddddd
2821  easdddddddddddddddddddddddd
2192  288888888888888888888ass0a-das.
         as;dddsaddaa0---------22222222

诸如此类,左边很好办,可是右边并不限于单行,我该如何把这样的数据提取为  name title的格式存到数据表里呢
gtalk:freeespeech@gmail.com
_______________________________________________
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


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



--
Best regards.
Felix New

2008年11月16日星期日

Re: [PerlChina] 有没有弹气球的模块?

# http://search.cpan.org/~robertmay/Win32-GUI-1.06/
use Win32::GUI;

2008/11/16 Barret <barretz@gmail.com>:
> 就是在 windows xp/2000 下弹气球提示的模块,想平常用这个来提示一些网站和某些数据的更新……perl hacks 里头有
> mac 的例子,好像找不到适用 win 的。
>
> --
> Use Google Gmail!
> Fred Allen - "An associate producer is the only guy in Hollywood who
> will associate with a producer."
> _______________________________________________
> 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

Re: [PerlChina] perl怎么读取文件或者路径参数

在这里使用 <> 得到的是文件列表所有内容的拼接,使用 @ARGV 才是更加上游传进来的文件名列表。

第二个问题可以用正则替换,把开头不是的数字的东西归并到上一行。

2008/11/17 truncatei <truncatei@gmail.com>
<> 是用来快速读取参数提供的文件的内容或者data块定义的数据
用readdir吧

2008/11/17 owen nirvana <freeespeech@gmail.com>

我用<>总是不得要领,

my ($file) = @_,取到的总是文件行数,如果是@file则是文件内容
但是 @_不应该是参数列表吗,为什么不是 filename呢, 如果是输入路径的话,@_甚至 == 0,

但是我很希望能够直接在参数里得到路径名,然后批量打开某些类型的文件, 还请各位指教


还有一个问题,是关于提取数据的

2222  eewweasdds,asdasd.sadsadasdas
         ddasdddddddddddddddddddda
         ddddddddddddddddddddddddddd
2821  easdddddddddddddddddddddddd
2192  288888888888888888888ass0a-das.
         as;dddsaddaa0---------22222222

诸如此类,左边很好办,可是右边并不限于单行,我该如何把这样的数据提取为  name title的格式存到数据表里呢
gtalk:freeespeech@gmail.com
_______________________________________________
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

Re: [PerlChina] perl怎么读取文件或者路径参数

1. @ARGV是默认参数列表
2. 使用正则表达式
 


 
2008/11/17 owen nirvana <freeespeech@gmail.com>
我用<>总是不得要领,

my ($file) = @_,取到的总是文件行数,如果是@file则是文件内容
但是 @_不应该是参数列表吗,为什么不是 filename呢, 如果是输入路径的话,@_甚至 == 0,

但是我很希望能够直接在参数里得到路径名,然后批量打开某些类型的文件, 还请各位指教


还有一个问题,是关于提取数据的

2222  eewweasdds,asdasd.sadsadasdas
         ddasdddddddddddddddddddda
         ddddddddddddddddddddddddddd
2821  easdddddddddddddddddddddddd
2192  288888888888888888888ass0a-das.
         as;dddsaddaa0---------22222222

诸如此类,左边很好办,可是右边并不限于单行,我该如何把这样的数据提取为  name title的格式存到数据表里呢
gtalk:freeespeech@gmail.com
_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm

Re: [PerlChina] test again

今天又可以了. 上次又不行. 换成GOOGLE GROUP 也不错. 比这个稳定些




----- Original Message -----
From: "Ken Lam" <bi.ken.lam@gmail.com>
To: <china-pm@pm.org>
Sent: Monday, November 17, 2008 9:10 AM
Subject: Re: [PerlChina] test again


> 我也是,一直在努力地尝试。
>
> 张晓亮 wrote:
>> 我不能发邮件到这里.
>>
>>
>>
>>
>> ----- Original Message -----
>> From: "Ken Lam" <bi.ken.lam@gmail.com>
>> To: <china-pm@pm.org>
>> Sent: Sunday, November 16, 2008 11:51 PM
>> Subject: [PerlChina] test again
>>
>>
>>
>>> 测试一下。
>>>
>>>
>
> _______________________________________________
> 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

Re: [PerlChina] test again

今天又可以了. 上次又不行. 换成GOOGLE GROUP 也不错. 比这个稳定些




----- Original Message -----
From: "Ken Lam" <bi.ken.lam@gmail.com>
To: <china-pm@pm.org>
Sent: Monday, November 17, 2008 9:10 AM
Subject: Re: [PerlChina] test again


> 我也是,一直在努力地尝试。
>
> 张晓亮 wrote:
>> 我不能发邮件到这里.
>>
>>
>>
>>
>> ----- Original Message -----
>> From: "Ken Lam" <bi.ken.lam@gmail.com>
>> To: <china-pm@pm.org>
>> Sent: Sunday, November 16, 2008 11:51 PM
>> Subject: [PerlChina] test again
>>
>>
>>
>>> 测试一下。
>>>
>>>
>
> _______________________________________________
> 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

Re: [PerlChina] test again

我也是,一直在努力地尝试。

张晓亮 wrote:
> 我不能发邮件到这里.
>
>
>
>
> ----- Original Message -----
> From: "Ken Lam" <bi.ken.lam@gmail.com>
> To: <china-pm@pm.org>
> Sent: Sunday, November 16, 2008 11:51 PM
> Subject: [PerlChina] test again
>
>
>
>> 测试一下。
>>
>>

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

Re: [PerlChina] test again

我不能发邮件到这里.




----- Original Message -----
From: "Ken Lam" <bi.ken.lam@gmail.com>
To: <china-pm@pm.org>
Sent: Sunday, November 16, 2008 11:51 PM
Subject: [PerlChina] test again


> 测试一下。
>
> _______________________________________________
> 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

Re: [PerlChina] perl怎么读取文件或者路径参数

<> 是用来快速读取参数提供的文件的内容或者data块定义的数据
用readdir吧

2008/11/17 owen nirvana <freeespeech@gmail.com>
我用<>总是不得要领,

my ($file) = @_,取到的总是文件行数,如果是@file则是文件内容
但是 @_不应该是参数列表吗,为什么不是 filename呢, 如果是输入路径的话,@_甚至 == 0,

但是我很希望能够直接在参数里得到路径名,然后批量打开某些类型的文件, 还请各位指教


还有一个问题,是关于提取数据的

2222  eewweasdds,asdasd.sadsadasdas
         ddasdddddddddddddddddddda
         ddddddddddddddddddddddddddd
2821  easdddddddddddddddddddddddd
2192  288888888888888888888ass0a-das.
         as;dddsaddaa0---------22222222

诸如此类,左边很好办,可是右边并不限于单行,我该如何把这样的数据提取为  name title的格式存到数据表里呢
gtalk:freeespeech@gmail.com
_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm



--
"老是呆在那里不好,我们随生活需要四处迁徙,多年以来的梦想,至今还未实现,压力堵塞了我们的耳朵,工作生涯到了尽头,还是一无所有,我们应该给后人留下点儿什么,教训是不会刻在纪念碑上的,光荣的命令和指引之手,也可请求,简单地改变一下角度就足够了"

[PerlChina] perl怎么读取文件或者路径参数

我用<>总是不得要领,

my ($file) = @_,取到的总是文件行数,如果是@file则是文件内容
但是 @_不应该是参数列表吗,为什么不是 filename呢, 如果是输入路径的话,@_甚至 == 0,

但是我很希望能够直接在参数里得到路径名,然后批量打开某些类型的文件, 还请各位指教


还有一个问题,是关于提取数据的

2222 eewweasdds,asdasd.sadsadasdas
ddasdddddddddddddddddddda
ddddddddddddddddddddddddddd
2821 easdddddddddddddddddddddddd
2192 288888888888888888888ass0a-das.
as;dddsaddaa0---------22222222

诸如此类,左边很好办,可是右边并不限于单行,我该如何把这样的数据提取为 name title的格式存到数据表里呢
gtalk:freeespeech@gmail.com
_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm

[PerlChina] test again

测试一下。

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

[PerlChina] 有没有弹气球的模块?

就是在 windows xp/2000 下弹气球提示的模块,想平常用这个来提示一些网站和某些数据的更新……perl hacks 里头有
mac 的例子,好像找不到适用 win 的。

--
Use Google Gmail!
Fred Allen - "An associate producer is the only guy in Hollywood who
will associate with a producer."
_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm