[bcn-pm] concatenar fitxers portable
Lou Hevly
lou at visca.com
Mon Jul 21 14:58:34 CDT 2003
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;
}
More information about the Barcelona-pm
mailing list