Breakpoints ? (gelöst) - #193308 (Allgemeines zu Perl)

haj

2021-05-27 14:49

User since
2015-01-07
557 Artikel
BenutzerIn

user image

Da gibt's zwei Möglichkeiten, beschrieben in Perldoc:

perldebug:

Mit einer Datei .perldb:

Diese Datei liest der Debugger beim Startup. In der kann man eine Routine afterinit deklarieren, die ein paar Kommandos gleich nach dem Starten ausführt (beschrieben im Abschnitt "Debugger Customization"):

Code (perl): (dl )

sub afterinit { push @DB::typeahead, 'b 123 $zeile eq "test"'; }

Da steht allerdings auch, dass das keine garantierte Schnittstelle des Debuggers ist, das kann in späteren Versionen wieder verschwinden.

Im zu testenden Perl-Code selbst:

Wenn Perl mit -d gestartet wurde, dann hält der Code an, wenn die Variable $DB::single gesetzt ist. Zum Beispiel so:

Code (perl): (dl )

use 5.020;

my $zeile = 'toast';

$DB::single = $zeile eq 'test';

say "Los geht's!";

$zeile = 'test';

$DB::single = $zeile eq 'test';

say "Und weiter geht's...";

Wenn das mit perl -d gestartet wird und dann nach Eingabe von c losläuft, dann hält es nach der Ausabe von Los geht's! an.