183 lines
6.4 KiB
Perl
183 lines
6.4 KiB
Perl
#!/usr/bin/perl
|
||
use strict;
|
||
use warnings;
|
||
use utf8;
|
||
use open qw(:std :utf8);
|
||
use Excel::Writer::XLSX;
|
||
|
||
my $input = 'pdfs.txt';
|
||
my $csv_out = 'anzeigen.csv';
|
||
my $xlsx_out = 'anzeigen.xlsx';
|
||
my $sep = ';';
|
||
|
||
# Hilfsfunktion: trim
|
||
sub trim { my $s = shift; $s =~ s/^\s+|\s+$//g; return $s // '' }
|
||
|
||
# --- Bestehende CSV einlesen (falls vorhanden) ---
|
||
my %entries;
|
||
if (-e $csv_out) {
|
||
open(my $old, '<:encoding(UTF-8)', $csv_out) or die "Kann $csv_out nicht lesen: $!";
|
||
my $hdr = <$old>; # Kopfzeile überspringen
|
||
while (<$old>) {
|
||
chomp;
|
||
next unless length($_);
|
||
my @cols = split /$sep/, $_;
|
||
# trim alle Felder
|
||
@cols = map { trim($_) } @cols;
|
||
my ($datum, $start, $ende, $tatort, $kennz, $marke, $file) = @cols;
|
||
$entries{$file} = {
|
||
Datum => $datum // '',
|
||
'Tatzeit(Anfang)' => $start // '',
|
||
'Tatzeit(Ende)' => $ende // '',
|
||
Tatort => $tatort // '',
|
||
Kennzeichen => $kennz // '',
|
||
Marke => $marke // '',
|
||
Datei => $file // ''
|
||
};
|
||
}
|
||
close $old;
|
||
print "📂 Bestehende CSV geladen: " . scalar(keys %entries) . " Einträge\n";
|
||
}
|
||
|
||
# --- Neue Daten aus pdfs.txt einlesen ---
|
||
open(my $in, '<:encoding(UTF-8)', $input) or die "Kann $input nicht öffnen: $!";
|
||
while (<$in>) {
|
||
chomp;
|
||
next unless /:/;
|
||
my ($file, $content) = split(/:/, $_, 2);
|
||
$file = trim($file);
|
||
$content = trim($content);
|
||
|
||
# initialisieren falls neu
|
||
$entries{$file} //= {
|
||
Datum => '',
|
||
'Tatzeit(Anfang)' => '',
|
||
'Tatzeit(Ende)' => '',
|
||
Tatort => '',
|
||
Kennzeichen => '',
|
||
Marke => '',
|
||
Datei => $file
|
||
};
|
||
|
||
# Kennzeichen
|
||
if ($content =~ /Fahrzeug Kennzeichen\s+(.+)/i) {
|
||
$entries{$file}->{Kennzeichen} = trim($1);
|
||
next;
|
||
}
|
||
# Marke
|
||
if ($content =~ /Marke des Fahrzeuges\s+(.+)/i) {
|
||
$entries{$file}->{Marke} = trim($1);
|
||
next;
|
||
}
|
||
# Tatort
|
||
if ($content =~ /Tatort\s+(.+)/i) {
|
||
$entries{$file}->{Tatort} = trim($1);
|
||
next;
|
||
}
|
||
# Datum in der Form DD.MM.YYYY auf derselben Zeile
|
||
if ($content =~ /Tattag\s*\(Datum\)\s*([0-3]?\d\.[01]?\d\.\d{4})/) {
|
||
my $d = $1;
|
||
if ($d =~ /(\d{2})\.(\d{2})\.(\d{4})/) {
|
||
$entries{$file}->{Datum} = sprintf("%04d-%02d-%02d", $3, $2, $1);
|
||
}
|
||
# es könnten zusätzlich Zeiten auf dieser Zeile sein -> weiter prüfen unten
|
||
}
|
||
# Falls die Zeile "Tattag (Datum) (Tatzeit – Bis)" ohne Datum, wir lassen Datum unverändert (nicht überschreiben)
|
||
|
||
# Zeiten: überall nach HH:MM suchen (erkennt auch "17:30- 17:49", "11:35 - 11:40 Uhr", "21:13" etc.)
|
||
if ($content =~ /Tatzeit|Tatzeit|Tatzeit.*|Tattag.*Tatzeit/i or $content =~ /(\d{1,2}:\d{2})/) {
|
||
my @times = ($content =~ /(\d{1,2}:\d{2})/g);
|
||
# Falls Zeiten gefunden wurden, setzen (überschreiben)
|
||
if (@times) {
|
||
$entries{$file}->{'Tatzeit(Anfang)'} = $times[0];
|
||
$entries{$file}->{'Tatzeit(Ende)'} = $times[1] // ''; # falls keine Endzeit, leer lassen
|
||
}
|
||
}
|
||
|
||
# Manchmal steht das Datum ohne Label (seltener), versuchen wir ein generelles Datumsmuster in content
|
||
if (!$entries{$file}->{Datum} && $content =~ /(\d{2}\.\d{2}\.\d{4})/) {
|
||
my $d = $1;
|
||
if ($d =~ /(\d{2})\.(\d{2})\.(\d{4})/) {
|
||
$entries{$file}->{Datum} = sprintf("%04d-%02d-%02d", $3, $2, $1);
|
||
}
|
||
}
|
||
}
|
||
close $in;
|
||
|
||
# --- Sortieren: neueste zuerst; falls Datum leer, ans Ende ---
|
||
my @sorted = sort {
|
||
my $da = $entries{$a}->{Datum} // '';
|
||
my $db = $entries{$b}->{Datum} // '';
|
||
# leere Datum nach unten
|
||
return $da cmp $db if $da eq '' || $db eq '';
|
||
($db cmp $da) || ( ($entries{$b}->{'Tatzeit(Anfang)'} // '') cmp ($entries{$a}->{'Tatzeit(Anfang)'} // '') )
|
||
} keys %entries;
|
||
|
||
# --- CSV schreiben (gewünschte Reihenfolge) ---
|
||
open(my $csv, '>:encoding(UTF-8)', $csv_out) or die "Kann $csv_out nicht schreiben: $!";
|
||
print $csv "Datum${sep}Tatzeit(Anfang)${sep}Tatzeit(Ende)${sep}Tatort${sep}Kennzeichen${sep}Marke${sep}Datei\n";
|
||
for my $e (@sorted) {
|
||
my $row = join($sep, map { $entries{$e}->{$_} // '' } qw(Datum Tatzeit(Anfang) Tatzeit(Ende) Tatort Kennzeichen Marke Datei));
|
||
print $csv "$row\n";
|
||
}
|
||
close $csv;
|
||
print "✅ CSV-Datei '$csv_out' erstellt.\n";
|
||
|
||
# --- XLSX erzeugen ---
|
||
my $workbook = Excel::Writer::XLSX->new( $xlsx_out );
|
||
my $worksheet = $workbook->add_worksheet();
|
||
|
||
# Formatierungen
|
||
my $bold_format = $workbook->add_format( bold => 1, bg_color => '#D9D9D9' );
|
||
my $date_format = $workbook->add_format( num_format => 'yyyy-mm-dd' );
|
||
my $time_format = $workbook->add_format( num_format => 'hh:mm' );
|
||
|
||
# Kopfzeile
|
||
my @header = qw(Datum Tatzeit(Anfang) Tatzeit(Ende) Tatort Kennzeichen Marke Datei);
|
||
$worksheet->write_row( 'A1', \@header, $bold_format );
|
||
|
||
# Datenzeilen
|
||
my $row_index = 1;
|
||
for my $e (@sorted) {
|
||
my @row_data = (
|
||
$entries{$e}->{Datum} // '',
|
||
$entries{$e}->{'Tatzeit(Anfang)'} // '',
|
||
$entries{$e}->{'Tatzeit(Ende)'} // '',
|
||
$entries{$e}->{Tatort} // '',
|
||
$entries{$e}->{Kennzeichen} // '',
|
||
$entries{$e}->{Marke} // '',
|
||
$entries{$e}->{Datei} // '',
|
||
);
|
||
|
||
for my $col (0..$#row_data) {
|
||
my $value = $row_data[$col];
|
||
|
||
# Datum als echtes Excel-Datum (ISO + T)
|
||
if ($col == 0 && $value =~ /^(\d{4})-(\d{2})-(\d{2})$/) {
|
||
my $iso = sprintf("%04d-%02d-%02dT00:00:00", $1, $2, $3);
|
||
$worksheet->write_date_time($row_index, $col, $iso, $date_format);
|
||
}
|
||
# Zeit als echte Excel-Zeit (Bruchteil eines Tages)
|
||
elsif (($col == 1 || $col == 2) && $value =~ /^(\d{1,2}):(\d{2})$/) {
|
||
my ($h,$m) = ($1,$2);
|
||
my $time_fraction = ($h*3600 + $m*60)/86400;
|
||
$worksheet->write_number($row_index, $col, $time_fraction, $time_format);
|
||
}
|
||
else {
|
||
# Text (leer als leere Zelle)
|
||
$worksheet->write_string($row_index, $col, $value // '');
|
||
}
|
||
}
|
||
$row_index++;
|
||
}
|
||
|
||
# Optional: Autofit (nur grobe Breiten setzen)
|
||
$worksheet->set_column(0, 0, 12); # Datum
|
||
$worksheet->set_column(1, 2, 10); # Zeiten
|
||
$worksheet->set_column(3, 3, 30); # Tatort
|
||
$worksheet->set_column(4, 5, 15); # Kennzeichen, Marke
|
||
$worksheet->set_column(6, 6, 60); # Datei
|
||
|
||
$workbook->close;
|
||
print "📊 XLSX-Datei '$xlsx_out' erstellt – alle Daten sichtbar und formatiert.\n";
|