Re: When should you not use strict and warnings?


Keep It Simple, Stupid
	PerlMonks

Re: When should you not use strict and warnings?

by Arunbear (Prior)

on Dec 27, 2012 at 17:06 UTC ( [id://1010551]=note: print w/replies, xml )

Need Help??

in reply to When should you not use strict and warnings?

When the entire script fits on one line? ;)

% cat nums
1
2
3
4
% perl -nE '$sum += $_; END { say $sum }' nums
10
[download]

Comment on Re: When should you not use strict and warnings? Download Code

Replies are listed 'Best First'.

Re^2: When should you not use strict and warnings?
by Athanasius (Archbishop) on Dec 28, 2012 at 16:15 UTC

Well, adding -Mstrict and qualifying every variable with my may be a little much for a one-liner. But adding a single -w? Consider:

 2:05 >type nums.txt
1
2
3
4

 2:05 >perl -nE "$sum += $_; END { say $sum }" nums.txt
10

 2:06 >perl -nwE "$sum += $_; END { say $sum }" nums.txt
10

 2:06 >perl -nE "$sum += $_; END { say $sun }" nums.txt


 2:06 >perl -nwE "$sum += $_; END { say $sun }" nums.txt
Name "main::sum" used only once: possible typo at -e line 1.
Name "main::sun" used only once: possible typo at -e line 1.
Use of uninitialized value $sun in say at -e line 1, <> line 4.


 2:06 >
[download]

That’s a lot of potential help for the cost of just one extra character on the command line. :-)

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]

In Section Seekers of Perl Wisdom