Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: When should you not use strict and warnings?

by Arunbear (Parson)
on Dec 27, 2012 at 17:06 UTC ( #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


Comment on Re: When should you not use strict and warnings?
Download Code
Re^2: When should you not use strict and warnings?
by Athanasius (Monsignor) 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 >

    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,

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1010551]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (8)
As of 2014-08-23 16:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (174 votes), past polls