Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^2: csv file is not opening using use strict

by chromatic (Archbishop)
on Sep 07, 2012 at 01:28 UTC ( #992219=note: print w/ replies, xml ) Need Help??


in reply to Re: csv file is not opening using use strict
in thread csv file is not opening using use strict

print "$fields[0] fields1";

That's not going to cause a bareword error under strict.

BEGIN { $| = 1; $^W = 1; }

Why? Especially $^W?

Note that my @fields should be parenthesized to get a list...

Why? Under what circumstances does the declaration of an array not provide list context?

while ( defined( my $line = <$data> ) )

defined is unnecessary here because Perl will add it for you.

... also, you opened $data, so don't forget to close it.

The filehandle's stored in a lexical variable and it's the end of the program and you're not bothering to check the return value (for a filehandle opened for reading!), and the filehandle's at the end of the file at this point, and you have autodie in effect, so why bother?


Comment on Re^2: csv file is not opening using use strict
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2014-07-26 18:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (178 votes), past polls