Re: Why use warnings? -w

I think that to use strict is a good programming practice, like sane variable naming, not using gotos and all of that. Just yesterday I found that debugging script without use strict is long and painful. Consider this typo in a more than 1000 lines of code script:

my $places_labels = {}; 

# .... about 100 lines skipped

while (my $p = $i->next) {
    $place_labels->{$p->id} = $p->name;
}
[download]

All you need to find such typo is to use strict.

Perl, like Unix, will not stop you to shoot your own foot. You may not use strict if you know what you're doing.

Warnings is similar to strict. If you want to make fast and ugly code that just works and hear no complains from perl - just don't enable them.

Comment on Re: Why use warnings? -w Select or Download Code

Replies are listed 'Best First'.
Re^2: Why use warnings? -w by karlgoethebier (Abbot) on Feb 22, 2018 at 17:49 UTC
"...not using gotos..." It depends. See Re^2: A meditation on the naming of perl6 ;-) Best regards, Karl ŤThe Crux of the Biscuit is the Apostropheť `perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'`Help	[reply] [d/l]
Re^3: Why use warnings? -w by alexander_lunev (Pilgrim) on Mar 05, 2018 at 10:28 UTC
I don't see why you need goto there ;) `#!/usr/local/bin/perl -w use strict; use warnings; use feature qw(say); $SIG{INT} = sub { die q(Nuff said!); }; say q(Did you post some valid code today?); my $answer; while (not defined $answer) { chomp( $answer = <STDIN> ); $answer = lc $answer; my %dispatch = ( 'yes' => sub { say q(Good!) }, 'no' => sub { say q(Bad!) }, 'nada' => sub { say q(Answer yes or no!); undef $answer; } ); ( $dispatch{$answer} \|\| $dispatch{nada} )->(); }` [download]	[reply] [d/l]
Re^4: Why use warnings? -w by karlgoethebier (Abbot) on Mar 05, 2018 at 15:25 UTC
"...you need goto there" Yes sure. In dubio pro reo. Let's assume that it's a TIMTOWTDI. Best regards, Karl ŤThe Crux of the Biscuit is the Apostropheť `perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'`Help	[reply] [d/l]
Re^5: Why use warnings? -w by alexander_lunev (Pilgrim) on Mar 05, 2018 at 18:31 UTC


"be consistent"
	PerlMonks