用什么模块可以分析出 perl程序的 输入和输出文件的文件名

flw

原帖由 hitsubunnu 于 2009-2-17 00:00 发表
1.不如说说你取它干什么？

我这儿有一个写了很久很大的程序  没使用数据库   都是直接操作文件的 经过很多人更改过 因为历史问题  没有留下任何文档  现在程序出现问题时只能一行行代码看 经常为了找一个文件 ...

办法太多了。
我起码想到了三种。

先试试 ltrace 行不行。

hitsubunnu

原帖由 flw 于 2009-2-17 09:19 发表

办法太多了。
我起码想到了三种。

先试试 ltrace 行不行。

我现在的做法就是
用

1. 
   
2. PERLDB_OPTS="NonStop frame=1 AutoTrace LineInfo=tperl.out"
   

复制代码

分析 tperl.out 这个文件  取出 open所在行  

然后 在debug的时候 用b设置断点  在用p 获得 $file的 路径和文件名


另外两个方法是什么？

cobrawgl

我也有个办法，比较麻烦些

你把 open 包装一下，然后用 Hook::LexWrap;

cobrawgl

或者，你自己写个 debuger 算了

cobrawgl

终极解决办法，很简单的

你直接修改 perl 的源代码，把 open 那里修改一下，不就可以了嘛

hitsubunnu

原帖由 cobrawgl 于 2009-2-17 13:50 发表
我也有个办法，比较麻烦些

你把 open 包装一下，然后用 Hook::LexWrap;

Hook::LexWrap  这个模块  好像要和程序写在一起  不能从外面分析

谢谢

我正在研究怎么写一个debug程序  perl本身提供了个  DB 的模块 是开发debug程序的api  但是资料太少

cobrawgl

直接改 perl 可能更方便

DQP

借地方问个问题...
看到这个帖子, 我第一个想法是 把open包一下
于是我写了如下代码

1. 
   
2. sub print_param_wrap{
   
3.   my $fun = shift;
   
4.   return sub {
   
5.     print @_, caller(), "\n";
   
6.     $fun->(@_);
   
7.   };
   
8. }
   

复制代码

这个函数可以对我自己写的其他函数进行包装

1. 
   
2. sub foo{}
   
3. *foo =  print_param_wrap(\&foo);
   
4. foo(123);
   
5. ---------out put-------
   
6. 123maind:/HOME/tt.pl16
   

复制代码

可是对open这样的内置函数不起作用
为什么呢？ open特别在什么地方呢？

1. 
   
2. print *open;
   

复制代码

的结果是*main:pen没有看出什么特别的地方

MMMIX

看看 perlsub 中的 Overriding Built-in Functions 一节应该有帮助。

DQP

谢谢
大概理解了