Thread Text-Datei in mehrere Dateien splitten (21 answers)
Opened by hybi at 2013-07-23 11:07

Gast hybi
 2013-07-23 13:14
#169032 #169032
Vielen Dank für die bisherigen Tipps!

Ein Kollege, der etwas pfiffiger in Sachen Perl ist als ich, hat mir ebenfalls gesagt, dass an dem Script einige Sachen nicht stimmen und hat den abgeändert. Der Code funktioniert, bringt das gewünschte Ergebnis und schaut nun folgendermaßen aus:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

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

my $i = 0;
my $split = '@@';

open IN, 'wuw_gesamt.txt' or die "Can't open in.txt: $!\n";
open OUT, '> Dateien/wuw1.txt' or die "Can't write to wuw1.txt: $!\n";

while (<IN>){
    if (/^(.*?)$split(.*)$/){
        print OUT $1 if $1;
        close OUT;
        $i++;
        open OUT, '> Dateien/wuw' . $i . '.txt' or die "Can't write to wuw +${i}.txt: $!\n";
        print OUT $2 if $2;
    }
    else{
    print OUT $_;
    }
}
close IN;


Nun ist der Kollege allerdings wieder abgehauen und kann mir bei der nächsten Baustelle nicht helfen.
Die Einträge haben teilweise mehrere Informationen in einer Zeile zusammengefasst, bspw. so:

Jahrgang, Seite [ 1996, 1057 ]

Nun soll das aber einzeln stehen und im Endeffekt dann so aussehen:

Jahrgang [ 1996 ]
Seite [ 1057 ]

Wie könnte man den neuen Script erweitern um die Zeilen so splitten zu können?
Danke sehr im Voraus für jeden weiteren Tipp!
Last edited: 2013-07-23 13:17:44 +0200 (CEST)

View full thread Text-Datei in mehrere Dateien splitten