|
Если у тебя установлен PERL, создаешь файл split.pl со следующим содержимым:
$length=@ARGV[0];
$fileno=1;
$pos=$length;
open IN, @ARGV[1];
while(<IN>) {
if($pos>=$length) { open OUT, '>'.$fileno++.".txt"; $pos=0; }
print OUT;
$pos++;
}
запуск: perl split.pl <строк в файле> <исходный файл>
|