Remove slow debug prints with "ifdef" type of pre processor pragma.

[kebabklubben.emp]

Hi!

Is there a way to remove slow debug prints with some kind of "ifdef"
type of pre processor pragma?

They are to slow when I ran big batch jobs, but neat to have durinf
development. Is there a way in Perl do define that debug prints are
skipped without any loop overhead?

Best Regards,
Andreas Lundgren - Sweden

 

[Ben Morrow]

Quoth (e-mail address removed):

Is there a way to remove slow debug prints with some kind of "ifdef"
type of pre processor pragma?

They are to slow when I ran big batch jobs, but neat to have durinf
development. Is there a way in Perl do define that debug prints are
skipped without any loop overhead?

perldoc constant

Ben

 

[Alan Stewart]

Hi!

Is there a way to remove slow debug prints with some kind of "ifdef"
type of pre processor pragma?

They are to slow when I ran big batch jobs, but neat to have durinf
development. Is there a way in Perl do define that debug prints are
skipped without any loop overhead?

Best Regards,
Andreas Lundgren - Sweden

use Smart::Comments;

"Smart comments provide an easy way to insert debugging and tracking
code into a program. They can report the value of a variable, track
the progress of a loop, and verify that particular assertions are
true.

Best of all, when you're finished debugging, you don't have to remove
them. Simply commenting out the use Smart::Comments line turns them
back into regular comments."

Alan

 

[Tad McClellan]

Is there a way to remove slow debug prints with some kind of "ifdef"
type of pre processor pragma?

No, but you can use constants, and let them be optimized away
by the compiler.


use constant DEBUG => 0;

if ( DEBUG ) {
# code here is optimized away
}

 

[Dr.Ruud]

Tad McClellan schreef:

kebabklubben.emp:

No, but you can use constants, and let them be optimized away
by the compiler.

use constant DEBUG => 0;

if ( DEBUG ) {
# code here is optimized away
}

.... and the surrounding if(){} structure as well.

perl -MO=Deparse -e'
use constant THE_END => 0;
if (THE_END and my $s = "Goodbye World") {
print "$s\n"
}
'
use constant ('THE_END', 0);
'???';