union.pl
#!/usr/bin/perl -w
opendir(DIR, ".");
@files = grep(/\.txt$/,readdir(DIR));
closedir(DIR);
open(F,'>done.txt');
foreach $file ( @files ) {
open(A,$file);
@a=<A>;
close(A);
print F @a;
print F "\n";
}
close(F);
print "Done.\n";
далее (чуток материться :rolleyes: )
$ perlcc -o union union.pl
pcc7Uag4.c: In function `perl_init_aaaa':
pcc7Uag4.c:1051: warning: this decimal constant is unsigned only in ISO C90
Info: resolving _PL_ppaddr by linking to __imp__PL_ppaddr (auto-import)
Info: resolving _MallocCfg_ptr by linking to __imp__MallocCfg_ptr (auto-import)
программа (хоть и из скрипта) готова :)
теперь проверка
$ ./union
Done.
a1.txt
First
a2.txt
Something Else
done.txt
First
Something Else
...вотсс :) ... незнаю как сработает с мегабайтными файлами (словарями как я понимаю), но должно работать...
реально и на Си и на Дэльи накатать, но ето нада читать хэлп, т.к. я не шарю как читать полностью весь файл (построчно - ето будет издевательство) ...... и получать их список ....