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

MMMIX

原帖由 DQP 于 2009-2-17 17:08 发表
谢谢
大概理解了

你上面的例子调通了么？

DQP

通了 谢谢
而且看到了一种原先没用过的写法: local 的file handle

1. 
   
2. sub glob {
   
3.   my $pat = shift;
   
4.   my @got;
   
5.   local(*D);
   
6.   if (opendir D, '.') {
   
7.     @got = grep /$pat/, readdir D; closedir D;
   
8.   }
   
9.   @got;
   
10. }
    

复制代码

看来我需要重新找本Perl的书读了。。。。。。。

MMMIX

原帖由 DQP 于 2009-2-19 11:21 发表

看来我需要重新找本Perl的书读了。。。。。。。

看手册吧。

hitsubunnu

原帖由 DQP 于 2009-2-19 11:21 发表
通了 谢谢
而且看到了一种原先没用过的写法: local 的file handle

sub glob {
  my $pat = shift;
  my @got;
  local(*D);
  if (opendir D, '.') {
    @got = grep /$pat/, readdir D; closedir ...

麻烦 贴一下怎么包的 open

cobrawgl

use Hook::LexWrap;

wrap 'my_open', pre => sub {print @_;};

sub my_open {}


my $file1 = '/home/xxx/';
$file1 .=  '1.txt';

open(FF,$file1);
my_open(FF,$file1);
while(<FF>){
   print;
}
close(FF);

open(FF,">/home/xxx/xxx.tmp");
my_open(FF,">/home/xxx/xxx.tmp")
print FF "testste";
close(FF);


你在每个 open 语句下面再 copy 一个 my_open :mrgreen:

hitsubunnu

原帖由 cobrawgl 于 2009-2-19 13:13 发表
use Hook::LexWrap;

wrap 'my_open', pre => sub {print @_;};

sub my_open {}


my $file1 = '/home/xxx/';
$file1 .=  '1.txt';

open(FF,$file1);
my_open(FF,$file1);
while(){
   print;
...

谢谢  :wink:

兄弟这个和

1. 
   
2. 
   
3. open(FF,$file1);
   
4. 下插入一个
   
5. print $file1；
   
6. 
   

复制代码

效果差不多

[ 本帖最后由 hitsubunnu 于 2009-2-19 13:45 编辑 ]

DQP

我是这么做的
再单独写个文件

1. 
   
2. sub my_open{
   
3.   print @_, caller(), "\n";
   
4.   open($_[0], $_[1]);
   
5. }
   
6. *CORE::GLOBAL::open = \&my_open;
   
7. 
   
8. do 'your_program.pl';
   
9. 
   
10. 
    
11. ------------------------- your_program.pl ------------
    
12. 
    
13. open my $fh, "<cut.pl";
    
14. print <$fh>;
    
15. print "end\n";
    
16. 
    

复制代码

这样就不需要修改源文件了
或者可以将override open的代码写成个pm然后在debug时require进来
希望有帮助。。。

[ 本帖最后由 DQP 于 2009-2-19 14:38 编辑 ]

cobrawgl

谢谢

hitsubunnu

原帖由 DQP 于 2009-2-19 14:34 发表
我是这么做的
再单独写个文件

sub my_open{
  print @_, caller(), "\n";
  open($_[0], $_[1]);
}
*CORE::GLOBAL:pen = \&my_open;

do 'your_program.pl';


------------------------- your_ ...

非常感谢

cobrawgl

use Data::Dumper;

use subs 'open';

sub open {
  print Dumper [@_];
  CORE::open($_[0], $_[1]);
}

open FILE, '>test.txt';

print FILE "Hello, World...\n";

[ 本帖最后由 cobrawgl 于 2009-2-19 15:59 编辑 ]