| 胶片25 关于子程序的一些说明-II |
 
|
- 你能预说明一个子程序, 用
- sub name; #在子程序实现以前的命令和使用
- 你能使用EVAL产生子程序或无名地:
- sub newprint{
- my $x = shift;
- return { my$y=shift;print"$x,$y!";}; #返回无名子程序
- }
- $h=newprint("Howdy"); #$h保留无名的子程序
- &$h("World"); #调用无名的子程序, 我们得到
- Howdy,World!被打印出
- 注意在无名子程序中的$x是局部的, 并保留$h中的值Howdy, 甚至当你再次调用
newprint时, 用
- $g=newprint("Greetings"); #$g有$x的另一个例子
| Copyright: NPACT |
|