yaniv_av
Novice
Nov 12, 2002, 6:14 AM
Post #3 of 5
(220 views)
|
|
Re: [podmaster] File size limitation in perl ???
[In reply to]
|
Can't Post
|
|
Well, I'm doing some text manipulation on a large file and save the results in the array @file.
The I'm doing this code:
open(OUT, ">index.dat");
.
.
.
foreach (@file) {
$loc=O;
$i++;
$_=~s/(<body>)//g;
@record=split(/ /,join(" ",$_));
foreach (@record) {
if ( $_ =~ /[a-z]{3,13}/) {
$_=~s/[^a-z]//g;
printf ("%-15s : %-2d : %-4d \n",$_,$index_file [$i],$loc);
printf OUT ("%-15s : %-2d : %-4d \n",$_,$index_file[$i],$loc);
$count{$_}++;
}
$loc++;
}
}
close(OUT);
----------------
the first printf command prints all the lines I want to the screen (I added it only for debug) but when I check the output file which is created by the same command - It dosen't contain all the lines, but stop suddenly at some point.
|
MAIN
SEARCH
WHO'S 
LOG 