- 论坛徽章:
- 0
|
我现在要实现一个功能 用perl 分析 perl的程序
有没有能分析perl调用数据情况的模块
譬如:
程序test.pl
- my $file1 = '/home/xxx/';
- $file1 .= '1.txt';
- open(FF,$file1);
- while(<FF>){
- print;
- }
- close(FF);
- open(FF,">/home/xxx/xxx.tmp");
- print FF "testste";
- close(FF);
复制代码
我怎么能方便的得到 输入 /home/xxx/1.txt 和 输出/home/xxx/xxx.tmp 这两个文件的文件名
我找了 cpan 在 Devel::* 下的一些模块 没发现
有没有什么好方法 可以像 perl -d* test.pl 然后生成一个报告
btw: 请教过一位朋友 用 PERLDB_OPTS="NonStop frame=1 AutoTrace LineInfo=tperl.out" perl -dlane 'print $F[0]' /etc/xxx 可以求出一些信息
再分析 虽然能实现但是 不是特别方便
[ 本帖最后由 hitsubunnu 于 2009-2-16 17:31 编辑 ] |
|