Perl China Blog Spot

2011年5月30日星期一

[PerlChina] Re: perl模块如何更新关联

thanks

On May 30, 2:07 am, cnhack TNT <cnhack...@gmail.com> wrote:
> 运行 cpan -a 会自动帮你创建一个当前安装过的模块 snapshot, 如:
>
> ~/.cpan/Bundle/Snapshot_2011_05_30_00.pm
>
> 然后你只要用新版本的 perl 自带的 cpan 去安装 Bundle::Snapshot_2011_05_30_00 就好了：
>
> cpan Bundle::Snapshot_2011_05_30_00
>
> 这些模块就会自动安装好
>
> 2011/5/29 mono <freeespe...@gmail.com>> 太手工了吧，懒惰的perler们，总该有更加懒惰的做法吧
>
> > On May 28, 1:06 pm, Cond0r <con...@126.com> wrote:
> > > 直接复制过去把
>
> > > 在 2011-05-27 21:30:23，"owen nirvana" <freeespe...@gmail.com> 写道：
> > > 作了perl的版本更新之后(5.10 ==>
> > 5.12)，原先cpan/cpanm安装的一些perl模块就都不能用了(默认都安装在5.10的目录下），该如何更新呢
> > > gtalk:freeespe...@gmail.com
>
> > > --
> > > 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> > > 要向此网上论坛发帖，请发送电子邮件至perlchina@googlegroups.com。
> > > 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> > > 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN访问此网上论坛。
>
> > --
> > 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> > 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> > 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> > 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN访问此网上论坛。

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

2011年5月29日星期日

Re: [PerlChina] Re: perl模块如何更新关联

运行 cpan -a 会自动帮你创建一个当前安装过的模块 snapshot, 如:

~/.cpan/Bundle/Snapshot_2011_05_30_00.pm

然后你只要用新版本的 perl 自带的 cpan 去安装 Bundle::Snapshot_2011_05_30_00 就好了：

cpan Bundle::Snapshot_2011_05_30_00

这些模块就会自动安装好

2011/5/29 mono <freeespeech@gmail.com>

太手工了吧，懒惰的perler们，总该有更加懒惰的做法吧

On May 28, 1:06 pm, Cond0r <con...@126.com> wrote:
> 直接复制过去把
>

> 在 2011-05-27 21:30:23，"owen nirvana" <freeespe...@gmail.com> 写道：

> 作了perl的版本更新之后(5.10 ==> 5.12)，原先cpan/cpanm安装的一些perl模块就都不能用了(默认都安装在5.10的目录下），该如何更新呢

> gtalk:freeespe...@gmail.com

>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。

> 要向此网上论坛发帖，请发送电子邮件至perlchina@googlegroups.com。

> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。

> 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN访问此网上论坛。

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

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

[PerlChina] Re: perl模块如何更新关联

太手工了吧，懒惰的perler们，总该有更加懒惰的做法吧

On May 28, 1:06 pm, Cond0r <con...@126.com> wrote:
> 直接复制过去把
>
> 在 2011-05-27 21:30:23，"owen nirvana" <freeespe...@gmail.com> 写道：
> 作了perl的版本更新之后(5.10 ==> 5.12)，原先cpan/cpanm安装的一些perl模块就都不能用了(默认都安装在5.10的目录下），该如何更新呢
> gtalk:freeespe...@gmail.com
>
> --
> 您收到此邮件是因为您订阅了 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 访问此网上论坛。

2011年5月28日星期六

Re:[PerlChina] perl模块如何更新关联

直接复制过去把

在 2011-05-27 21:30:23，"owen nirvana" <freeespeech@gmail.com> 写道：

作了perl的版本更新之后(5.10 ==> 5.12)，原先cpan/cpanm安装的一些perl模块就都不能用了(默认都安装在5.10的目录下），该如何更新呢
gtalk:freeespeech@gmail.com

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

2011年5月27日星期五

[PerlChina] perl模块如何更新关联

作了perl的版本更新之后(5.10 ==> 5.12)，原先cpan/cpanm安装的一些perl模块就都不能用了(默认都安装在5.10的目录下），该如何更新呢
gtalk:freeespeech@gmail.com

2011年5月23日星期一

Re: [PerlChina] vec函数如何计算网络掩码？

IP 地址 32 位，按每8位一段分成4段，你想转换的掩码如：

CIDR ： 8

十进制： 255 . 0 . 0 . 0

二进制：11111111 . 00000000 . 00000000 . 00000000

其实这里 CIDR 指的就是IP地址中作为网络号的bit的位数（如上从左至右前8位为1），所以想要将 CIDR 转换为子网掩码，只需要根据 CIDR 从左至右将对应比特位设为1，其他位为0，然后转换为4段十进制表示就行了。

vec 函数就是用来对指定位进行操作的，它有三个参数，形式如下：

vec($var, $offset, $unit_len)

$var 代表要操作的位串；

$offset 代表偏移量；

$unit_len 就是 perldoc -f vec 里所说的 BITS，它指的是 vec 操作的单位元素大小（多少个位），所以我这里用 $unit_len 来表式更直白一点。

在你的例子中，只需要初始化一个 32 位长度，每位都是0的串，即：

vec( $mask, 0, 32 ) = 0x0;

然后根据 CIDR 的值，将对应位设为1，即：

foreach (1..$length){ # 这里 $lenght 就是 CIDR 的值

vec( $mask, (32-$_), 1 ) = 0x01; # 从右往左，将8位设为1

}

这里为啥用 "(32-$_)"（即从后往前操作）？这是因为当前情况下，操作的位串是 little-endian 的（见 vec 文档），即：

二进制：11111111 . 00000000 . 00000000 . 00000000

按 little-endian 方式就成了（即从右往左）：

二进制：00000000 . 00000000 . 00000000 . 11111111

所以我们用 vec 操作 $mask 的时候， offset 是从右往左递减1的。

操作完后，sprintf( "%vd", $mask ) 将 $mask 按十进制打印出来，其中 "%vd" 告诉 perl, $mask 是个 vec 整数串。

操作完后，用 split + reverse 将它再倒过来，就是我们所求的对应掩码了。

2011/5/23 perl01 <perl01@live.cn>

问个问题，vec函数是如何将1 ~ 32 转换成掩码的，比如24对应255.255.255.0.

foreach (1..32){

    printf "$_ => %s\n", &cidr2mask($_);

}

exit 1;

sub cidr2mask{

    my $length = shift;

    my $mask = '';

    vec( $mask, 0, 32 ) = 0x0;         # 这里开始我就不是太懂了，vec函数的原理是什么？

    foreach (1..$length){

        vec( $mask, (32-$_), 1 ) = 0x01;   #这里呢？

    }

    $mask = join( '.', reverse( split( /\./, sprintf( "%vd", $mask ) ) ) );

    return $mask;

}

2011-05-23

perl01

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

2011年5月22日星期日

[PerlChina] looking for a new maintainer of JavaScript-Beautifier

I'm looking for a new maintainer of my module
http://search.cpan.org/dist/JavaScript-Beautifier/ because my life is
kindly busy recently.

basically this module does the same as http://jsbeautifier.org/
the git repos is https://github.com/fayland/perl-javascript-beautifier
the original js (now it has Python too) is https://github.com/einars/js-beautify

it's basically a Perl port of the Javascript. all you need to know is
Javascript (or Python if you prefer) and Perl.
the steps will be:
1. fork my respo
2. update the Perl tests with
https://github.com/einars/js-beautify/blob/master/tests/beautify-tests.js
3. update the Perl main code to pass the tests.
4. package it and upload it to PAUSE (I'll make you co-maintainer
first, and pass the maintainer-ship to you if you want)

I can provide any help if need (but don't rely on me too much b/c I'm
busy). let me know if you're interested. it's a good opportunity to
get involved to CPAN and Perl.

Thanks.

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