Re: Answer: How do I join two files?

[Mago]

Copy and Paste Error !

Correct Code:

#!/usr/bin/perl -w
use strict;

my ($string1, $string2);

$/ = undef;

open (FILE1, "< x") || die "Cannot open file : $!";
open (FILE2, "< y") || die "Cannot open file : $!";
open (FILE3, "> z") || die "Cannot open file : $!";

$string1 = <FILE1>;
$string2 = <FILE2>;

print FILE3 join('', $string1, $string2);

close (FILE1);
close (FILE2);
close (FILE3);

[ysth]

Updated your answer; does it look ok now? Please /msg QandAEditors if you need changes made.

[Mago]

How do I change my answer ?

QandAEditors Request !