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

xiaoyafeng

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

1. my @NUMERAL_FOR    = (0..9,'A'..'Z');
   
2. 
   
3. sub convert_to_base($base, $number)
   
4. {
   
5.     my $converted  = "";
   
6.     while ($number > 0)
   
7.     {
   
8.         $converted = $NUMERAL_FOR[$number % $base] . $converted;
   
9.         $number    = int( $number / $base);
   
10.     }
    
11.     return $converted;
    
12. }

复制代码

你只能这样：

1. sub convert_to_base
   
2. {
   
3.     my ($base, $number) = @_;   # <-- 只能手工指定参数。。。。
   
4. 
   
5.     my $converted       = ''
   
6.     while ($number > 0)
   
7.     {
   
8.         $converted      = $NUMERAL_FOR[$number % $base] . $converted;
   
9.         $number         = int( $number / $base);
   
10.     }
    
11. 
    
12.     return $converted;
    
13. }

复制代码

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

1. sub convert_to_base
   
2. {
   
3.     my $converted  = '';
   
4. 
   
5.     while ($_[1] > 0)
   
6.     {
   
7.         $converted = $NUMERAL_FOR[$_[1] % $_[0]] . $converted;
   
8.         $_[1]      = int( $_[1] / $_[0]);
   
9.     }
   
10. 
    
11.     return $converted;
    
12. }

复制代码

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

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

复制代码

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

1. use Sub::With:arams;
   
2. sub convert_to_base($base, $number)
   
3. {   
   
4. my $converted  = '';   
   
5. while ($number > 0)    {        
   
6. $converted = $NUMERAL_FOR[$number % $base] . $converted;      
   
7. $number    = int( $number / $base);    }   
   
8. 
   
9. return $converted;}

复制代码

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

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

复制代码

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

[ 本帖最后由 flw 于 2007-9-6 13:58 编辑 ]

xiaoyafeng

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

nkcsx

天哪你真懒

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

1. my @NUMERAL_FOR    = (0..9,'A'..'Z');
   
2. 
   
3. sub convert_to_base($base, $number)
   
4. {
   
5.     my $converted  = "";
   
6.     while ($number > 0)
   
7.     {
   
8.         $converted = $NUMERAL_FOR[$number % $base] . $converted;
   
9.         $number    = int( $number / $base);
   
10.     }
    
11.     return $converted;
    
12. }

复制代码

你只能这样：

1. sub convert_to_base
   
2. {
   
3.     my ($base, $number) = @_;   # <-- 只能手工指定参数。。。。
   
4. 
   
5.     my $converted       = ''
   
6.     while ($number > 0)
   
7.     {
   
8.         $converted      = $NUMERAL_FOR[$number % $base] . $converted;
   
9.         $number         = int( $number / $base);
   
10.     }
    
11. 
    
12.     return $converted;
    
13. }

复制代码

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

1. sub convert_to_base
   
2. {
   
3.     my $converted  = '';
   
4. 
   
5.     while ($_[1] > 0)
   
6.     {
   
7.         $converted = $NUMERAL_FOR[$_[1] % $_[0]] . $converted;
   
8.         $_[1]      = int( $_[1] / $_[0]);
   
9.     }
   
10. 
    
11.     return $converted;
    
12. }

复制代码

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

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

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

复制代码

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

1. use Sub::With:arams;
   
2. 
   
3. sub convert_to_base($base, $number) {
   
4.         my $converted = '';
   
5.         while ( $number > 0 ) {
   
6.                 $converted = $NUMERAL_FOR[ $number % $base ] . $converted;
   
7.                 $number    = int( $number / $base );
   
8.         }
   
9. 
   
10.         return $converted;
    
11. }

复制代码

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

1. sub convert_to_base {
   
2.         my ( $base, $number ) = @_;
   
3.         my $converted = '';
   
4.         while ( $number > 0 ) {
   
5.                 $converted = $NUMERAL_FOR[ $number % $base ] . $converted;
   
6.                 $number    = int( $number / $base );
   
7.         }
   
8.         return $converted;
   
9. }

复制代码

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

[ 本帖最后由 nkcsx 于 2007-9-6 12:25 编辑 ]

xiaoyafeng

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

bilbo0214

顶！！！！！！！！！

[ 本帖最后由 bilbo0214 于 2007-9-6 11:56 编辑 ]

perljoker

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

[ 本帖最后由 perljoker 于 2007-9-6 13:58 编辑 ]

perljoker

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