Combining Multiple files in one in a perl script

Shell Programming and Scripting
1

All,

I want to combine multiple files in one file.

Something like what we do on the commad line as follows ->

cat file1 file2 file3 > Main_File.

Can something like this be done in a perl script very efficiently?

Thanks,
Rahul.

2

If the OS is *nix, the easiest way I think is to call the same command from inside perl script.

print `cat file1 file2 file3 > Main_File`;

Otherwise read the file in array and write them to one file.