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

[davido]

That's exactly why I wanted to print "(@{$head})". It would tell me if $head contained stuff that shouldn't be there. The OP told me the following, "When I ran the script it printed: Field names detected: (# de tienda  tipo  ubicacion". I should have known -- because he didn't show me the closing paren ')' -- that his report to us was incomplete, and should have suspected that it lacked exactly the piece of information we were looking for.

That doesn't excuse my not having seen "undef $/" earlier in the script, but had he reported the full output, or had I noticed that his report was incomplete, it would have led us to look for the modification of $/ sooner even though it was at first not noticed.

[1straw]

Hi Dave:

I still don't understand what went wrong when I followed your instructions. I did mention the odd open parenthesis "(" without a closing parenthesis, but that's definitely all that was outputed. I just tried again w/ undef $/; and I can confirm (Li Stores: and FF Stores was the original output before implementing your code, it was still there afterward, but I didn't think it was important to mention):

x@y:~/example$ perl example
Field names detected: (# de tienda  tipo  ubicacion
Li stores: 
FF Stores: 
x@y:~/example$


I post this out of curiosity & to avoid making the same mistake in the future

Thank you for your help, I really appreciate the time you took to help me figure this out!!

1straw

[McA]

After seeing the output of the first line it was so obvious in combination that we've seen $/. But without that I would have read over this piece of code many times without seeing the problem.

But the next time my presented solution will be a one-liner and not a whole story to see myself being late in the thread... ;-)

Best regards
McA