按你自己喜欢的语法写perl程序（转译）

xiaoyafeng

UID: 44542
帖子: 17
积分: 39
在线时间: 10 分钟

1^# xiaoyafeng 发表于 2007-09-06 10:31

按你自己喜欢的语法写perl程序（转译）

perl当然是一门非常棒的语言，不过它当然也不完美。很多时候，一些很自然的解决方法却不能和它很‘自然’的吻合。有时候你会想，要是让perl按照你的语法来就好了；）例如， perl的例程不能指定参数列表一直非议很大，比如你不能这样写：

[Copy to clipboard] [ - ]

CODE:

my @NUMERAL_FOR = (0..9,'A'..'Z');

sub convert_to_base($base, $number)
{
my $converted  = "";
while ($number > 0)
{
      $converted = $NUMERAL_FOR[$number % $base] . $converted;
      $number = int( $number / $base);
}
return $converted;
}

你只能这样：

[Copy to clipboard] [ - ]

CODE:

sub convert_to_base
{
my ($base, $number) = @_; # <-- 只能手工指定参数。。。。

my $converted    = ''
while ($number > 0)
{
      $converted    = $NUMERAL_FOR[$number % $base] . $converted;
      $number       = int( $number / $base);
}

return $converted;
}

perl程序员的优点（缺点？）之一就是懒惰，所以很多很多人这样写：

[Copy to clipboard] [ - ]

CODE:

sub convert_to_base
{
my $converted  = '';

while ($_[1] > 0)
{
      $converted = $NUMERAL_FOR[$_[1] % $_[0]] . $converted;
      $_[1]    = int( $_[1] / $_[0]);
}

return $converted;
}

天哪，对于后来的维护人员来说，简直是噩梦！（这个人往往是你自己，不过过了几个月之后，你可能也要重新看代码。）解决方案：perl 并不完美，不过你可以自己动手让它完美。perl 5.8以后的版本，提供了一种方法，可以在源代码送入编译器以前，用你希望的方式先做某些改变。这里我介绍一种最简单的办法: 用Filter::Simple来写自己的模块以修改perl语法。其实思路很简单，perl编译器只会关心最终送过来的源代码，我们只要使用filter模块把源代码变成编译器能够识别就行了。下面的简单例子，就使perl的例程增加了参数声明功能：

[Copy to clipboard] [ - ]

CODE:

