Perl Language - Revision history

Iwiseman: /* Example */

2026-02-11T01:43:56Z

Example

2026-02-11T01:43:18Z

Example

@@ Line 217: / Line 217: @@
 == Example ==
 To add a breakpoint a line 17
 <syntaxhight lang="text">
 b script/app.pl:17

2026-02-11T01:42:27Z

Example

@@ Line 216: / Line 216: @@
 * Use '''x''' instead of '''p''' for complex structures.
 == Example ==
 To add a breakpoint a line 17
 <syntaxhight lang="text">

2026-02-11T01:41:19Z

Example

← Older revision		Revision as of 01:41, 11 February 2026
Line 216:		Line 216:
	* Use '''x''' instead of '''p''' for complex structures.		* Use '''x''' instead of '''p''' for complex structures.
	== Example ==		== Example ==
			<syntaxhight lang="perl" lines>
	#!/usr/bin/env perl		#!/usr/bin/env perl
	use Mojolicious::Lite;		use Mojolicious::Lite;
Line 226:		Line 227:
	"dbi:Pg:dbname=dvdrental;host=192.168.1.220",		"dbi:Pg:dbname=dvdrental;host=192.168.1.220",
	"rest_user",		"rest_user",
	"~~H1stage5!!!!~~",		"NotSaying",
	{ RaiseError => 1, AutoCommit => 1 }		{ RaiseError => 1, AutoCommit => 1 }
	);		);

2026-02-11T01:39:54Z

Example: Break Before Line 17

2026-02-11T01:39:34Z

Example

← Older revision		Revision as of 01:39, 11 February 2026
Line 216:		Line 216:
	* Use '''x''' instead of '''p''' for complex structures.		* Use '''x''' instead of '''p''' for complex structures.
	== Example ==		== Example ==
	~~Given script/app.pl~~		#!/usr/bin/env perl
	~~<syntaxhighlight lang="perl" line>~~		use Mojolicious::Lite;
	#!/usr/bin/env perl		use feature 'signatures';
	use Mojolicious::Lite;		no warnings 'experimental::signatures';
	use feature 'signatures';		use DBI;
	no warnings 'experimental::signatures';
	use DBI;		helper db => sub {
			state $dbh = DBI->connect(
	helper db => sub {		"dbi:Pg:dbname=dvdrental;host=192.168.1.220",
	state $dbh = DBI->connect(		"rest_user",
	"dbi:Pg:dbname=dvdrental;host=192.168.1.220",		"H1stage5!!!!",
	1 "rest_user",		{ RaiseError => 1, AutoCommit => 1 }
	11 "H1stage5!!!!",		);
	12 { RaiseError => 1, AutoCommit => 1 }		};
	13 );
	14 };		get '/films' => sub ($c) {
	15		my $sth = $c->db->prepare("SELECT film_id, title FROM film LIMIT 10");
	16 get '/films' => sub ($c) {		$sth->execute;
	17 my $sth = $c->db->prepare("SELECT film_id, title FROM film LIMIT 10");		$c->render(json => $sth->fetchall_arrayref({}));
	18 $sth->execute;		};
	19 $c->render(json => $sth->fetchall_arrayref({}));
	20 };		app->start;
	21
	22 app->start;
	</syntaxhighlight>		</syntaxhighlight>
	To add a breakpoint a line 17		To add a breakpoint a line 17

2026-02-11T01:39:12Z

Example

← Older revision		Revision as of 01:39, 11 February 2026
Line 218:		Line 218:
	Given script/app.pl		Given script/app.pl
	<syntaxhighlight lang="perl" line>		<syntaxhighlight lang="perl" line>
	1 #!/usr/bin/env perl		#!/usr/bin/env perl
	2 use Mojolicious::Lite;		use Mojolicious::Lite;
	3 use feature 'signatures';		use feature 'signatures';
	4 no warnings 'experimental::signatures';		no warnings 'experimental::signatures';
	5 use DBI;		use DBI;
	6
	7 helper db => sub {		helper db => sub {
	8 state $dbh = DBI->connect(		state $dbh = DBI->connect(
	9 "dbi:Pg:dbname=dvdrental;host=192.168.1.220",		"dbi:Pg:dbname=dvdrental;host=192.168.1.220",
	10 "rest_user",		1 "rest_user",
	11 "H1stage5!!!!",		11 "H1stage5!!!!",
	12 { RaiseError => 1, AutoCommit => 1 }		12 { RaiseError => 1, AutoCommit => 1 }

2026-02-11T01:38:26Z

Example

← Older revision		Revision as of 01:38, 11 February 2026
Line 217:		Line 217:
	== Example ==		== Example ==
	Given script/app.pl		Given script/app.pl
	<~~syntaxhight~~ lang="~~text~~">		<syntaxhighlight lang="perl" line>
	1 #!/usr/bin/env perl		1 #!/usr/bin/env perl
	2 use Mojolicious::Lite;		2 use Mojolicious::Lite;
Line 245:		Line 245:
	b script/app.pl:17		b script/app.pl:17
	</syntaxhighlight>		</syntaxhighlight>

	== Setting a Breakpoint Before the Debugger Starts ==		== Setting a Breakpoint Before the Debugger Starts ==

2026-02-11T01:37:42Z

Perl Debugger Quick Reference

@@ Line 215: / Line 215: @@
 * Use '''BEGIN { $DB::single = 1 }''' to simulate breakpoints.
 * Use '''x''' instead of '''p''' for complex structures.
 =Package Management=

2026-02-11T01:30:38Z

Perl Debugger Quick Reference

← Older revision		Revision as of 01:30, 11 February 2026
Line 86:		Line 86:
	= Perl Debugger Quick Reference =		= Perl Debugger Quick Reference =

	This page provides a concise reference for using the Perl debugger ('''perl -d'''), including breakpoints, stepping, ~~and~~ inspecting variables.		This page provides a concise reference for using the Perl debugger ('''perl -d'''), including breakpoints, stepping, inspecting variables, and quitting.

	== Starting the Debugger ==		== Starting the Debugger ==
Line 194:		Line 194:
	<syntaxhighlight lang="text">		<syntaxhighlight lang="text">
	T		T
			</syntaxhighlight>

			== Quitting the Debugger ==

			Quit the debugger:

			<syntaxhighlight lang="text">
			q
			</syntaxhighlight>

			Force quit (even if Perl warns about active subs):

			<syntaxhighlight lang="text">
			q!
	</syntaxhighlight>		</syntaxhighlight>