Rabota s *.txt

Dano: mnogo faylov *.txt (po neskol'ko mb kajdiy)
Cel': ob'edenit' ves' text v odnom fayle
Reshenie: kak?
P.S. Nuzhna imenno porgramma, a ne script

 

union.pl

Code:

#!/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";

далее (чуток материться )

Code:

$ 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)

программа (хоть и из скрипта) готова
теперь проверка

Code:

$ ./union
Done.

a1.txt

Code:

First

a2.txt

Code:

Something Else

done.txt

Code:

First
Something Else

...вотсс ... незнаю как сработает с мегабайтными файлами (словарями как я понимаю), но должно работать...
реально и на Си и на Дэльи накатать, но ето нада читать хэлп, т.к. я не шарю как читать полностью весь файл (построчно - ето будет издевательство) ...... и получать их список ....

 

Raptor III
Тут (1.7 MB): http://madmax.deny.de/downloads/raptor.zip
Правда она заточена для работы со словарями, но и так текстовые файлы ворочать умеет. Для слива все в один - тебе как раз и подойдет.

 

ravenant, na php sdelat' 1 minuta i 15 strok, no nuzhno imenno .exe

censored!, spasibo =))

 

вот вы гоните )))
copy *.txt big.txt /y

 

kogda 1 fail horosho, a kogda 2 sotni? =))
i tem bolee eta komanda ne ob'edenyaet =)) esli tak, to prosto zamenaca budut

 

Борис! ты не прав!
она как раз обьеденит (проверь)

 

v fayle text.txt tol'ko 2digit =))
tak 4to vot

 

Копируешь все твои .txt файлы в C:\copy\
Потом:

C:\copy>copy 1.txt 2.txt 3.txt all.txt
1.txt
2.txt
3.txt
1 file(s) copied.

или

C:\copy>copy *.* all.txt
1.txt
2.txt
3.txt
1 file(s) copied.

 

даже не знал что так возможно -))

 

ну а я про че? )))

 

ну так в результате получился именно .ехе (на CygWin'e)... т.к. perlcc делает .ехе из пёрловского скрипта ...
ну да ладна .... шо знал - написал .... сорри если всёже не то ....