Thread ca. 1200 PDF-Dateien auslesen und bestimmte Daten in eine CSV-Datei speichern (20 answers)
Opened by Thyrius at 2014-07-15 21:55

GwenDragon
 2014-07-17 16:39
#176490 #176490
User since
2005-01-17
14668 articles
Admin1
[Homepage]
user image
Probier mal das:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
my @csv = (); # Array das später alle Felder beinhaltet

# 14 Zeilen überspringen
scalar <$INH> for 1..14;
# weitere Zeilen einlesen
while ( my $line = <$INH> ) {
    # Zeilenendezeichen entfernen
    chomp $line;      
      
    # Ende, wenn Zeile mit Telefon gefunden
    last if $line =~ /^Telefon:/i;

    # Datenfeld zwischenspeichern       
    push @csv,$line;       
}
# alle Felder mit dem ; verbunden ausgeben und ein Newline
print $OUTH join( ';', @csv ), "\n"; 


Editiert von GwenDragon: Code umgestellt wg. Überhitzung des Kopfes ;)
Last edited: 2014-07-17 16:48:46 +0200 (CEST)

View full thread ca. 1200 PDF-Dateien auslesen und bestimmte Daten in eine CSV-Datei speichern