[GastForen Archiv Perl und CGI Sortieren

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Archiv - Archivierte Foren
Themen
Beiträge
Moderatoren
Letzter Beitrag

Sortieren

Anonym
Beiträge gesamt: 22827

18. Apr 2003, 08:58
Beitrag # 1 von 3
Bewertung:
(1631 mal gelesen)
URL zum Beitrag
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?



X

Sortieren

SabineP
Beiträge gesamt: 7586

18. Apr 2003, 11:15
Beitrag # 2 von 3
Beitrag ID: #32282
Bewertung:
(1631 mal gelesen)
URL zum Beitrag
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";


als Antwort auf: [#32271]
(Dieser Beitrag wurde von SabineP am 18. Apr 2003, 11:30 geändert)

Sortieren

Anonym
Beiträge gesamt: 22827

18. Apr 2003, 12:39
Beitrag # 3 von 3
Beitrag ID: #32294
Bewertung:
(1631 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Danke Sabine,
klappt eiwandfrei.

CU Didi


als Antwort auf: [#32271]

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
02.02.2023

Prozesse optimieren und effizient gestalten

Zürich
Donnerstag, 02. Feb. 2023, 08.00 - 10.00 Uhr

Digitalisierung, Webauftritt

Digitalisierung mitgestalten - Worauf kommt es an? Wie wichtig ist die Webseite? Webseite mit Word Press? Interne Prozesse optimieren

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: Birol Isik, E-Mailinfo AT bkcc DOT ch

https://digitalisierung-heute.ch/digitalisierung-informationstag-schweiz/

Veranstaltungen
01.03.2023 - 09.03.2023

Online
Mittwoch, 01. März 2023, 00.00 Uhr - Donnerstag, 09. März 2023, 00.00 Uhr

Online Webinar

Wie gehen wir mit diesen Veränderungen um? Was ist notwendig, damit wir die Digitalisierung im Unternehmen klappt? Veränderungsprozesse verstehen und entsprechend handeln Mitarbeiter als Botschafter Webseite mit WordPress erstellen SEA /SEO (Ads aufschalten)

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: B. Isik, E-Mailinfo AT snfa DOT ch

https://www.fernstudiumfitness.ch/digitalisierung-schweiz/