Разделение большого текстового файла на каждую пустую строку

Question

У меня возникли проблемы с разбиением большого текстового файла на несколько более мелких. Синтаксис моего текстового файла заключается в следующем:

dasdas #42319 blaablaa 50 50 
content content 
more content 
content conclusion 

asdasd #92012 blaablaa 30 70 
content again 
more of it 
content conclusion 

asdasd #299 yadayada 60 40 
content 
content 
contend done 
...and so on 

(Dasdas # 42319 blaablaa 50 50, содержание контента, больше контента & содержания вывода все свои отдельные линии следует пустой строка конец этой информационной таблицы . Типичная информационная таблица в моем файле имеет место между 10-40 строками.)

Я бы хотел, чтобы этот файл был разбит на n меньших файлов, где n - количество таблиц содержимого.
Это

dasdas #42319 blaablaa 50 50 
content content 
more content 
content conclusion 

бы это собственный отдельно файл (whateverN.txt)

и

asdasd #92012 blaablaa 30 70 
content again 
more of it 
content conclusion 

снова отдельный файл whateverN + 1.txt и так далее.

Похоже, что или Perl являются отличными инструментами для этого, но никогда не использовали их до того, как синтаксис выглядит непонятным.

Я нашел эти два вопроса, которые почти соответствуют моей проблеме, но не смогли изменить синтаксис в соответствии с моими потребностями.

Split text file into multiple files &
https://unix.stackexchange.com/questions/46325/how-can-i-split-a-text-file-into-multiple-text-files

Как следует изменить входные данные из командной строки, так что он решает мою проблему?

Answer 1

Поскольку это пятница, и я чувствую себя немного полезно ... :)

Попробуйте это. Если файл такой же маленький, как вы подразумеваете, просто прочесть его все сразу и работать в памяти.

use strict; 
use warnings; 

# slurp file 
local $/ = undef; 
open my $fh, '<', 'test.txt' or die $!; 
my $text = <$fh>; 
close $fh; 

# split on double new line 
my @chunks = split(/\n\n/, $text); 

# make new files from chunks 
my $count = 1; 
for my $chunk (@chunks) { 
    open my $ofh, '>', "whatever$count.txt" or die $!; 
    print $ofh $chunk, "\n"; 
    close $ofh; 
    $count++; 
} 

В perl документы могут объяснить любые отдельные команды, которые не понимают, но в этот момент вы, вероятно, следует искать в учебнике, а также.

Answer 2

Вы можете использовать этот awk,

awk 'BEGIN{file="content"++i".txt"} !NF{file="content"++i".txt";next} {print > file}' yourfile 

(OR)

awk 'BEGIN{i++} !NF{++i;next} {print > "filename"i".txt"}' yourfile 

Более читаемый формат:

BEGIN { 
     file="content"++i".txt" 
} 
!NF { 
     file="content"++i".txt"; 
     next 
} 
{ 
     print > file 
} 

Answer 3

awk -v RS="\n\n" '{for (i=1;i<=NR;i++); print > i-1}' file.txt 

Наборы разделитель записей, как пустая строка, печатает каждый записывать как один файл с номером 1, 2, 3 и т. д. Последний файл (только) заканчивается пустой строкой.

Answer 4

Попробуйте этот Баш скрипт также

#!/bin/bash 
i=1 
fileName="OutputFile_$i" 
while read line ; do 
if [ "$line" == "" ] ; then 
((++i)) 
fileName="OutputFile_$i" 
else 
echo $line >> "$fileName" 
fi 
done < InputFile.txt 

Answer 5

Установка RS в нуль говорит AWK использовать один или несколько пустых строк как разделитель записей. Тогда вы можете просто использовать NR, чтобы задать имя файла, соответствующего каждой новой записи:

awk -v RS= '{print > ("whatever-" NR ".txt")}' file.txt 

RS: Это входной разделитель записей AWK в. Его значением по умолчанию является строка, содержащая один символ новой строки, что означает, что входная запись состоит из одной строки текста. Он также может быть пустой строкой, в этом случае записи разделяются пробелами пустых строк или регулярным выражением, в этом случае записи разделяются совпадением регулярного выражения во входном тексте.

$ cat file.txt 
dasdas #42319 blaablaa 50 50 
content content 
more content 
content conclusion 

asdasd #92012 blaablaa 30 70 
content again 
more of it 
content conclusion 

asdasd #299 yadayada 60 40 
content 
content 
contend done 

$ awk -v RS= '{print > ("whatever-" NR ".txt")}' file.txt 

$ ls whatever-*.txt 
whatever-1.txt whatever-2.txt whatever-3.txt 

$ cat whatever-1.txt 
dasdas #42319 blaablaa 50 50 
content content 
more content 
content conclusion 

$ cat whatever-2.txt 
asdasd #92012 blaablaa 30 70 
content again 
more of it 
content conclusion 

$ cat whatever-3.txt 
asdasd #299 yadayada 60 40 
content 
content 
contend done 
$ 

Answer 6

Perl, обладает полезной функцией называется входной разделитель записей. $/.

Это «маркер» для разделения записей при чтении файла.

Итак:

#!/usr/bin/env perl 
use strict; 
use warnings; 

local $/ = "\n\n"; 
my $count = 0; 

while (my $chunk = <>) { 
    open (my $output, '>', "filename_".$count++) or die $!; 
    print {$output} $chunk; 
    close ($output); 
} 

Просто так. <> - это «волшебный» дескриптор файла, в котором он считывает данные с каналами или из файлов, указанных в командной строке (открывает их и читает их). Это похоже на то, как работают sed или grep.

Это может быть сведено к одной гильзе:

perl -00 -pe 'open ($out, '>', "filename_".++$n); select $out;' yourfilename_here