Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re^2: Splitting a text file

by Dr Manhattan (Beadle)
on Mar 20, 2013 at 05:05 UTC ( #1024438=note: print w/ replies, xml ) Need Help??

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

Hi all

I tried this and it seems to be working fine

my $length = $#array; my $fileNR = 1; for (my $x = 0; $x < $length; $x++) { open ($fileNR, ">$fileNR.txt") or die "can't open"; print $fileNR "$array[$x]\n"; if ($x % 1000 == 999) { close ($fileNR); $fileNR++; } }

Except that it doesn't print line 1 - 1000 to a file(as it should do), it just prints every 1000th line in a file, and then it goes on to the next file. Any idea why this happens?

Comment on Re^2: Splitting a text file
Download Code
Re^3: Splitting a text file
by Ratazong (Prior) on Mar 20, 2013 at 08:06 UTC

    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

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (10)
As of 2015-04-27 19:01 GMT
Find Nodes?
    Voting Booth?

    Who makes your decisions?

    Results (509 votes), past polls