perl - 在 Perl 调试器中，如何在所需文件的特定行上中断？

Question

我有一个 Perl 脚本，我们称之为 A.pl前两行看起来像这样:

 require 'B.pl';
 require 'C.pl';

其中 B.pl和 C.pl每个人都有自己的需求行列。我需要在 C.pl 的特定行上设置断点.在 GDB 中，我会做类似的事情:

b C.pl:830

然而，这似乎根本不起作用。是否可以？我接近了吗？

Answer 1

我更喜欢调试器的“R”(重新启动)命令的廉价技巧。这是一个示例程序:

#/usr/bin/perl -d
use strict;
use warnings;
use WWW::Mechanize;

my $agent = WWW::Mechanize->new();

让我们假设我们想在 LWP::UserAgent 的 new() 方法上中断。做这个:

bash$ perl -d sample.pl --whatever-arguments
Loading DB routines from perl5db.pl version 1.37
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(use_mech.pl:7):  my $foo = WWW::Mechanize::Pluggable->new();

加载要设置断点的模块:

  DB<1> use LWP::UserAgent 

打印其@INC 条目以找出您刚刚加载的文件(需要执行“f”命令):

  DB<2> p $INC{"LWP/UserAgent.pm"}
/Users/joemcmahon/perl5/perlbrew/perls/perl-5.16.0/lib/site_perl/5.16.0/LWP/UserAgent.pm

使用 'f' 切换到该文件:

  DB<3> f /Users/joemcmahon/perl5/perlbrew/perls/perl-5.16.0/lib/site_perl/5.16.0/LWP/UserAgent.pm
1   package LWP::UserAgent;
2   
3:  use strict;
4:  use vars qw(@ISA $VERSION);
5   
6:  require LWP::MemberMixin;
7:  @ISA = qw(LWP::MemberMixin);
8:  $VERSION = "6.04";
9   
10: use HTTP::Request ();

我们要闯入 new()，所以找到它:

  DB<4> /new
20: sub new

通过 'l' 找到 sub 中的第一个可执行语句:

  DB<5> l
20  sub new
21  {
22      # Check for common user mistake
23:     Carp::croak("Options to LWP::UserAgent should be key/value pairs, not hash reference") 
24          if ref($_[1]) eq 'HASH'; 
25  
26:     my($class, %cnf) = @_;
27  
28:     my $agent = delete $cnf{agent};
29:     my $from  = delete $cnf{from};

在这一行设置断点:

  DB<5> b 23

重启调试器:

  DB<6> R
Warning: some settings and command-line options may be lost!

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

Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(use_mech.pl:7):  my $foo = WWW::Mechanize::Pluggable->new();

运行程序，你会在你想要的地方中断。

  DB<6> c
LWP::UserAgent::new(/Users/joemcmahon/perl5/perlbrew/perls/perl-5.16.0/lib/site_perl/5.16.0/LWP/UserAgent.pm:23):
23:     Carp::croak("Options to LWP::UserAgent should be key/value pairs, not hash reference") 
24:         if ref($_[1]) eq 'HASH'; 
  DB<6> 

这种技术对于调试 import() 问题特别方便；您可以加载有问题的模块。在 import() 中设置断点，然后重新启动。调试器将在您感兴趣的模块的 import() 中停止。