Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]11709[/thread]

Tomaten auf den augen (Seite 2)

Leser: 1


<< |< 1 2 3 >| >> 22 Einträge, 3 Seiten
renee
 2008-04-29 13:44
#108986 #108986
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Das mit my $source = ... muss auch noch in den if-Zweig...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Alter
 2008-05-02 19:55
#109114 #109114
User since
2008-02-27
67 Artikel
BenutzerIn
[default_avatar]
Ok danke hat funktioniert.
So aber noch mal zum alten problem.

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

                        $html->div(
                                $html->img(
                                                {-src=>'/pics_hp/banner.jpg'},),
                                                ),
                                $html->div(
                                                {-class=>'ueberschr'},'News'),  
                                $html->div(
                                                {-class=>'haupt'},
                                                                $html->div(
                                                                        {-class=>'mitte'},';                                                                                                                            
while (my $news = $news_dbh->fetchrow_array){                                                                   
print                                                           $html->start_table(     
                                                                        $html->TR($html->th("$$news{ueberschrift}"),),
                                                                                $html->TR(
                                                                                        $html->td("$$news{datum}"),),
                                                                                                $html->TR(
                                                                                                        $html->td("$$news{text}"),),),
                                                                        $html->end_table();
}
print                                           $html->div(
                                                                {-class=>"rechts"},
                                                                "Hier wird viel Text stehen und ein paar bilderHier wird viel Text stehen und ein paar bilder
                                                                Hier wird viel Text stehen und ein paar bilder
                                                                Hier wird viel Text stehen und ein paar bilder
                                                                Hier wird viel Text stehen und ein paar bilder
                                                                Hier wird viel Text stehen und ein paar bilder
                                                                Hier wird viel Text stehen und ein paar bilder
                                                                Hier wird viel Text stehen und ein paar bilder
                                                                Hier wird viel Text stehen und ein paar bilder
                                                                Hier wird viel Text stehen und ein paar bilder
                                                                Hier wird viel Text stehen und ein paar bilder
                                                                Hier wird viel Text stehen und ein paar bilder
                                                                "),
                                                        '),
                                                
                                        $html->div(
                                                                {-class=>'fuss'},
                                                'Version: XXXXXXXX www.red-sunrise-events.de &copy;Martin Alter'),               
                         
                        $html->end_html();


jetzt bekomme ich den fehler hier:
Code (perl): (dl )
                        $html->end_html();


Bitte um hilfe....bin echt zu dusslig dafür gerade...
The only way to survive! Before and after the year 2000, 3000, 4000, ... and tomorrow, too! Linux forever
renee
 2008-05-02 20:24
#109115 #109115
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Alter+2008-05-02 17:55:39--
jetzt bekomme ich den fehler hier:
Code (perl): (dl )
                        $html->end_html();


Bitte um hilfe....bin echt zu dusslig dafür gerade...


Fehlermeldung?
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Alter
 2008-05-02 21:03
#109117 #109117
User since
2008-02-27
67 Artikel
BenutzerIn
[default_avatar]
achso hatte ich vergessen sorry..

Code: (dl )
1
2
[Fri May  2 14:21:49 2008] news_cgi.pl: syntax error at C:/xampp/cgi-bin/news_cgi.pl line 269, near ");"
[Fri May  2 14:21:49 2008] news_cgi.pl: Execution of C:/xampp/cgi-bin/news_cgi.pl aborted due to compilation errors.
The only way to survive! Before and after the year 2000, 3000, 4000, ... and tomorrow, too! Linux forever
renee
 2008-05-02 21:55
#109118 #109118
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Da musst Du mal schauen, ob das mit den Klammern alles so hinhaut... Hast Du einen Editor, der Dir Klammernpaare highlighted?
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
FoolAck
 2008-05-03 00:31
#109125 #109125
User since
2008-05-02
69 Artikel
BenutzerIn
[default_avatar]
Alter... :/
Das ist mal sowas von undurchschaubar... Wiese schließen indentierte (Klammer-)Konstrukte nicht mit ihren terminierenden Zeichen (= Klammern) ab? Wieso überhaupt die weiträumige extrem unübersichtliche Indentierung? Da verliert man doch total den Überblick wo jetzt was anfängt, was ein quote ist, ob alle Klammern "aufgehen", ob man sich in einem Array befindet, einem Konditional etc.
Also ich habs mal so wies hier steht durch perltidy jagen wollen, und perltidy told me:
perltidy.ERR
40: final indentation level: 7

Final nesting depth of '('s is 1
The most recent un-matched '(' is on line 7
7: $html->div(
^
40: To save a full .LOG file rerun with -g

Auf Deutsch: Räum deinen Code mal auf.
Indentierung ist einzig und allein dazu da die Lesbarkeit deines Codes zu erhöhen. Der Plan geht imho bei dir nicht auf.
Schau dir perltidy mal an.

Edit:
Ich hab mal am Anfang etwas entfernt, damit zumindest mal die while-Schleife aufgeräumt dargestellt werden konnte, danach kam dann schon wieder ein Fehler... (ein Problem mit einem nicht beendeten single-quote afaik *hust*...)
Code (perl): (dl )
1
2
3
4
5
6
7
8

while ( my $news = $news_dbh->fetchrow_array ) {
    print $html->start_table(
        $html->TR( $html->th("$$news{ueberschrift}"), ),
        $html->TR( $html->td("$$news{datum}"), ),
        $html->TR( $html->td("$$news{text}"), ),
      ),
      $html->end_table();
}

im Vergleich zum Original:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9

 while (my $news = $news_dbh->fetchrow_array){                                                                   
 print                                                           $html->start_table(     
                                                                         $html->TR($html->th("$$news{ueberschrift}"),),
                                                                                 $html->TR(
                                                                                         $html->td("$$news{datum}"),),
                                                                                                 $html->TR(
                                                                                                         $html->td("$$news{text}"),),),
                                                                         $html->end_table();
 }

Da fallen einem glatt die Tomaten von den Augen ;)
Gast Gast
 2008-05-03 03:11
#109129 #109129
Dieser Code scheint mir motivationslos per Cut&Paste generiert. Die Frage stellt sich ob man wirklich jemanden hilft, wenn man ihn zum Laufen bringt, hier mangelt es ja schon an der Bereitschaft korrekt einzurücken ...
Gast Gast
 2008-05-03 04:03
#109130 #109130
Etwas aufgeräumt und schon zwei Fehler weniger.
Aber finden musst du sie schon selber....
Dann noch das durcheinander beim holen der der News aus der DB...
und noch der Stuss mit der Tabelle...
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

#...
      $html->div( $html->img( {-src=>'/pics_hp/banner.jpg'}, ), ),
      $html->div( {-class=>'ueberschr'}, 'News' );
      $html->div( {-class=>'haupt'},
         $html->div( {-class=>'mitte'}, ), # Fehlt hier was???
      );
while (my $news = $news_dbh->fetchrow_hashref() )
{
  print $html->table(
             $html->Tr( $html->th( $$news{ueberschrift} ), ),
             $html->Tr( $html->td( $$news{datum} ), ),
             $html->Tr( $html->td( $$news{text} ), ),
          );
}
print $html->div( {-class=>"rechts"},
         "Hier wird viel Text stehen und ein paar bilder
          Hier wird viel Text stehen und ein paar bilder
          Hier wird viel Text stehen und ein paar bilder
          Hier wird viel Text stehen und ein paar bilder
          Hier wird viel Text stehen und ein paar bilder
          Hier wird viel Text stehen und ein paar bilder
          Hier wird viel Text stehen und ein paar bilder
          Hier wird viel Text stehen und ein paar bilder
          Hier wird viel Text stehen und ein paar bilder
          Hier wird viel Text stehen und ein paar bilder
          Hier wird viel Text stehen und ein paar bilder
          Hier wird viel Text stehen und ein paar bilder
         "),
       ),
       $html->div( {-class=>'fuss'}, 'Version: XXXXXXXX www.red-sunrise-events.de &copy;Martin Alter' ),                 
       $html->end_html();
Struppi
 2008-05-03 11:44
#109136 #109136
User since
2006-02-17
628 Artikel
BenutzerIn
[Homepage]
user image
Der HTML Code der damit ausgegeben wird, dürfte nicht das sein was man möchte. Hier arbeitet man besser mit einem Array
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12

my @table;
push @table, CGI::Tr( CGI::th([qw(Überschrift Datum Text)]));

while (my $news = $news_dbh->fetchrow_hashref() ){
push @table, CGI::Tr( 
  CGI::td(
    [$news->{ueberschrift},$news->{datum}, $news->{text}]
   )
);

}
print CGI::table(@table) ;
Gast Gast
 2008-05-03 12:00
#109138 #109138
beitrag 18 im [perl]-block zeile 28 nur '','' keine '')''.
<< |< 1 2 3 >| >> 22 Einträge, 3 Seiten



View all threads created 2008-04-26 13:26.