Perl调试器-如何跳出循环

在使用perl调试器时，是否有任何方法可以跳出当前循环

例如：

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

第1行
对于（$i=1；$i）
演示：

>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,

perl-d
从perl5db.pl版本1.33加载数据库例程
编辑器支持可用。
输入h或“h”以获取帮助，或输入“perldoc perldebug”以获取更多帮助。
打印“line1\n”；
对于（1..100000）{
打印“line2\n”；
}
打印“第3行\n”；
^Z
main:（：1）：打印“line1\n”；
DB s
第1行
main:（：2）：用于（1..100000）{
DB s
main:（：3）：打印“line2\n”；
DB s
第2行
main:（：3）：打印“line2\n”；
DB c 5
第2行
第2行
第2行
...
第2行
第2行
第2行
main:（：5）：打印“line3\n”；
DB s
第3行
已调试程序已终止。请使用q退出，或使用R重新启动，

c3

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

没有跳出。

---

您可以在“第3行”上设置断点并继续“c”到下一个断点，或者显式地声明

c

在特定行停止。

您只需设置循环终止条件：

$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,

DB$i=1
DB打印$i
1.
DB$i=100000
DB打印$i
100000
分贝c
已调试程序已终止。请使用q退出，或使用R重新启动，

  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,