Datenbankabfrage dauert ewig (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]15773[/thread]

Datenbankabfrage dauert ewig

Leser: 16

Articles: hide open all | hide show old branches

+6 replies

jerrylewis

2010-12-27 16:12

User since
2010-12-27
1 Artikel
BenutzerIn
[default_avatar]

Hallo Gemeinde

Ich habe ein Scriptteil, dass beim öffnen ewig dauert, die Datenbank auszulesen.
Es betrifft 2 Subs die gemeinsam aufgerufen werden um eine Kategorie Liste eines Shopservers aufzurufen.

Habt ihr vielleicht eine Idee , wo mein Fehler liegt oder was ich optimieren kann ?

Code (perl): (dl )

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Kategorienliste
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub topcat {
$sektionstitel = "Verwaltung der Shopmen&uuml;topkategorien";

&Headerout;
print &tparser("$cgipfad/templates/user/header.html");
print &tparser("$cgipfad/templates/user/contentkopf.html");

print qq~
<form action="$cgiverzeichnis/$progname" method="POST">
<input type=hidden name="aktion" value="topsubkat">
<input type=hidden name="go" value="shoptopkatsave">
<table width="100%" cellspacing="1" cellpadding="0" border="0" class="innen">
<tr>
    <td class="innend" colspan="2"><b>Neue Topkategorie eintragen</b></td>
</tr>
<tr>
    <td class="innenh" colspan="2"><b>Hinweise hierzu:</b><br>
Die hier anzulegenden Topkategorien trennen die einzelnen Artikelbereiche voneinander ab. Haben Sie z.B. einen Shop f&uuml;r Haushaltwaren so k&ouml;nnten die Topkategorien
z.B. "Geschirr, Besteck, T&ouml;pfe, Elektroger&auml;te usw." lauten. Zu diesen Topkategorien k&ouml;nnen Sie dann die entspechenden Unterkategorien erstellen.         
        </td>
</tr>
<tr>
    <td class="innenh">Kategorientitel</td>
    <td class="innenh"><input class="mb" style="width: 260px;" size="30" type="Text" name="kattitel" maxlength="250"></td>
</tr>
<tr>
    <td class="innenh"><label for="akt"><b>Kategorie aktiv?</b></label> <input id="akt" type="checkbox" name="aktiv" value="1" checked></td>
    <td class="innenh"><input class="los" type="Submit" value="Eintrag speichern"></td>
</tr>
</table>
</form>
<br>
~;

# mid, shopid, mtitel, tid, rf, aktiv
my $shopmenues = $prefix . "shopmenues";
my $shopmenuessub = $prefix . "shopmenues";
$menutopquery = "SELECT a.mid, a.shopid, a.mtitel, a.tid, a.rf, a.aktiv, COUNT(b.tid) AS total
FROM $shopmenues a
LEFT JOIN $shopmenuessub b
ON 'a.mid' = b.tid
WHERE a.shopid = '$usersid' AND a.tid = '0'
GROUP BY a.mid
ORDER BY a.rf ASC";

my $sth = $dbh->prepare($menutopquery);
my $success  = $sth->execute or die DBI->errstr;
$summe = $success  eq "0E0" ?  0 : $success;

$stcount = 0;
while (my  @inhalt = $sth->fetchrow_array()){
if ($stcount != 0) {
$linkoutup = "<a href=\"$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=reordup&amp;nr=$inhalt[4]&amp;id=$inhalt[0]\"><img src=\"$htmlverz/misc/up.gif\" hspace=\"5\" width=15 height=15 border=0 alt=\"Eins nach oben\"></a>";
} else {
$linkoutup = "<img src=\"$htmlverz/misc/pixel.gif\" hspace=\"5\" width=15 height=15 border=0 alt=\"\">";
}
if ($stcount != ($summe-1)) {
$linkoutdown = "<a href=\"$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=reorddown&amp;nr=$inhalt[4]&amp;id=$inhalt[0]\"><img src=\"$htmlverz/misc/down.gif\" hspace=\"5\" width=15 height=15 border=0 alt=\"Eins nach unten\"></a>";
} else {
$linkoutdown = "<img src=\"$htmlverz/misc/pixel.gif\" hspace=\"5\" width=15 height=15 border=0 alt=\"\">";
}

$cssclass = $cssclass eq "innenh" ? "innenh2" : "innenh";
$aktiv_or_not = $inhalt[5] == 0 ? "<span class=\"tippred\">&bull;</span>" : "<span class=\"tippgreen\">&bull;</span>";


$trout .=qq~
<tr>
<td class="$cssclass" width="20" align="center">$linkoutup</td>
<td class="$cssclass" width="20" align="center">$linkoutdown</td>
<td class="$cssclass" width="20" align="center"><a href="$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=edittop&amp;id=$inhalt[0]"><img src="$htmlverz/misc/edit.gif" hspace="5" width=18 height=15 border=0 alt="Eintrag bearbeiten"></a></td>
<td class="$cssclass" width="100%">$aktiv_or_not $inhalt[2] [$inhalt[6]] <a href="$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=newsub&amp;id=$inhalt[0]"><span class="los"> Neue Subkategorie erstellen</span> </a></td>
<td class="$cssclass" width="20" align="center"><a href="$cgiverzeichnis/$progname?aktion=misc&amp;go=abtkatdel&amp;ps=$inhalt[0]&amp;back=topcat"><img src="$htmlverz/misc/sdel.gif" alt="Kategorie $inhalt[2] mit allen Daten l&ouml;schen" title="Kategorie $inhalt[2] mit allen Daten l&ouml;schen" width="17" height="16" border="0"></a></td>
<td class="$cssclass" width="20" align="center"><a href="$cgiverzeichnis/$progname?aktion=shopcontent&amp;go=pv&amp;seiten_titel=$inhalt[2]&amp;rubid=$inhalt[0]"><img src="$htmlverz/misc/sedit.gif" alt="Kategorie $inhalt[2] Content anlegen" title="Kategorie $inhalt[2] Content anlegen" width="17" height="16" border="0"></a></td>
</tr>
~;
$stcount++;
}

$trout = getcategories(0, 0);

print qq~
<table width="100%" cellspacing="1" cellpadding="0" border="0" class="innen">
<tr>
<td class="innend" colspan="6"><b>Kategorien:</b> Symbol <img src="$htmlverz/misc/edit.gif" hspace="2" width=18 height=15 border=0 alt="Eintrag bearbeiten"> klicken um Kategorien zu bearbeiten.</td>
</tr>
<tr>
<td class="innenh" colspan="6">&bull; <b>&#187;</b> <a href="$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=reordercounttop">Topkategorien neu z&auml;hlen</a> <b>&#171;</b> Nur n&ouml;tig wenn sich die Topkategorien nicht ordnen lassen, z.B. nach L&ouml;schaktionen</td>
</tr>
<tr>
<td class="innenh" colspan="6"><b>Legende:</b> <span class="tippred">&bull; Kategorie deaktiviert</span>  <span class="tippgreen">&bull; Kategorie aktiv</span> - [n] = Anzahl Artikel</td>
</tr>
</table>
~;

print $trout;

print &tparser("$cgipfad/templates/user/contentfuss.html");


# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Kategorien mit angegebener ParentKategorie ausgeben (Rekursiv)
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub getcategories 
{
        my $shopmenues = $prefix . "shopmenues";
        my $shopmenuessub = $prefix . "shopmenues";
        $menutopquery = "SELECT a.mid, a.shopid, a.mtitel, a.tid, a.rf, a.aktiv AS total
        FROM $shopmenues a
        WHERE a.shopid = '$usersid' AND a.tid = '".@_[0]."'
        ORDER BY a.rf ASC";

        my $sth = $dbh->prepare($menutopquery);
        my $success  = $sth->execute or die DBI->errstr;
        
        my $count = 0;
        
        my $tree = "";
        
        if (@_[1] == 0)
        {
                $tree .= "<table style=\"border: 0px; font-size: 12px; width: 100%;\">";
        }
        
        
        while (my  @inhalt = $sth->fetchrow_array())
        {
                my $artnrsql = "SELECT COUNT(*) AS number FROM ".$prefix."artikel WHERE subkat='$inhalt[0]'";
                my $artnrsth = $dbh->prepare($artnrsql);
                $artnrsth->execute or die DBI->errstr;
                my @artcount = $artnrsth->fetchrow_array();
                
                $aktiv_or_not = $inhalt[5] == 0 ? "<span class=\"tippred\">&bull;</span>" : "<span class=\"tippgreen\">&bull;</span>";
                
                
                if (@_[1] == 0)
                {
                        if ($count % 2 == 0)
                        {
                                $tree .= "<tr><td style=\"background-color: #DDDDDD;\">";
                        }
                        else
                        {
                                $tree .= "<tr><td style=\"background-color: #CCCCCC;\">";
                        }
                        #$tree .= "<div id=\"subcats_".$inhalt[0]."\" style=\"color: #FF0000;\">";
                }
                elsif (@_[1] == 1)
                {
                        #$tree .= "<div id=\"subcats_".$inhalt[0]."\" style=\"color: #0000FF;\">";
                }
                else
                {
                        #$tree .= "<div id=\"subcats_".$inhalt[0]."\">";
                }
                
                $tree .= '<span style="width: 400px; float: right; text-align: right;">';
                $tree .= "<a href=\"$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=catup&amp;id=$inhalt[0]\"><img src=\"$htmlverz/misc/up.gif\" alt=\"Nach oben\" style=\"border: 0px;\" /></a> <a href=\"$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=catdown&amp;id=$inhalt[0]\"><img src=\"$htmlverz/misc/down.gif\" alt=\"Nach unten\" style=\"border: 0px;\" /></a> ";     
                $tree .= "<a href=\"$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=editcat&amp;id=$inhalt[0]\"><img src=\"$htmlverz/misc/edit.gif\" hspace=\"5\" width=18 height=15 border=0 alt=\"Kategorie bearbeiten\"></a>";
                $tree .= "<a href=\"$cgiverzeichnis/$progname?aktion=topsubkat&amp;go=delcat&amp;id=$inhalt[0]\" onclick=\"if (!confirm('Achtung: Sind sie sicher, dass sie diese Kategorie INKLUSIVE ALLER UNTERKATEGORIEN UND ARTIKEL löschen wollen ?')) { return false; }\"><img src=\"$htmlverz/misc/delkat.gif\" hspace=\"5\" border=0 alt=\"Kategorie löschen\"></a>";
                $tree .= "<a href=\"$cgiverzeichnis/$progname?aktion=artikel&amp;go=artlist&amp;si=$inhalt[0]\"><img src=\"$htmlverz/misc/sedit.gif\" hspace=\"5\" width=116 height=16 border=0 alt=\"Artikelliste\"></a>";
                $tree .= "<a href=\"$cgiverzeichnis/$progname?aktion=artikel&amp;go=newartikel&amp;si=$inhalt[0]\"><img src=\"$htmlverz/misc/snew.gif\" hspace=\"5\" width=96 height=16 border=0 alt=\"Einen neuen Artikel anlegen\"></a>";
              $tree .= '</span>';
                
                for ($i = 0; $i < @_[1]; $i++)
                {
                        $tree .= "&nbsp;&nbsp;";
                }
                if ($inhalt[6] > 0)
                {
                        $tree .= "";
                }
                else
                {
                        $tree .= "&nbsp;"
                }
                $tree .= $aktiv_or_not;
                $tree .= "&nbsp;&nbsp;";
                $tree .= "[".$artcount[0]."]&nbsp;";
                $tree .= $inhalt[2];
                #$tree .= "</div>";
                $tree .= '<div style="clear: both;"></div>';
                $tree .= '<br />';
                $tree .= getcategories($inhalt[0], @_[1]+1);
                
                if (@_[1] == 0)
                {
                        $tree .= "</td></tr>";
                }
                
                $count++;
        }
        
        if (@_[1] == 0)
        {
                $tree .= "</table>";
        }
        
        return $tree;
}

Hoffentlich könnt ihr mir helfen

Viele Grüße
jerry
Last edited: 2010-12-27 16:33:40 +0100 (CET)

+5 replies
bianca

2010-12-27 16:35

User since
2009-09-13
6980 Artikel
BenutzerIn

Hast Du mal über die Variable time an ein paar Punkten die aktuelle Zeit festgehalten um mal grob zu sehen, in welchem Abschnitt es lange dauert?
perldoc -f time
Dann hat man schonmal einen Anhaltspunkt und weiß, von welchem "ewig" man redet und an welcher Stelle die Ursache liegen könnte.
10 print "Hallo"
20 goto 10
- +4 replies
- lichtkind
  
  2010-12-27 18:40
  
  User since
  2004-03-22
  5681 Artikel
  ModeratorIn + EditorIn
  
  Benchmark benutzt man dierfür auch gerne
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - +3 replies
  - bianca
    
    2010-12-27 18:46
    
    User since
    2009-09-13
    6980 Artikel
    BenutzerIn
    
    2010-12-27T17:40:29 lichtkind
    Benchmark benutzt man dierfür auch gerne
    
    Ich dachte erst mal an eine ganz grobe Lokalisierung des "ewig". Feinjustage dann natürlich mit Modulen.
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - Gast jerrylewis
      
      2010-12-27 20:49
      
      Hallo zusammen
      
      Kann mir evt. einer von euch erklären wie das mit
      
      perldoc -f time
      
      funktioniert. Am Besten an einem Beispiel des oberen Scriptes.
      Wo kann ich den Aufruf einsetzen und wie bekomme ich die Timemeldung ?
      
      Vielen Dank und Gruß
      jerry
      - bianca
        
        2010-12-28 07:49
        
        User since
        2009-09-13
        6980 Artikel
        BenutzerIn
        
        Hi Jerry!
        perldoc -f time zeigt Dir nur die Hilfe von Perl an zu dieser Variable.
        
        Es ist ganz einfach.
        Du nimmst irgendwo die Zeit mit my $start = time();
        Dann kommt ein Codeabschnitt und dann nimmst Du wieder die Zeit mit my $ende = time();
        
        Nun ziehst Du vom Ende den Start ab und weißt nun, wieviele Millisekunden der Codeabschnitt gedauert hat.
        Das machst Du mit immer kleinere Codeblöcken solange bis Du den Flaschenhals gefunden hast. Und dann zeigst Du uns diesen Codeblock nochmal hier im Forum.
        
        Edit: Es sind natürlich Sekunden, keine Millisekunden. Da es aber um eine "Ewigkeit" geht, dürfte das erstmal als Anhaltspunkt reichen.
        Beispiel:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        my $start = time(); # jetzt kommt ein beliebiger Codeblock, ich simuliere mal ein "ewig" mit 3 Sekunden sleep (3); # Codeblock Ende my $ende = time(); print "Dieser Codeblock lief genau " . ($ende - $start) . " Sekunden\n";
        
        Last edited: 2010-12-28 07:54:05 +0100 (CET)
        10 print "Hallo"
        20 goto 10

View all threads created 2010-12-27 16:12.