http://www.perlmonks.org?node_id=1024470


in reply to Re^2: Splitting a text file
in thread Splitting a text file

Hi Dr Manhattan,

have a look at the difference between my algorithm and your solution: you open the file in each iteration of the loop. And by opening a file for writing, you erase the previous content.

The solution is to open the file before the loop. And (additionally) inside the if-block, when you want to switch to the next file.

HTH, Rata