Re^5: Cannot work on second file after reading first file.

Ok, so you know the following:

The file opens.
The first line of the CSV file contains headers, as you expected.
The file has not reached "eof" after reading the first line (because we've now tested that).
The while loop never gets entered (because your "I'm inside the while loop" never prints.
The only way for the loop to not be entered is for my $row = $csv->getline($fh) to return a false value.
The documentation for Text::CSV says that 'getline' returns undef (which is false) if it fails to get and parse the line. This can happen at end of file, or in an error condition.
You set auto_diag in the constructor, so errors are being reported. I'm assuming you would tell us if an error was being reported, so it's probably safe to say one isn't. That only leaves "end of file" as a possible reason for you to not be entering the loop.

Some of those things we know are contradictory. They can't both be true. We can't both not be at the end of the file, and be at the end of the file. We can't both have "auto_diag" set, and have an unreported error occurring.

Is your "large script" running as the same user as your test script?

Dave

Comment on Re^5: Cannot work on second file after reading first file. Download Code

Replies are listed 'Best First'.
Re^6: Cannot work on second file after reading first file. by sn1987a (Curate) on Feb 28, 2014 at 18:57 UTC
In my testing, `$csv->eof` did not return true even after trying a second `get_line` (According to the documentation is does not return true until after an attempt to read past the EOF.) In any event the cause was a change in global state in `open_po`: `$/` was being set to `undef`. See Re: Cannot work on second file after reading first file.	[reply] [d/l] [select]
Re^7: Cannot work on second file after reading first file. by davido (Cardinal) on Feb 28, 2014 at 19:32 UTC
Good work. Dave	[reply]