perlquestion
tallums
<p>Hello - I'm using a Windows 7 laptop with 4GB RAM and I have a 500MB fixed-width text file from which I need to remove all tabs. I found this script online that does what I want on smaller (1KB) files, but gives me an "Out of Memory" error on the larger (500MB) file.
</p>
<p>
During testing, I noticed that if I comment out the write_file line that the script finishes without the "Out of Memory" error.
</p>
<p>
I don't know anything about Perl and I'm sure this is an easy fix for you guys. Your assistance/direction is much appreciated.
</p>
<p>
Below is the script I'm using.
</p>
<code>
use strict;
use warnings;
use File::Slurp;
my $s = read_file('large_file.txt');
$s =~s/\t/ /g ;
write_file('test.txt', $s);
__END__
</code>
<p>
Thanks,
Tim
</p>