If you don't run on a *NIX platform or you don't have cat available for some other reason then something like this would do the job as well:
use IO::File; my $output_fh = IO::File->new( 'fullstaffinfo', 'w' ) or die $!; for my $input (<staffinfo*>) { my $input_fh = IO::File->new( $input, 'r' ) or die $!; $output_fh->print(do { local $/ = undef; <$input_fh> }); $input_fh->close; } $output_fh->close;
Cheers, Flo
In reply to Re: Combining files
by rafl
in thread Combining files
by UrbanHick
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |