单步调试perl脚本.docxVIP

perl拥有诡异的语法，丰富的类库以及强大的功能，是系统管理员必备的脚本技能。学会debug perl，将使我们在调试perl脚本的过程中事半功倍，再也不用东print一下西print一下了。下面我们来看看如何对perl脚本进行单步跟踪。首先准备一个例程，test.pl，代码如下：?12345678910111213141516171819202122#!/usr/bin/perlusestrict;useIO::File;?my$fh= IO::File-new($fh){print($_);}$fh-close();subtestFunction(){my($a, $b) = @_;my$i= 0;while($i 100){$i+= 1;}}my$a1= hello world!;my@a2= (1,2,3,4,5,6);foreachmy$ii(@a2){print($ii.\n);}my%a3= (key1=val1,key2= val2, key3= val3);print($a3{key1});然后我们执行：perl -d test.pl进入perl的debug窗口。?123456789[root@cnsz12345 perl]# perl -d test.pl?Loading DB routines from perl5db.pl version 1.27Editor support available.?Enter h or `h h for help, or `man perldebugformorehelp.?main::(test.pl:5):????? my $fh = IO::File-new(DB1输入h能看到帮助，输入h h能看到更完整的帮助。?1234567891011121314151617181920212223242526List/searchsourcelines:?????????????? Control script execution:l [ln|sub]? List sourcecode??????????? T?????????? Stack trace- or .????? List previous/currentline? s [expr]??? Single step [inexpr]v[line]??? View around line??????????? n [expr]??? Next, steps over subsf filename? View sourceinfile?????????? Repeat last n or s/pattern/?patt??? Search forw/backw??? r?????????? Return from subroutineM?????????? Show module versions??????? c [ln|sub]? Continue untilpositionDebugger controls:??????????????????????? L?????????? List break/watch/actionso [...]???? Set debugger options??????? t [expr]??? Toggle trace [trace expr][]|{[{]|[] [cmd] Do pre/post-promptb [ln|event|sub] [cnd] Set breakpoint! [N|pat]?? Redo a previous command???? B ln|*????? Delete a/allbreakpointsH [-num]??? Display last num commands?? a [ln] cmd? Do cmd before line= [a val]?? Define/listan alias??????? A ln|*????? Delete a/allactionsh [db_cmd]? Get help on command???????? w expr????? Add a watchexpressionh h???????? Complete help page????????? W expr|*??? Delete a/allwatchexprs|[|]db_cmd? Send output to pager??????? ![!] syscmd Run cmd ina subprocessq or ^D???? Quit??????????????????????? R?????????? Attempt a restartD