Sortierung nach Position mit PERL - baseportal Forum - Web-Anwendungen einfach, schnell, leistungsfähig!
baseportal
English - Deutsch "Es gibt keine dummen Fragen - jeder hat einmal angefangen"

 baseportal-ForumDie aktuellsten 10, 30, 50, 100 Einträge anzeigen.  

 
 Ausgewählter Eintrag: Zur Liste 
    Beitrag von The Mindkicker (4 Beiträge) am Dienstag, 30.Oktober.2001, 10:49. WWW: www.mindkick.de/ortelt
    Sortierung nach Position mit PERL

      Hallo Leute,

      ich habe eine Chart-Tabelle programmiert. Dort kommen Position, Position Vorwoche, Interpret, Titel, Label usw. rein. Leider weiss ich unter Perl nicht, wie ich die Positionen automatisch sortieren lasse, d.h. Position 1 ganz oben und letzter Platz ganz unten. Was mache ich falsch? Ich habe genau gesagt nicht die riesen Ahnung von Perl und musste darauf zurückgreifen, um jede Zeile in der Ausgabe andersfarbig zu gestalten. Für Eure Hilfe bin ich dankbar.

      Mit freundlichen Grüßen

      Kai Ortelt

      ...und hier mein Code...

      <loop code=perl sort=$position>
         if ($_loop % 2 == 0)
         {
         out "<tr bgcolor=#0080FF>";
         }
         else
         {
         out "<tr bgcolor=#0080C0>";
         }
         out "<td valign=top width=70><p align=left>";
         out "<font color=#000000 size=3 face=Arial>";
         out "<strong>$position.</strong></font>";
         out "<font color=#000000 size=\"2\" face=Arial>";
         out "<strong>&nbsp;($vorwoche)<br></strong></font>";
         out "<font color=#000000 size=1 face=Arial>";
         out "$woche. Woche</font></p></td>";
         if ($neu == 1)
         {
         out "<td width=30><img src=\"http://home.t-online.de/home/320081073904-0001/elferrat/images/new.gif\"></td>";
         }
         else
         {
         out "<td width=30></td>";
         }
         out "<td valign=top width=300>";
         out "<font color=#FFFFFF size=2 face=Arial>";
         out "<strong>$titel</strong></font>";
         out "<font size=2 face=\"Arial\"><br></font>";
         out "<font color=#FFFF80 size=2 face=Arial>";
         out "<strong>$interpret</strong></font></td>";
         out "<td valign=top width=190>";
         out "<font size=2 face=Arial color=#000000><strong>";
         out "<a href=\"$labelurl\" target=new style=\"text-decoration:none; color:#000000\">$label</a></strong>";
         out "<br></font>";
         out "<img src=\"images/spacer.gif\" width=190 height=2>";
         out "<a href=\"$bestellurl\" target=new>";
         out "<img src=\"http://home.t-online.de/home/320081073904-0001/elferrat/images/einkauf.gif\" width=80 height=13 border=0></a></td>";
         out "<td valign=top width=10>&nbsp;</td></tr>";
      </loop>
      


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von The Mindkicker (4 Beiträge) am Dienstag, 30.Oktober.2001, 10:49. WWW: www.mindkick.de/ortelt
    Sortierung nach Position mit PERL

      Hallo Leute,

      ich habe eine Chart-Tabelle programmiert. Dort kommen Position, Position Vorwoche, Interpret, Titel, Label usw. rein. Leider weiss ich unter Perl nicht, wie ich die Positionen automatisch sortieren lasse, d.h. Position 1 ganz oben und letzter Platz ganz unten. Was mache ich falsch? Ich habe genau gesagt nicht die riesen Ahnung von Perl und musste darauf zurückgreifen, um jede Zeile in der Ausgabe andersfarbig zu gestalten. Für Eure Hilfe bin ich dankbar.

      Mit freundlichen Grüßen

      Kai Ortelt

      ...und hier mein Code...

      <loop code=perl sort=$position>
         if ($_loop % 2 == 0)
         {
         out "<tr bgcolor=#0080FF>";
         }
         else
         {
         out "<tr bgcolor=#0080C0>";
         }
         out "<td valign=top width=70><p align=left>";
         out "<font color=#000000 size=3 face=Arial>";
         out "<strong>$position.</strong></font>";
         out "<font color=#000000 size=\"2\" face=Arial>";
         out "<strong>&nbsp;($vorwoche)<br></strong></font>";
         out "<font color=#000000 size=1 face=Arial>";
         out "$woche. Woche</font></p></td>";
         if ($neu == 1)
         {
         out "<td width=30><img src=\"http://home.t-online.de/home/320081073904-0001/elferrat/images/new.gif\"></td>";
         }
         else
         {
         out "<td width=30></td>";
         }
         out "<td valign=top width=300>";
         out "<font color=#FFFFFF size=2 face=Arial>";
         out "<strong>$titel</strong></font>";
         out "<font size=2 face=\"Arial\"><br></font>";
         out "<font color=#FFFF80 size=2 face=Arial>";
         out "<strong>$interpret</strong></font></td>";
         out "<td valign=top width=190>";
         out "<font size=2 face=Arial color=#000000><strong>";
         out "<a href=\"$labelurl\" target=new style=\"text-decoration:none; color:#000000\">$label</a></strong>";
         out "<br></font>";
         out "<img src=\"images/spacer.gif\" width=190 height=2>";
         out "<a href=\"$bestellurl\" target=new>";
         out "<img src=\"http://home.t-online.de/home/320081073904-0001/elferrat/images/einkauf.gif\" width=80 height=13 border=0></a></td>";
         out "<td valign=top width=10>&nbsp;</td></tr>";
      </loop>
      

     Antworten

    Beitrag von Old Eagle Eye (148 Beiträge) am Dienstag, 30.Oktober.2001, 11:20. WWW: www.bigmountain.at
    Re: Sortierung nach Position mit PERL

      Meiner Meinung nach machst du (fast) alles richtig - du musst nur beim Perl den $ beim Sortierkriterium weglassen (dafür aus Sicherheitsgründen ein ^vor dem =) - also

      <loop code=perl sort^=position>
      

      Gruss
      OEE

     Antworten

    Beitrag von The Mindkicker (4 Beiträge) am Dienstag, 30.Oktober.2001, 11:46.
    Re: Sortierung nach Position mit PERL

      Danke... es klappt!!! Aber wie kommt man auf sowas? Das da ein ^ fehlt und ein $ weg muss?

     Antworten

    Beitrag von Sander (8133 Beiträge) am Dienstag, 30.Oktober.2001, 14:11.
    Re: Sortierung nach Position mit PERL

      Das ^ brauchts nicht, ausser du willst das Sortkriterium per Url ändern. $position ist eine Variable, die an dieser Stelle noch nicht gefüllt ist, deshalb auch nach nix sortiert wird.

      würdest du vor loop
      <perl>
      $position="position";
      </perl>
      
      setzen, würde es hinhauen - ist aber quatsch ;-). Deshalb schreibt man den Wert position gleich hinter sort= in klartext.

      Sander

     Antworten


     
 Liste der Einträge von 55350 bis 55500:Einklappen Zur Eingabe 
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < Zur Eingabe  > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge


Zurück zur Homepage

© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen



powered in 0.07s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!