Perlデバッガで命令点を移動するにはどうすればよいですか？

Question

Perlデバッガで私の実行ポイントを（合理的に）任意に設定できるようにしたいと思います。たとえば、ifの直前にifの本文から移動し、変数を設定します。

perldebug（とperldebgutsとperlデバッガーPOD）ページをぶらつくと、この種の機能がサポートされていないか、または文書化されていないことが示唆されます。

Answer 1

これは既存のデバッガでは実行できません。

Answer 2

ブレークポイントは、ステートメントの最初の行にのみ設定できます。

Answer 3

コード全体にラベルと条件付きgotoステートメントを追加するのは面倒な回避策です。しかし、この機能をエミュレートするのがどれほど難しいかによっては、それが価値があるかもしれません。

POINT1: $GOTO="";  # $GOTO is our fake variable that we only set from the debugger 
($a,$b,$c)=(1,2,3); 
POINT2: $GOTO=""; 
if ($a < $b) { 
    goto $GOTO if $GOTO; 
    if ($a > $c) { 
     goto $GOTO if $GOTO; 
     print "foo\n"; 
    } else { 
     goto $GOTO if $GOTO; 
     print "bar\n"; 
    } 
    goto $GOTO if $GOTO; 
} else { 
    goto $GOTO if $GOTO; 
    print "nothing\n"; 
    goto $GOTO if $GOTO; 
} 

サンプルデバッグセッション：

$ perl -d debuggoto.pl 

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

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

main::(debuggoto.pl:1): POINT1: $GOTO="";  # $GOTO is our fake variable that we only set from the debugger 
    DB<1> n 
main::(debuggoto.pl:2): ($a,$b,$c)=(1,2,3); 
    DB<1> 
main::(debuggoto.pl:3): POINT2: $GOTO=""; 
    DB<1> 
main::(debuggoto.pl:4): if ($a < $b) { 
    DB<1> 
main::(debuggoto.pl:5): goto $GOTO if $GOTO; 
    DB<1> 
main::(debuggoto.pl:6): if ($a > $c) { 
    DB<1> 
main::(debuggoto.pl:10):    goto $GOTO if $GOTO; 
    DB<1> 
main::(debuggoto.pl:11):    print "bar\n"; 
    DB<1> 
bar 
main::(debuggoto.pl:13):   goto $GOTO if $GOTO; 
    DB<1> $GOTO="POINT2" 

    DB<2> n 
main::(debuggoto.pl:3): POINT2: $GOTO=""; 
    DB<2> $c=0 

    DB<3> n 
main::(debuggoto.pl:4): if ($a < $b) { 
    DB<3> 
main::(debuggoto.pl:5): goto $GOTO if $GOTO; 
    DB<3> 
main::(debuggoto.pl:6): if ($a > $c) { 
    DB<3> 
main::(debuggoto.pl:7):  goto $GOTO if $GOTO; 
    DB<3> 
main::(debuggoto.pl:8):  print "foo\n"; 
    DB<3> 
foo 
main::(debuggoto.pl:13):   goto $GOTO if $GOTO; 
    DB<3> 
Debugged program terminated. Use q to quit or R to restart, 
    use o inhibit_exit to avoid stopping after program termination, 
    h q, h R or h o to get additional info. 
    DB<3> 
Use `q' to quit or `R' to restart. `h q' for details. 
    DB<3> 

このアイデアを使用して、デバッガを構築することが可能になるのだろうか。

Answer 4

私はまだこれが達成されるとは確信していませんが、あなたが気にしない操作をスキップするカスタムランローフは、あなたの問題を解決するかもしれないという思いがあります。

カーゴ・カルトへのラン・ループは、Runops::Switchです。 switch文を削除し、実行したい操作があるまで操作をスキップする関数を作成します。実際にそのオペレーションを実行するために通常のrunloopを呼び出してください。

関連するコード：http://cpansearch.perl.org/src/RGARCIA/Runops-Switch-0.04/Switch.xs

これは、すべてのhandwavingですが、私は前に実行ループを書いたことがありません。別の投稿のgotoのアイデアも良いですが、これは少ないコードを書くことです。