Perl – Dateiinhalt Spaltenweise sortiert ausgeben
Problem: Es soll ein Dateiinhalt Spaltenweise und nicht Zeilenweise sortiert in einer Tabelle ausgegeben werden. Dieser Code zeigt wie es funktioniert.
Komplettes Beispiel
Beim ausgeben von Dateiinhalten in Tabellen werden diese immer nach dem Schema von Bild 1 ausgegeben.
Möchte man die Daten aber Spaltenweise sortiert ausgeben, Schema Bild 2, so muss man das Hauptarray teilen und kann es dann Spaltenweise ausgeben.
Als Beispiel soll diese fiktive Mitgliederdatei benutzt werden:
1|Walter|Helmut|2004.02.02|Deutschland|M 2|Meyer|Lisa|2003.12.28|Deutschland|W 3|Müller|Maximilian|2002.05.22|Schweiz|M 4|Lehmann|Hubert|2002.11.01|Oesterreich|M 5|Schulze|Stefanie|2004.01.04|Deutschland|W 6|Wolter|Willy|2002.06.09|Oesterreich|M 7|Thomas|Eva-Maria|2004.01.17|Schweiz|W 8|Schneyder|Jean|2001.09.04|Frankreich|M 9|Clerc|Pascale|2002.11.17|Frankreich|M 10|Benguerel|Sebastian|2003.08.10|Spanien|M 11|Carl|Johanna|2002.10.01|Deutschland|W
Das Script hierzu:
#!/usr/bin/perl
#Fehlerausgabe an Browser
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
# Datei auslesen
open (DATEI, "<namensliste.dat") or die "Kann namensliste.dat nicht oeffnen $!\n";
flock (DATEI, 2);
my @namen = <DATEI>;
close DATEI;
# Dateiinhalt sortieren nach Nachnamen
my @sortiertes_array = sort sortabc(@namen);
# Zeilenzahl festellen
my $anzahl = scalar(@sortiertes_array);
# Teilen durch 2
my $halb = int($anzahl / 2);
# Wenn 2 mal die Hälfte nicht $anzahl, 1 addieren
if (2 * $halb < $anzahl) {
$halb += 1;
}
# Tabellenkopf
print qq~
<table cellspacing="2" cellpadding="2" border="1">
~;
# Zähler (optional)
my $halbcount1 = 0;
my $halbcount2 = $halb;
foreach my $z (0..$halb-1) {
# Gesamtarray in zu Teilarrays (@erste - @zweite) zuweisen
my @erste = @sortiertes_array[0...$halb-1];
my @erste_spalte = split(/\|/, $erste[$z]);
my @zweite = @sortiertes_array[$halb...$anzahl-1];
my @zweite_spalte = split(/\|/, $zweite[$z]);
$halbcount1++;
$halbcount2++;
# Ausgabe
if ($halbcount1 <= $halb && $zweite_spalte[1] ne '') {
print qq~<tr>
<td>$halbcount1</td>
<td><b>$erste_spalte[1]</b> $erste_spalte[2]</td>
<td>$halbcount2</td>
<td><b>$zweite_spalte[1]</b> $zweite_spalte[2]</td>
</tr>
~;
}
elsif ($zweite_spalte[1] eq '') {
print qq~<tr>
<td>$halbcount1</td>
<td><b>$erste_spalte[1]</b> $erste_spalte[2]</td>
<td> </td>
<td> </td>
</tr>
~;
}
}
print "</table>";
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Sortiersubroutine
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub sortabc {
@atopkg = split(/\|/,$a);
@btopkg = split(/\|/,$b);
$atopkg[1] cmp $btopkg[1];
}
Weitere Beiträge
Amazon Black Friday Woche 2025: Große Rabatte bei Audible, Kindle Unlimited, Paramount+ und Amazon Hardware
Die Amazon Black Friday Woche 2025 läuft vom 20. November bis 1. Dezember und bringt zahlreiche Sparmöglichkeiten in allen Kategorien. Neben klassischen Produktangeboten profitieren Sie in diesem Jahr besonders von vergünstigten digitalen Abos und Services. Amazon bietet exklusive Rabatte auf Audible, Kindle Unlimited, Paramount+ sowie auf viele hauseigene Amazon-Geräte. Damit wird die Vorweihnachtszeit ideal für Technik- und Medienfans, die kräftig […]
Amazon Black Friday Woche 2025: Top-Deals für iPads, Schreibtische und eReader entdecken
Die Amazon Black Friday Woche 2025 startet offiziell am 20. November und läuft bis zum 1. Dezember. In diesen zwölf Tagen profitieren Sie von Rabatten bis zu 45 Prozent auf über eine Million Artikel. Besonders beliebt sind in diesem Jahr Technik- und Home-Office-Produkte. Wer auf der Suche nach einem iPad, einem neuen Schreibtisch oder einem eReader ist, sollte diese […]
Amazon Prime Deal Days: Top-Rabatte am 7. und 8. Oktober nutzen
Am 7. und 8. Oktober ist es wieder soweit: Die Amazon Prime Deal Days 2025 laden Prime-Mitglieder zu einer exklusiven Schnäppchenjagd ein. Das Shopping-Event bietet hunderttausende Rabatte auf Produkte aus Kategorien wie Elektronik, Mode, Haushalt und Kosmetik. Bereits jetzt können sich Prime-Nutzer auf spannende Vorab-Deals freuen, die direkt über Amazon verfügbar sind. Natürlich wird es […]
Der neue Kalender 2026 für den Kindle Scribe ist da
Noch sind die Temperaturen angenehm, doch das Jahr 2026 steht bereits vor der Tür. Wer seine Pläne für das kommende Jahr effektiv organisieren möchte, sollte sich frühzeitig nach einem geeigneten Kalender umsehen. Für Nutzer des Kindle Scribe gibt es jetzt eine ideale Lösung: den interaktiven Kalender 2026. Dieser digitale Jahresplaner bietet eine Vielzahl von Funktionen, […]
Keine Kommentare vorhanden