Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
append to a file
- Thread starter preethib
- Start date
raider2001
Technical User
One way is to open the files, read the contents, and write them to another file. Here's an example:
Code:
@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 "@Info";
}
close(NF);Here's another way, for unix systems:
Tracy Dryden
tracy@bydisn.com
Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.
Code:
system("cat filename filename2 filename3 >resultfile");tracy@bydisn.com
Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.
- Status
Similar threads