Re: parsing lists

1) put

use warnings;
use strict;
[download]

at the top of your file.

2) I think you are missing a semicolon at the end of -the "open" line.

UPDATE: Here's some untested code...

use warnings;
use strict;

$count = 0;
open (DISTLISTS, " < rdy.csv") || die "Unable host file for splitting:
+ $!.";
while (<DISTLISTS>) { 
        chomp $dist_split;
        if ($. % 200 == 0) { # modular arithmetic
            $count ++;            
        }        
        my $filename = "file$count.csv";
        open (OUTPUT1, " >>$filename")
        print OUTPUT1 "$dist_split\n";
        close OUTPUT1;        
}
[download]

Comment on Re: parsing lists Select or Download Code

Replies are listed 'Best First'.
Re^2: parsing lists by Roy Johnson (Monsignor) on Mar 03, 2005 at 19:00 UTC
put the open inside the if block and the close outside the while block. Caution: Contents may have been coded under pressure.	[reply]
Re^3: parsing lists by tphyahoo (Vicar) on Mar 04, 2005 at 09:31 UTC
Yep. Ok this is tested and works. `use warnings; use strict; my $count = 0; my $filename = "file0.csv"; open (DISTLISTS, " < rdy.csv") \|\| die "Unable host file for splitting: + $!."; while (<DISTLISTS>) { chomp $_; if ( ($. - 1) % 200 == 0) { # modular arithmetic $count ++; my $filename = "file$count.csv"; open (OUTPUT1, " >$filename") } print OUTPUT1 "$_\n"; if ($. % 200 == 0) { # modular arithmetic close OUTPUT1; } }` [download]	[reply] [d/l]