Re: "range" im Perlskript???? - 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 

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Gregor (79 Beiträge) am Freitag, 27.Juli.2001, 15:06. WWW: www.Lyricsarchiv.de
    "range" im Perlskript????

      Hallo Perlprofis...

      Ich hab mir vor kurzem von Sander (ist er im Urlaub???) ein Perlskript erstellen lassen, welches meine Datenbank nach mehrfach vorkommenden Einträgen durchsucht und den Eintrag samt Angabe der Anzahl ausgibt. Nun habe ich eine Datenbank in der die Besucher Songtexte uploaden können und ich wollte eine Art "Top5 der Uploader" erstellen lassen. Nur ich habs einfach nicht hinbekommen, das nur 5 Namen erscheinen (range=0,5 funktioniert nicht weil er dann nur die Summe der Einträge zusammenzählt)...

      Wär super wenn mir jemand von Euch helfen könnte...
      Gregor

      <table border="0" cellpadding="4" cellspacing="1" width=100%>
                    <tr bgcolor="#800000"> 
                      <td> 
                        <div align="center"><font face="Arial, Helvetica, sans-serif" size="1" color="#FBE3AD">Top 5 Submitter</font></div>
                      </td>
                    </tr>
      <perl>
      

      @liste;
      $"=' ';
      get "Absender~=$Absender sort=Absender" , "Users";
      while (get_next("Users"))
      {
      if (index(" @liste "," $Absender ")<0)
      {
      push (@zahl, $i) if $_loop != 0;
      $i=0; 
      push (@liste, $Absender);
      $i++;
      }else
      {
      $i++;
      }
      }
      push (@zahl, $i);
      
      %ausgabe=();
      $x=0;
      for (@liste)
      {
      $ausgabe{$_}=$zahl[$x];
      $x++; 
      }
      
      %h1=%ausgabe;
      @felder=sort { $h1{$b} <=> $h1{$a} } keys %h1;
      for (@felder)
      {
      $url=convert_url($_);
      out <<EOF;
                 <tr bgcolor="#FF9933">
                   <td onMouseOver="mOver(this);" onMouseOut="mOut(this);" onClick="mClick(this);">
      <font size="1" face="Arial, Helvetica, sans-serif">
      <a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/Greggi/Usersongs/Liste&Absender~=$url">
      EOF
      {
      out "$_</a> ($ausgabe{$_} ".($ausgabe{$_}==1?"Eintrag":"Einträge").")";
      }
      out <<EOF;
      </font></td></tr>
      EOF
      }
      

      </perl>
      </table>
      

     Antworten

    Beitrag von Sander (8133 Beiträge) am Montag, 30.Juli.2001, 20:03.
    Re: "range" im Perlskript????

      gib mal bitte Leserecht für die db und schreib mir den Namen der db rein (inklusive Pfad)

      Sander

     Antworten

    Beitrag von Gregor (79 Beiträge) am Montag, 30.Juli.2001, 20:19.
    Re: "range" im Perlskript????

     Antworten

    Beitrag von Sander (8133 Beiträge) am Montag, 30.Juli.2001, 20:47.
    Re: "range" im Perlskript????

      so gehts:
      <perl>
       
      

      @liste;


      $"=' ';
      get "Absender~=$Absender sort=Absender" , "/Greggi/Usersongs/Users";
      while (get_next("/Greggi/Usersongs/Users"))
      {
      if (index(" @liste "," $Absender ")<0)
      {
       
      push (@zahl, $i) if $_loop != 0;
      $i=0; 
      push (@liste, $Absender);
      $i++;
      }else
      {
      $i++;
      }
      }
       
      push (@zahl, $i);
      
      %ausgabe=();


      $x=0;
      for (@liste)
      {
      $ausgabe{$_}=$zahl[$x];
      $x++; 
      }
       
      
      %h1=%ausgabe;
      @felder=sort { $h1{$b} <=> $h1{$a} } keys %h1;
      $i=0;
      for (@felder)
      {
      unless ($i>=5)
      {
      $url=convert_url($_);
      out <<EOF;
      <tr bgcolor="#FF9933">
      <td onMouseOver="mOver(this);" onMouseOut="mOut(this);" onClick="mClick(this);">
      <font size="1" face="Arial, Helvetica, sans-serif">
      <a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/Greggi/Usersongs/Liste&Absender~=$url">
      EOF
      out "$_</a> ($ausgabe{$_} ".($ausgabe{$_}==1?"Eintrag":"Einträge").")";
      out <<EOF;
      </font></td></tr>
       
      EOF
      $i++;
      }
      }
      </perl>
      

      Sander

     Antworten

    Beitrag von Gregor (79 Beiträge) am Montag, 30.Juli.2001, 20:56.
    Re: "range" im Perlskript????

      Mensch Sander, was würden wir bloss ohne die "Seele vom Forum" machen.??

      Ich danke Dir (wie schon so oft)...

      Gregor

     Antworten


     
 Liste der Einträge von 58800 bis 58950: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.11s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!