|No such thing as a small change|
Re^2: csv file is not opening using use strictby chromatic (Archbishop)
|on Sep 07, 2012 at 01:28 UTC||Need Help??|
print "$fields fields1";
That's not going to cause a bareword error under strict.
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?