Re: Combining files

[rafl]

in reply to Combining files

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

[ikegami]

I don't think there's any guarantee of the order in which <staffinfo*> will return files. Adding sort avoids the problem. (I prefer to use glob explicitely over using the highly overloaded <...> notation.)

for my input (sort glob 'staffinfo*') {
   ...
}

[UrbanHick]

This looks like just the ticket.

-Thanks!

-UH