Große Textdatei auf jeder leeren Zeile teilen

Question

Ich habe ein bisschen Mühe, eine große Textdatei in mehrere kleinere zu teilen. Syntax meiner Textdatei ist die folgende:

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, Content-Inhalt, mehr Inhalt & Inhalt Schluss sind alle ihre eigenen separaten Linien durch eine Leerzeile ist das Ende dieser Informationstabelle Eine typische Informationstabelle in meiner Datei hat irgendwo zwischen 10-40 Zeilen.)

Ich würde diese Datei in n kleinere Dateien aufteilen, wobei n die Menge der Inhaltstabellen ist.
Das

ist wäre es separat einer eigenen Datei, (whateverN.txt)

und

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

wieder eine separate Datei whateverN + 1.txt und so weiter.

Es scheint wie awk oder Perl sind nette Tools für diese, aber nie zuvor verwendet, bevor die Syntax ist irgendwie verwirrend.

Ich habe diese beiden Fragen gefunden, die meinem Problem fast entsprechen, aber es ist mir nicht gelungen, die Syntax an meine Bedürfnisse anzupassen.

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

Wie soll man die Befehlszeileneingaben ändern, so dass es mein Problem löst?

Answer 1

Da es Freitag und ich bin ein bisschen hilfreich Gefühl ... :)

Versuchen Sie dies. Wenn die Datei so klein ist, wie Sie meinen, ist es am einfachsten, sie alle gleichzeitig zu lesen und im Speicher zu arbeiten.

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++; 
} 

Die perl docs können alle einzelnen Befehle erklären Sie nicht verstehen, aber an diesem Punkt sollten Sie wahrscheinlich auch ein Tutorial suchen.

Answer 2

können Sie verwenden diese 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 

Mehr lesbares Format:

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 

Sätze voneinander zu trennen sind als Leerzeile, druckt jede notieren Sie als separate Datei nu mbered 1, 2, 3 usw. Die letzte Datei (nur) endet in der Leerzeile.

Answer 4

diesen Bash-Skript auch als Datensatz-Trenn

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

Einstellung RS auf null awk eine sagt zu verwenden oder mehr Leerzeilen versuchen. Dann können Sie einfach NR verwenden Sie den Namen der Datei, in jedem neuen Datensatz entsprechend eingestellt:

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

RS: Dies ist awk des Eingangs voneinander zu trennen sind. Der Standardwert ist eine Zeichenfolge, die ein einzelnes Newline-Zeichen enthält. Dies bedeutet, dass ein Eingabedatensatz aus einer einzelnen Textzeile besteht. Es kann auch die Nullzeichenfolge sein. In diesem Fall werden Datensätze durch Läufe von Leerzeilen oder einem regulären Ausdruck getrennt. In diesem Fall werden Datensätze durch Übereinstimmungen von regexp im Eingabetext getrennt.

$ 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 hat eine nützliche Funktion, um den Eingabedatensatz-Separator bezeichnet. $/.

Dies ist der 'Marker' zum Trennen von Datensätzen beim Lesen einer Datei.

So:

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

Einfach so. Das <> ist das "magische" Dateihandle, da es piped Daten oder von Dateien liest, die auf der Kommandozeile angegeben sind (öffnet sie und liest sie). Dies ist ähnlich wie sed oder grep funktionieren.

Dies kann zu einem Einzeiler reduziert werden: Sie

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