用于跟踪变量的代码[记录转于CU]

在附件中是我这几天写的一个可以用于跟踪变量的代码.
它的使用方法是在你要跟踪的代码中加入下面的一段
CODE:
[Copy to clipboard]
    BEGIN{
        push (@INC,".") ;
        use DebugTie;
        tie(
            $variable_you_watching,
            DebugTie,
            name => "variable_name"
        );
    }上面是你可以跟踪标量,如果是数组
CODE:
[Copy to clipboard]
BEGIN{
        push (@INC,".");
        use DebugTie;
        tie(
            @variable_you_watching,
            DebugTie,
            name => "variable_name"
        );
    }HASH表也是相似
CODE:
[Copy to clipboard]
    BEGIN{
        push (@INC,".");
        use DebugTie;
        tie(
            %variable_you_watching,
            DebugTie,
            name => "variable_name"
        );
    }其中有代码可以使你动态跟踪,这个可以在命令行中指定.指定的方法是
QUOTE:
-ts scalar_variable_name
-th hash_variable_name
-ta array_variable_name下面是可以使用的代码,在下载的文件中也有
不过在BEGIN中也要加入下面的代码
CODE:
[Copy to clipboard]
    BEGIN{
         PREPARSE();
    }
CODE:
[Copy to clipboard]
sub PREPARSE
{
    use constant HASH_TIE => 1;
    use constant ARRAY_TIE => 2;
    use constant SCALAR_TIE => 3;
    my $i;
    for ($i=0;$i = @ARGV)
            {
                die "not good ".$ARGV[$i]."\n";
            }
            $code = "tie (";
            if ($setval == HASH_TIE)
            {

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有