Re^2: Solve the large file size issue

[Anonymous Monk]

Thanks you for the brief guide. As I handle with 2 input files, and thus want to saved the output to another file. Could you guide me how to modify your existing script for my requirement?

At the same time, could you explain what is this part of code meant? "(my $line2 = <$in2>) or last" ??

[GrandFather]

You should really be able to figure out the I/O changes for yourself, but to ensure you follow best practice change:

open my $in1, '<', \$File1;

to:

open my $in1, '<', $file1 or die "Can't open '$file1': $!\n";

where $file1 contains the path to input file 1. Do the same for $file2. Add:

open my $out, '>', $fileOut or die "Can't create '$fileOut': $!\n";

and change the print statement to:

    print $out $line1, ',', (split ',', $line2)[-1];

(my $line2 = <$in2>) reads a line from $in2 and assigns it to the variable $line2. or last; exits the loop if $in2 contains fewer lines than $in1.