Forenindex » Archiv » Perl und CGI » Sortieren

Sortieren

Anonym
Beiträge gesamt: 22827

18. Apr 2003, 08:58
Bewertung:

gelesen: 1683

Beitrag als Lesezeichen
Hi Leutz,
Hab folgenden Code:

#!/usr/bin/perl

#Fehlerausgabe an Browser
use CGI::Carp qw(fatalsToBrowser);

print qq~
<SCRIPT LANGUAGE="JavaScript" type="text/javascript">
<!-- Begin
function leapto(form) {
var myindex=form.dest.selectedIndex
parent.demo.location.href=(form.dest.options[myindex].value);
}
// End -->
</SCRIPT>

<div align="center">
<table width="400" border="0" class="tabledes">
<tr>
<td class="tdt">Skinauswahl</td>
</tr>
<tr>
<td class="tdc" align="center">
<!-- Hauptauswahlmenue -->
<FORM NAME="myform">
<SELECT NAME="dest" SIZE=1 onChange="leapto(this.form)" class="mb" style="width: 200px;">
print "<option>Skin ausw&auml;hlen</option>\n";
~;

opendir(DIR,"$hauptpfad/skins");

for $dateien (grep {!/^(.|..)$/} readdir DIR)
{
$dateien =~ s/.pl//g;
print "<option value=\"$serverurl/skinpreview/demo.pl?skin=$dateien\">$dateien </option>\n";
}
closedir(DIR);
print qq~
</SELECT><br>
<div align="center">W&auml;hle einen Skin aus.</div>

<!-- Hauptauswahlmenue -->
</td>
</tr>
</table></FORM>
</div>
~;

Ausgabe sieht so aus:
Skin10
Skin11
Skin12
Skin01
...
Skin09

Soll aber so Aussehen:
Skin01
...
Skin09
Skin10
Skin11
Skin12

Wie bekomme ich das hin?



Sortieren

SabineP
Beiträge gesamt: 7586

18. Apr 2003, 11:15
Bewertung:

gelesen: 1683

Beitrag als Lesezeichen
Hallo Anonym,
mit sort kannst Du sortieren

for $dateien (sort (grep {!/^(.|..)$/} readdir DIR))


Du hast noch einen anderen Fehler im Script.

Falsch ist:
print "<option>Skin ausw&auml;hlen</option>\n";
~;

Richtig ist:
print "<option>Skin ausw&auml;hlen</option>\n";

Gruß Sabine

PS: Moment habe noch etwas vergessen.
~; nicht einfach löschen, sondern eine Zeile weiter oben einfügen:


~;
print "<option>Skin ausw&auml;hlen</option>\n";

(Dieser Beitrag wurde von SabineP am 18. Apr 2003, 11:30 geändert)

Sortieren

Anonym
Beiträge gesamt: 22827

18. Apr 2003, 12:39
Bewertung:

gelesen: 1683

Beitrag als Lesezeichen
Danke Sabine,
klappt eiwandfrei.

CU Didi