Opened by Ronnie at 2005-05-08 18:05
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Ja, das von dir gefundene Skript ist tatsächlich in Perl. Es sortiert aber Spalten zu Zeilen um. Wenn ich deine Frage richtig verstanden habe, möchtest du aber einfach nur nach der zweiten Spalte sortieren?! Etwas zeitgemäß überarbeitet sähe das so aus:
Um es verwenden zu können benötigst du die Möglichkeit auf deinem Webserver eigene CGIs einzusetzen.
Nach welchem Feld sortiert wird kann bei der sort-Funktion angepasst werden sort {$a->[1] cmp $b->[1]} @table, wobei die Ziffer in den eckigen Klammer angibt welches Feld zu sortieren ist und die Indizes mit Null begonnen werden zu zählen.\n\n
<!--EDIT|Ronnie|1115562347-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
my $q = new CGI;
open (FILE, "<namensliste.dat") or die "Kann namensliste.dat nicht oeffnen $!\n";
my @table = map { chomp; [split(/\|/, $_)]; } (<FILE>);
close FILE;
my @sorted_table = sort {$a->[1] cmp $b->[1]} @table;
print $q->header, $q->start_html, "<table border='1'>\n";
print "<tr><td>$_</td></tr>\n" for (map {join "</td><td>", @$_} @sorted_table);
print "</table>\n", $q->end_html;
exit;
Um es verwenden zu können benötigst du die Möglichkeit auf deinem Webserver eigene CGIs einzusetzen.
Nach welchem Feld sortiert wird kann bei der sort-Funktion angepasst werden sort {$a->[1] cmp $b->[1]} @table, wobei die Ziffer in den eckigen Klammer angibt welches Feld zu sortieren ist und die Indizes mit Null begonnen werden zu zählen.\n\n
<!--EDIT|Ronnie|1115562347-->