Writing to file bug

[EchoCola]

This is the error i get:
Undefined subroutine &main::OUTFILE called at C:\PerlStuff\prog1.pl line 180, <INFILE2> line 1.

Any ideas?

open (INFILE1, "merge1.txt") ||
        die ("Cannot open input file merge1\n");
        
open (INFILE2, "merge2.txt") ||
        die ("Cannot open input file merge2\n");
        
open (OUTFILE,">outfile.txt") ||
	die ("Cannot open output file\n");

$line1 = <INFILE1>;
$line2 = <INFILE2>;
while ($line1 ne "" || $line2 ne "") {
       
        if ($line1 ne "") {
                print OUTFILE($line1);
                $line1 = <INFILE1>;
        }
        if ($line2 ne "") {
                print OUTFILE($line2);
                $line2 = <INFILE2>;
        }
}

 

[nawlej]

Yeah your making it look like a subroutine. Try this:

        if ($line1 ne "") {
                print OUTFILE $line1;
                $line1 = <INFILE1>;
        }
        if ($line2 ne "") {
                print OUTFILE $line2;
                $line2 = <INFILE2>;
        }

Also, I would give your INFILE handlers an explicit resd from:

open (INFILE1, "< merge1.txt") ||
        die ("Cannot open input file merge1\n");
        
open (INFILE2, "< merge2.txt") ||
        die ("Cannot open input file merge2\n");

___________________________________
[morse]--... ...--[/morse], Eric.

 

[EchoCola]

Heh, thanks