为什么在尝试显示源时出现.perldb别名语法错误？

Question

我想显示perl脚本的整个源代码。 将以下行添加到.perldb：

$DB::alias{'code'} = 'l 1+99999;';

.perldb chmod设置为700。发出别名后，出现以下错误：

  DB<1> code
Number found where operator expected at (eval 8)[/usr/share/perl5/perl5db.pl:2312] line 1, near "l 1"
    (Do you need to predeclare l?)
Couldn't evaluate `code' alias: syntax error at (eval 8)[/usr/share/perl5/perl5db.pl:2312] line 1, near "l 1"

别名似乎已正确加载：

  DB<2> =
code    l 1+100;

编辑 ：当我使用'='命令定义别名时，它按预期工作：

 DB<2> = code l 1+99999
shcd    = l 1+99999

  DB<3> =
code    l 1+99999

我做错了什么？

Answer 1

您必须声明别名code然后使用要运行的命令删除该内容。 因此，在.perldb内部执行替换命令来获取它，例如：

$DB::alias{ 'code' } = 's/^.*$/l 1+99999/';

然后在调试器中使用：

DB<100> code

它将输出脚本的全部代码（如果行数少于十万，则为:-）