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

hitsubunnu

我现在要实现一个功能  用perl 分析 perl的程序

有没有能分析perl调用数据情况的模块  

譬如：
程序test.pl

1. 
   
2. my $file1 = '/home/xxx/';
   
3. $file1 .=  '1.txt';
   
4. 
   
5. open(FF,$file1);
   
6. while(<FF>){
   
7.    print;
   
8. }
   
9. close(FF);
   
10. 
    
11. open(FF,">/home/xxx/xxx.tmp");
    
12. print FF "testste";
    
13. close(FF);
    
14. 
    

复制代码

我怎么能方便的得到 输入  /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 编辑 ]

ly5066113

perldoc File::Basename

hitsubunnu

原帖由 ly5066113 于 2009-2-16 17:18 发表
perldoc File::Basename

不好意思没说清楚  我想要知道所有用open打开的所有文件的文件名

这个模块是 知道用open打开的是哪个文件后 再利用这个模块 找出路径和文件名  没有办法用去取得 open打开的是文件名

谢谢诶

[ 本帖最后由 hitsubunnu 于 2009-2-16 17:43 编辑 ]

ynchnluiti

原帖由 hitsubunnu 于 2009-2-16 17:30 发表
这个模块是 知道用open打开的是哪个文件后 再利用这个模块 找出路径和文件名  没有办法用去取得 open打开的是文件名

这句话好绕啊

MMMIX

原帖由 hitsubunnu 于 2009-2-16 17:30 发表


不好意思没说清楚  我想要知道所有用open打开的所有文件的文件名

根据 filehandle 找到它对应的文件名？

flw

原帖由 MMMIX 于 2009-2-16 17:56 发表

根据 filehandle 找到它对应的文件名？

而且不是在程序内，是在程序外。

如果运行时间比较长的话，lsof 一把应该会有收获。

ly5066113

原帖由 flw 于 2008-6-5 13:03 发表
不如说说你取它干什么？

BTW：我的签名里就有这个问题，典型的思路错误。

你要是仍然觉得没道理，那也没办法了。

MMMIX

原帖由 flw 于 2009-2-16 17:57 发表

而且不是在程序内，是在程序外。

即使在程序内，也不太好搞，除非自己写模块重载 open，不然的话，在运行时是无法找到都用 open 打开了哪些文件的，尤其是通过 open my $fh, ... 这种方式打开的文件，其 filehandle 根本就是匿名的，查符号表也查不到。

如果运行时间比较长的话，lsof 一把应该会有收获。

关了以后就查不到了吧？

hitsubunnu

1.不如说说你取它干什么？

我这儿有一个写了很久很大的程序  没使用数据库   都是直接操作文件的 经过很多人更改过 因为历史问题  没有留下任何文档  现在程序出现问题时只能一行行代码看 经常为了找一个文件是从哪里来的 花费很长时间 所以我现在希望能开发一个类似dubug分析perl的程序 能把程序 调用数据的情况 分析出来

2.根据 filehandle 找到它对应的文件名？

  主要就是想知道  整个程序的  从哪些文件取得的数据  最后生成了哪些文件  把所有调用过的文件记录下来

3.重载open 试验过了  没能实现


我的想法：

1.因为看到devel::* 下有一些可以  测试内存使用情况 或者是 程序执行时间分析的模块

所以我觉得. 应该可能会有一些模块涉及到 对输入输出文件做记录

2. perl在解释执行之前是不是会对文件位置做标记  比如说  open(FF,**) die "$!\n";

在判断 $! 信息 的时候  perl是怎么实现的 ？ 是不是能在perl解释执行前  做些事情


有没有谁接触过类似的东西 给个方向我去查一查

[ 本帖最后由 hitsubunnu 于 2009-2-17 00:08 编辑 ]

owl_winok

再试试重载open应该是不错的，或者都将老的open改为您的新Open函数，该Open函数除了open文件外，再记录些您想要的信息。