perl的模块是如何修改perl本身的？

billypeng

随着学习perl的逐渐深入，我发现perl的module似乎可以修改或者增强perl语言的本身。
例如cpan中有一个模块switch，模拟c中的switch语句，使用以后看起来，perl中真正实现了switch似的。

使用IO::File以后，FILEHANDLE就成了一个对象。

还有象WeakRef模块，也深入到了perl的内部。

我所知道的其他语言都没这种功能，只有c++的运算符重载，看起来有些象。

这种功能非常奇妙，但我暂时没有时间和精力深入分析其实现过程，请问谁能简单介绍一下，或者推荐一篇文章参考参考？

lileding

perl programming
chapter 13, 14

Qiang

Perl 里这样的情况并不少见。 非模块的 例如 Perl OO 是 Perl 5 才加进去的。还有 Exception 的功能（ 通常使用 Exception::Class 来实现  http://search.cpan.org/perldoc?Exception::Class)

没有什么好的资源推荐给你， 因为我对这方面也没有深入的了解。 或者 Perl Internal 这本书吧。 http://www.faqs.org/docs/perl5int/

英文好的话就去 perlmonk.org 里问问。Perl 社区的很多人都在那里，更容易得到全面的答案。

skrypto

我从perldoc overload初步了解一点运算符加载

CPAN 上有个Number::Fraction的模块，用来做分数算术运算，那里头就有运算符加载
的例子。

1. 
   
2. use overload
   
3.   q("") => 'to_string',
   
4.   '0+' => 'to_num',
   
5.   '+' => 'add',
   
6.   '*' => 'mult',
   
7.   '-' => 'subtract',
   
8.   '/' => 'div',
   
9.   fallback => 1;
   

复制代码

1. 
   
2. $ perl -e'
   
3. use Number::Fraction;
   
4. $san_fen_zhi_yi = new Number::Fraction("1/3");
   
5. $si_fen_zhi_yi = new Number::Fraction("1/4");
   
6. print $san_fen_zhi_yi - $si_fen_zhi_yi, "\n"'
   
7. 1/12
   

复制代码