[bcn-pm] concatenar fitxers portable

[Lou Hevly]

At 17:44 21/07/03, albert vilella wrote:
>Hola,
>
>sabeu com fer un concatenat de fitxers dins un directori però que 
>sigui
>portable?
>
>per exemple, dins un directori, fer un:
>
>cat *.log > all.log

Here's one way:

my $all = '/path/to/all';
open A, ">$all" or die $!;

my $logdir = '/path/to/logdir';
opendir D, $logdir or die $!;

for my $file (grep /\.log$/, readdir D) {
   open F, "$logdir/$file" or die $!;
   read F, my $cont, -s F;
   print A $cont;
}