use if: ? - #74320 (Allgemeines zu Perl)

bloonix

2007-02-14 13:37

User since
2005-12-17
1615 Artikel
HausmeisterIn

Code: (dl )

use strict;
use warnings;

BEGIN {
   $main::debug = defined $ARGV[0] ? $ARGV[0] : 0;
}

use if $main::debug, "Data::Dumper";

my $ref = {foo=>'bar'};

print Dumper($ref)
   if $main::debug;

#> ./test.pl 1 $VAR1 = { 'foo' => 'bar' };

Eine weitere Lösung wäre noch require.\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.