用于跟踪变量的代码

jeppeter

在附件中是我这几天写的一个可以用于跟踪变量的代码.
它的使用方法是在你要跟踪的代码中加入下面的一段

1.     BEGIN{
   
2.         push (@INC,".") ;
   
3.         use DebugTie;
   
4.         tie(
   
5.             $variable_you_watching,
   
6.             DebugTie,
   
7.             name => "variable_name"
   
8.         );
   
9.     }

复制代码

上面是你可以跟踪标量,如果是数组

1. BEGIN{
   
2.         push (@INC,".");
   
3.         use DebugTie;
   
4.         tie(
   
5.             @variable_you_watching,
   
6.             DebugTie,
   
7.             name => "variable_name"
   
8.         );
   
9.     }

复制代码

HASH表也是相似

1.     BEGIN{
   
2.         push (@INC,".");
   
3.         use DebugTie;
   
4.         tie(
   
5.             %variable_you_watching,
   
6.             DebugTie,
   
7.             name => "variable_name"
   
8.         );
   
9.     }

复制代码

其中有代码可以使你动态跟踪,这个可以在命令行中指定.指定的方法是

-ts scalar_variable_name
-th hash_variable_name
-ta array_variable_name

下面是可以使用的代码,在下载的文件中也有
不过在BEGIN中也要加入下面的代码

1.     BEGIN{
   
2.          PREPARSE();
   
3.     }

复制代码

1. sub PREPARSE
   
2. {
   
3.     use constant HASH_TIE => 1;
   
4.     use constant ARRAY_TIE => 2;
   
5.     use constant SCALAR_TIE => 3;
   
6.     my $i;
   
7.     for ($i=0;$i < @ARGV;)
   
8.     {
   
9.         my $curarg = $ARGV[$i];
   
10.         my $setval = 0;
    
11.         my @args;
    
12.         my $code = undef;
    
13.         
    
14.         if ($curarg eq "-th")
    
15.         {
    
16.             $setval = HASH_TIE;
    
17.         }
    
18.         elsif ($curarg eq "-ta")
    
19.         {
    
20.             $setval = ARRAY_TIE;
    
21.         }
    
22.         elsif ($curarg eq "-ts")
    
23.         {
    
24.             $setval = SCALAR_TIE;
    
25.         }
    
26. 
    
27.         if ($setval)
    
28.         {
    
29.             if ( ($i + 1 ) >= @ARGV)
    
30.             {
    
31.                 die "not good ".$ARGV[$i]."\n";
    
32.             }
    
33.             $code = "tie (";
    
34.             if ($setval == HASH_TIE)
    
35.             {
    
36.                 $code .="%";
    
37.             }
    
38.             elsif ($setval == ARRAY_TIE)
    
39.             {
    
40.                 $code .= "@";
    
41.             }
    
42.             elsif ($setval == SCALAR_TIE)
    
43.             {
    
44.                 $code .= "\$";
    
45.             }
    
46.             $code .= $ARGV[$i+1] ;
    
47.             $code .= ",DebugTie,name=>\"";
    
48.             $code .= $ARGV[$i+1];
    
49.             $code .= "\");";
    
50. 
    
51.             eval "$code";
    
52.             splice (@ARGV,$i,2);
    
53.             
    
54.         }
    
55.         else
    
56.         {
    
57.             $i ++;
    
58.         }
    
59.     }
    
60. 
    
61. }

复制代码

福瑞哈哥

除夕夜，lz辛苦了，回头再看。

hongyunqi

没闹明白 是怎么跟踪变量的

作者可否给个例子啊

KevinLee39

perl -d 不好用?

hqyus

牛，你写了个pm.

robustkele

谢谢楼主，这个是个好东西