3

在使用 perl 调试器时,有没有办法跳出当前循环?

例如:

line 1
for($i=1;$i<100000:$i++)
{
    line2
}
line3

我希望调试器跳出这个for循环并在第 3 行停止

4

4 回答 4

7
c 5

示范:

>perl -d

Loading DB routines from perl5db.pl version 1.33
Editor support available.

Enter h or `h h' for help, or `perldoc perldebug' for more help.

print "line1\n";
for (1..100000) {
   print "line2\n";
}
print "line3\n";
^Z
main::(-:1):    print "line1\n";

  DB<1> s
line1
main::(-:2):    for (1..100000) {

  DB<1> s
main::(-:3):       print "line2\n";

  DB<1> s
line2
main::(-:3):       print "line2\n";

  DB<1> c 5
line2
line2
line2
...
line2
line2
line2
main::(-:5):    print "line3\n";

  DB<2> s
line3
Debugged program terminated.  Use q to quit or R to restart,
于 2012-06-23T21:36:19.343 回答
2

您可以设置循环终止条件:

$i=100000

精心制作的?只需将变量设置为退出条件,如下所示:

  DB<5> $i=1

  DB<6> print $i
1
  DB<7> $i=100000

  DB<8> print $i
100000
  DB<9> c
Debugged program terminated.  Use q to quit or R to restart,
于 2012-06-23T21:46:49.653 回答
1

c 3表示继续执行并在第 3 行停止

于 2012-06-23T21:40:34.450 回答
0

没有一步。您可以在“第 3 行”设置断点并继续“c”到下一个断点,或者明确声明c <line #>在特定行处停止。

于 2012-06-23T21:42:40.623 回答