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
Meta Quest 3: Entdecken Sie das aktuelle VR-Headset
Die Meta Quest 3 ist das aktuelle Mixed-Reality-Headset von Meta, das innovative Technologien vereint, um ein einzigartiges VR-Erlebnis zu bieten. Diese VR-Brille stellt sowohl für Gelegenheitsnutzer als auch für Technikenthusiasten eine aufregende Möglichkeit dar, die Grenzen zwischen der physischen und digitalen Welt zu erkunden. Eine echte Alternative zur Apple Vison Pro. Wer etwas günstiger in […]
Amazon Prime Deal Days: Günstige Hardware-Angebote für Technikfans
Amazon bietet während der Prime Deal Days besonders günstige Hardware an. Das beliebte Shopping-Event läuft vom 8. bis 9. Oktober. Prime-Mitglieder dürfen sich auf exklusive Rabatte und Angebote freuen. Besonders Technikfans kommen in diesen zwei Tagen voll auf ihre Kosten.
Amazon-Vergleichstabellen erhöhen die Affiliate-Einnahmen
Amazon-Vergleichstabellen: Wer im Internet kaufen will, vergleicht zunächst Preise und Produkteigenschaften. Hier ist bei vielen Interessenten Amazon die erste Wahl. Gleichzeitig bietet der Branchenriese ein interessantes Partnerprogramm für Empfehlungen an. Wer sich damit ein zusätzliches Einkommen sichern möchte, bietet seinen Besuchern spezielle Amazon-Vergleichstabellen auf seiner Webseite an. So findet der Kunde schneller die relevanten Informationen […]
Amazon startet den 10. Prime Day am 16. und 17. Juli
Prime Day 2024: Vom 16. bis 17. Juli haben Prime-Mitglieder exklusiven Zugang zu einer Vielzahl von Angeboten in verschiedenen Kategorien wie Bekleidung, Elektronik, Küche & Haushalt und Spielzeug. Neue Deals werden während des gesamten Zeitraums veröffentlicht, um Prime-Mitgliedern am zehnten Prime Day stets etwas Neues zu bieten. Die ersten Angebote sind bereits verfügbar. Weitere Produkte […]
Keine Kommentare vorhanden