62 Files Into 1 1

[klmc]

I have 62 files that I need to make one. The file names are listed in a file named exist.txt. I need to loop through all of those names and append their content into a main file named main.txt. Is there an easy way to do that?

Thanks in advance.

 

[bluedragon2]

What flavor of OS?

[Blue]Blue[/Blue] [Dragon]

If I wasn't Blue, I would just be a Dragon...

 

[klmc]

Running good ol' Windows 2K.

 

[bluedragon2]

If you are using UNIX:

@fns = `cat exsist.txt`;

foreach $line (@fns) {
chomp $line;
`cat $line >> newfile.txt`;
}

would work



[Blue]Blue[/Blue] [Dragon]

If I wasn't Blue, I would just be a Dragon...

 

[rosenk]

The following should work. There are probably shorter ways of doing it, certainly if you take operating system facilities (like [tt]cat[/tt] into account.)

[tt]# open exist.txt and read all the lines into @files
open FILES, &quot;<exist.txt&quot;;
my @files = <FILES>;
close FILES;

# open main.txt for writing (overwrites!)
open OUTFILE, &quot;>main.txt&quot;;

# for each file
foreach (@files) {
# chop off the newline
chomp;

# open it for reading
open FILE, &quot;<$_&quot;;

# go through line by line and write it out to our output file
while (<FILE>) {
print OUTFILE;
}

# close the file
close FILE;
}

# close our output file
close OUTFILE;[/tt]

 

[klmc]

Thanks so much rosenk. You saved me some time!!

 

[icrf]

In abscence of cat, File::Cat:

http://search.cpan.org/~fimm/File-Cat-1.2/Cat.pm

use File::Cat;

open LIST, 'exists.txt' or die $!;
open OUT, '>main.txt' or die $!;

while(<LIST>)
{
	chomp;
	cat($_, \*OUT);
}
close OUT;
close LIST;

TMTOWTDI

________________________________________
Andrew - Perl Monkey