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 Oster-Angebote – erste Angebote sind verfügbar
Amazon Oster-Angebote: Ostern steht vor der Tür. Eine gute Gelegenheit, um die Wohnung oder den Arbeitsplatz bunter zu gestalten. Auch der Frühjahrsputz steht vor der Tür. Die Amazon Osterangebote vom 20. bis 25. März bieten attraktive Rabatte auf Elektronik, Haus & Garten, Spielwaren und mehr. Schneller Versand inklusive! Die ersten Angebote sind bereits verfügbar – […]
Das neue MacBook Air 2024 mit M3 Chip bei Amazon
MacBook Air 2024. Apple präsentierte überraschend die neuen MacBook Air Modelle mit dem leistungsstarken M3 Chip. Neben der besseren Hardware, die deutlich schneller ist als die Rechner der Konkurrenz, wurde vor allem die Tatsache begrüßt, dass das Macbook endlich mit zwei externen Monitoren funktioniert. Erfreulich ist, dass die neuen MacBooks bereits bei Amazon bestellt werden […]
Last Minute Angebote von Amazon
Wer noch auf der Suche nach dem passenden Weihnachtsgeschenk ist, ist bei den Last-Minute-Angeboten von Amazon genau richtig. Egal, ob Sie noch nicht wissen, was Sie schenken sollen, oder einfach ein Schnäppchen machen wollen – bei den Last-Minute-Angeboten werden Sie garantiert fündig.
Amazon Black Friday Woche startet
Auch in diesem Jahr präsentiert Amazon während der Black Friday Woche wieder erstklassige Schnäppchen in allen Kategorien. Kundinnen und Kunden können sich auf einzigartige Geschenkideen und interessante Angebote für die bevorstehende Weihnachtszeit freuen. Darüber hinaus gibt es eine Vielzahl weiterer Produkte mit attraktiven Preisnachlässen – und das elf Tage lang. Ab Freitag, den 17. November […]
Keine Kommentare vorhanden