package Sub::With:arams;
use Filter::Simple;
my $IDENT = qr/[^\\W\\d]\\w*/;
FILTER_ONLY code => sub{ s{ ( sub \\s* $IDENT \\s* ) # 例程名
                                                      ( \$ .*? \$       ) # 参数列表
                                                      ( \\s* \\{          ) # 例程体 }
                                                {$1$3 my $2 = \\@_;}gxs; #替换为编译器认识的代码};
1;

大功告成！现在你可以高高兴兴的按照下面的方式来写：

[Copy to clipboard] [ - ]

CODE:

use Sub::With:arams;
sub convert_to_base($base, $number)
{
my $converted  = '';
while ($number > 0) {
$converted = $NUMERAL_FOR[$number % $base] . $converted;
$number = int( $number / $base); }

return $converted;}

在送到编译器以前，Sub::With:arams 会把你的代码转成以下形式：

[Copy to clipboard] [ - ]

CODE:

sub convert_to_base { my ($base, $number) = @_;
my $converted  = '';
while ($number > 0) {
$converted = $NUMERAL_FOR[$number % $base] . $converted;
$number = int( $number / $base); }
return $converted;}

怎么样？很简单吧。这是大面先生的优秀作品，也是5.8以后的标准模块。大家可以用perldoc 查看详细用法。

xiaoyafeng

UID: 44542
帖子: 17
积分: 39
在线时间: 10 分钟

2^# xiaoyafeng 发表于 2007-09-06 10:49

各位哪个给我排一下版？这么好的文章不搞漂亮点可惜了。

nkcsx

UID: 10161
帖子: 193
积分: 443
在线时间: 2 天 2 小时

3^# nkcsx 发表于 2007-09-06 11:23

天哪你真懒

perl当然是一门非常棒的语言，不过它当然也不完美。很多时候，一些很自然的解决方法却不能和它很‘自然’的吻合。有时候你会想，要是让perl按照你的语法来就好了；）例如， perl的例程不能指定参数列表一直非议很大，比如你不能这样写：

[Copy to clipboard] [ - ]

CODE:

my @NUMERAL_FOR = (0..9,'A'..'Z');

sub convert_to_base($base, $number)
{
my $converted  = "";
while ($number > 0)
{
      $converted = $NUMERAL_FOR[$number % $base] . $converted;
      $number = int( $number / $base);
}
return $converted;
}

你只能这样：

[Copy to clipboard] [ - ]

CODE:

sub convert_to_base
{
my ($base, $number) = @_; # <-- 只能手工指定参数。。。。

my $converted    = ''
while ($number > 0)
{
      $converted    = $NUMERAL_FOR[$number % $base] . $converted;
      $number       = int( $number / $base);
}

return $converted;
}

perl程序员的优点（缺点？）之一就是懒惰，所以很多很多人这样写：

[Copy to clipboard] [ - ]

CODE:

sub convert_to_base
{
my $converted  = '';

while ($_[1] > 0)
{
      $converted = $NUMERAL_FOR[$_[1] % $_[0]] . $converted;
      $_[1]    = int( $_[1] / $_[0]);
}

return $converted;
}

天哪，对于后来的维护人员来说，简直是噩梦！（这个人往往是你自己，不过过了几个月之后，你可能也要重新看代码。）

解决方案：perl 并不完美，不过你可以自己动手让它完美。perl 5.8以后的版本，提供了一种方法，可以在源代码送入编译器以前，用你希望的方式先做某些改变。这里我介绍一种最简单的办法: 用Filter::Simple来写自己的模块以修改perl语法。其实思路很简单，perl编译器只会关心最终送过来的源代码，我们只要使用 filter模块把源代码变成编译器能够识别就行了。下面的简单例子，就使perl的例程增加了参数声明功能：

[Copy to clipboard] [ - ]

CODE:

package Sub::With:arams;

use Filter::Simple;

my $IDENT = qr/[^\\W\\d]\\w*/;

FILTER_ONLY code => sub {
      s{
         ( sub \\s* $IDENT \\s* ) # 例程名
         ( \$ .*? \$       ) # 参数列表
         ( \\s* \\{          ) # 例程体
      }
      {
         $1$3 my $2 = \\@_;
      }gxs; #替换为编译器认识的代码
};

1;

大功告成！现在你可以高高兴兴的按照下面的方式来写：

[Copy to clipboard] [ - ]

CODE:

use Sub::With:arams;

sub convert_to_base($base, $number) {
      my $converted = '';
      while ( $number > 0 ) {
            $converted = $NUMERAL_FOR[ $number % $base ] . $converted;
            $number = int( $number / $base );
      }

      return $converted;
}

在送到编译器以前，Sub::With:arams 会把你的代码转成以下形式：

[Copy to clipboard] [ - ]

CODE:

sub convert_to_base {
      my ( $base, $number ) = @_;
      my $converted = '';
      while ( $number > 0 ) {
            $converted = $NUMERAL_FOR[ $number % $base ] . $converted;
            $number = int( $number / $base );
      }
      return $converted;
}

怎么样？很简单吧。这是大面先生的优秀作品，也是5.8以后的标准模块。大家可以用perldoc 查看详细用法。

xiaoyafeng

UID: 44542
帖子: 17
积分: 39
在线时间: 10 分钟

4^# xiaoyafeng 发表于 2007-09-06 11:30

多谢楼上，终于有一个人回帖，让我心里没有打击太大。我本打算吃饭回来还没有人回，就删贴。

bilbo0214

UID: 13080
帖子: 4
积分: 9
在线时间: 10 分钟

5^# bilbo0214 发表于 2007-09-06 11:55

顶！！！！！！！！！

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

6^# perljoker 发表于 2007-09-06 13:55

我是看了，但是，发现你文章里面本来就有[code]...[//code]这样的东西

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

7^# perljoker 发表于 2007-09-06 13:59

我倒，flw老大，为什么他刚才代码没识别为code，什么地方错了？

按你自己喜欢的语法写perl程序 （转译）

按你自己喜欢的语法写perl程序 （转译）

按你自己喜欢的语法写perl程序（转译）

按你自己喜欢的语法写perl程序（转译）