perl学习笔记(10)

下载地址：
http://search.cpan.org/CPAN/authors/id/R/RO/ROBIN/PadWalker-1.9.tar.gz

解压：
# tar zxvf PadWalker-1.9.tar.gz

进入子目录后编译：
# cd PadWalker-1.9
# perl Makefile.PL
Checking if your kit is complete...
Looks good
Writing Makefile for PadWalker
Writing MYMETA.yml

测试：
# make test

安装：
# make install
?

练习(打印局部变量名)：

 
 

#!/usr/bin/perl?-w ?
  
  
use?PadWalker?qw(var_name); ?
  
  
?
  
  
sub?prt?{ ?
  
  

????????print?var_name(1,$_[0])?.?"=$_[0]n"; ?

  
  
} ?
  
  
?
  
  
my?$a1=100; ?
  
  
my?$a2=200; ?
  
  
my?$a3=300; ?
  
  
?
  
  
prt($a1); ?
  
  
prt($a2); ?
  
  
prt($a3); ?
 
 

# perl f91.pl
$a1=100
$a2=200
$a3=300

全局变量似乎不能这么打印，可能是全局变量和局部变量的分配方式不一样，而PadWalker只开发了局部变量名的访问接口？或者是我没找到？哈，不管怎么说，能把（局部）变量名打印出来，挺有意义的一件事。

今天就到这里。