problem with old version of (Active) Perl

k9boy_at_hotmail.com
Date: 03/30/05


Date: 29 Mar 2005 14:56:56 -0800

I wrote the code on my local machine, which runs ActivePerl 5.8. The
machine that will use this code runs ActivePerl 5.6. Part of the code
opens up a large file (>85MB), substitute string values line by line,
then writes it to another file. Surprisingly, this part of the code
quits after reading about 10MB when running on version ActivePerl 5.6.
This alone causes the problem:

        $origfile = "C:\\dir\\file.a";
        $newfile = "C:\\dir\\file.b";

        open INF, $origfile or die $!;
        open OUTF, ">$newfile" or die $!;
        while(<INF>) {
                print OUTF $_;
        }
        close INF;
        close OUTF;

I can't get Perl upgraded without quite some difficultly, so does
anyone know what might be causing this problem?

Thanks in advance.



Relevant Pages