append to a file

[preethib]

Hi teks,

I am trying to copy many log files to a single log file. Is there a good way in perl to do it.

thanks,

preethib@yahoo.com

 

[raider2001]

One way is to open the files, read the contents, and write them to another file. Here's an example:

@filelist = ("file1", "file2", "file3");
$newfile = "newfile";
open(NF, ">$newfile") or die "Can't open $newfile: $! \n";
foreach $file (@filelist) {
    open(F, "$file") or die "Can't open $file: $! \n";
    @Info = (<F>);
    close(F);
    print NF &quot;@Info&quot;;
}
close(NF);

 

[tsdragon]

Here's another way, for unix systems:

system("cat filename filename2 filename3 >resultfile");

Tracy Dryden
tracy@bydisn.com

http://www.bydisn.com

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.