Print debugging statement: Difference between revisions
Added Perl example
m (→{{header|REXX}}: added a programming note about the cause of the error.) |
SqrtNegInf (talk | contribs) (Added Perl example) |
||
Line 118:
value: &main.point{x:2, y:3}
</pre>
=={{header|Perl}}==
<code>Carp</code> is a core module, always available.
<lang perl>use Carp;
$str = 'Resistance'; carp "'$str' is futile."; print "\n";
doodle($str); print "\n";
fiddle(7);
sub doodle { my ($str) = @_; carp "'$str' is still futile." }
sub fiddle { faddle(2*shift) }
sub faddle { fuddle(3*shift) }
sub fuddle { ( carp("'$_[0]', interesting number.") ); }</lang>
{{out}}
<pre>'Resistance' is futile. at printf_debug.pl line 11.
'Resistance' is still futile. at printf_debug.pl line 17.
main::doodle("Resistance") called at printf_debug.pl line 13
'42', interesting number. at printf_debug.pl line 21.
main::fuddle(42) called at printf_debug.pl line 20
main::faddle(14) called at printf_debug.pl line 19
main::fiddle(7) called at printf_debug.pl line 15</pre>
=={{header|Perl 6}}==
| |||