Array an Ajax ausliefern (solved) (Perl/CGI)

[thread]14040[/thread]

Array an Ajax ausliefern [solved]

Readers: 21

Articles: hide open all | hide show old branches

+12 replies
bianca

2009-09-18 17:20
User since
2009-09-13
7016 articles
BenutzerIn
Frage: Wie liefert man an ein AJAX Script ein Array aus?

Das AJAX empfängt so:
Code: (dl )

news = eval( xh.responseText );
Und verarbeitet später so weiter:
Code: (dl )

1 2 3 4

if( news.length > 0 ) ......... for( p in news[na] ) .........
Daher denke ich, dass ein Array erwartet wird. Und wie muss ich das mit Perl ausliefern?

Das hier klappt auf jeden Fall nicht:
Code (perl): (dl )

1 2

print "Content-type: text/html; charset=ISO-8859-1\n\n"; print "Hallo Test!";
10 print "Hallo"
20 goto 10
- +3 replies
- Taulmarill
  
  2009-09-18 17:28
  User since
  2004-02-19
  1750 articles
  BenutzerIn
  Ich würde mal schätzen, dass du JSON ausliefern willst.
  
  Ich hatte mal zur Übung eine kleine Beispielseite gebaut, die mit zweidimensionalen Arrays arbeitet. Die Webseite ist unter http://taulmarill.de/js_test.html zu finden. Das aufgerufene Perlscript sieht so aus:
  
  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
  
  #!/usr/bin/perl use strict; use warnings; use CGI; my $q = CGI->new; my $x = $q->param('x'); my $y = $q->param('y'); exit if $x <= 0 or $y <= 0 or $x + $y > 10_000; print $q->header('text/text'); print '['; for ( 1 .. $y ) { print '['; print join ",", map{ sprintf q~"%03i"~, int rand 1_000 } 1 .. $x; print '],'; } print ']';
  
  Last edited: 2009-09-18 17:31:42 +0200 (CEST)
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - bianca
    
    2009-09-18 17:45
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Danke Dir.
    
    Laut Firebug gibt Dein Testscript die Inhalte mit Anführungszeichen aus. Kann es sein, dass die im hier geposteten Code fehlen?
    
    EDIT: Ich BLINDFISCH. "%03i" Da steht es doch. Sorry!
    Last edited: 2009-09-18 18:01:49 +0200 (CEST)
    10 print "Hallo"
    20 goto 10
  - bianca
    
    2009-09-18 17:49
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Klappt ansonsten schon ganz gut.
    
    In meinem Fall scheint auch ein zweidimensionales Array verlangt zu werden und an einer Stelle finde ich das hier:
    
    Code: (dl )
    
    if( typeof news[na] == 'object' )
    
    Weiß Du, wie ich mit Perl mitgeben kann, dass diese Bedingungen true ist?
    
    Danke Dir
    
    UPDATE: HABS GEFUNDEN! Es war eine Kombi aus Array und Objecten.
    Danke taulmarill!
    
    Eine einzelne Nachricht sieht da so aus:
    
    Code (perl): (dl )
    
    print '[{"news_id":"166","news_title":"ggggggg","news_content":"yxcvyxcvyxcv","news_link":"sdfasdf","news_date":"2009-09-16 10:33:00"}]';
    
    Last edited: 2009-09-18 18:25:16 +0200 (CEST)
    10 print "Hallo"
    20 goto 10
- +2 replies
- sid burn
  
  2009-09-18 17:48
  User since
  2006-03-29
  1520 articles
  BenutzerIn
  Ich würde dir lieber empfehlen ein JavaScript Framework zu nutzen. Dies vereinfacht die verwendung auch von Ajax umgemein und macht es auch Platformunabhängig.
  
  Ansonsten empfiehlt sich als austausch wie Taulmarill schon sagte JSON. Wenn du also in Perl
  ein Array hast musst du eher soetwas z.B. machen.
  
  Code: (dl )
  
  print encode_json(\@perl_array)
  
  Die meisten JavaScript Frameworks haben auch meist direkt Methoden eingebaut die die Rückgabe als JSON interpretieren und daraus eine JavaScript Datenstruktur bauen.
  
  Und ja die meisten implementieren so einen Parser selber aus sicherheitsgründen. Nutzt du eval() wie in deinem Beispiel würde beliebiger Code ausgeführt werden.
  
  Als Content-Type gibt man dann in der Regel z.B. "application/json" zurück und nicht "text/html".
  
  Vielleicht für dich Interessant:
  
  http://matthiasschuetz.com/javascript-framework-ma...
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - bianca
    
    2009-09-18 17:51
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Danke sid,
    
    der Tipp mit application/json war super. Jetzt sehe ich im Firebug auch besser, was ankommt. Cool!
    
    Ein Framework oder was auch immer will ich dafür nicht verwenden. Es geht hier nur um einen ganz popeligen einfachen Newsticker, den der Auftraggeber eingebaut haben will. Und wie immer, man bekommt einfach unvollständigen Quellcode vor die Füße und soll es zum Laufen bringen :)
    10 print "Hallo"
    20 goto 10
- +3 replies
- bianca
  
  2009-09-18 18:29
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Frage an die Betreiber: Bevor ich diesen Thread eröffnete suchte ich hier im Forum oben rechts nach "ajax array" und bekam keinen Fund.
  
  Nun existiert der Thread und ich bekomme noch immer keinen Fund.
  Läuft der Index des Nächtens oder stimmt da was nicht?
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - pq
    
    2009-09-18 18:51
    
    User since
    2003-08-04
    12209 articles
    Admin1
    
    die suche sucht im moment nach dem kompletten zusammenhängenden string.
    die suche per KinoSearch, die nach einzelnen wörtern sucht, hab ich noch nicht aktiviert, weil ich da noch ein architekturproblem habe (das index-aufbauen dauert über 10 minuten, und während der zeit können dann keine neuen artikel oder deletes berücksichtigt werden).
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - bianca
      
      2009-09-18 18:57
      
      User since
      2009-09-13
      7016 articles
      BenutzerIn
      
      2009-09-18T16:51:02 pq
      die suche sucht im moment nach dem kompletten zusammenhängenden string.
      die suche per KinoSearch, die nach einzelnen wörtern sucht, hab ich noch nicht aktiviert, weil ich da noch ein architekturproblem habe (das index-aufbauen dauert über 10 minuten, und während der zeit können dann keine neuen artikel oder deletes berücksichtigt werden).
      
      OK, mein Verständnis wird Dir zuteil.
      10 print "Hallo"
      20 goto 10
- +3 replies
- kristian
  
  2009-09-19 08:27
  
  User since
  2005-04-14
  684 articles
  BenutzerIn
  
  Hallo
  
  2009-09-18T15:20:10 bianca
  Frage: Wie liefert man an ein AJAX Script ein Array aus?
  Daher denke ich, dass ein Array erwartet wird. Und wie muss ich das mit Perl ausliefern?
  
  JSON als Datenformat wurde ja schon gennant, es gibt dazu ein Modul auf CPAN JSON.
  Gruß
  Kristian
  - sid burn
    
    2009-09-19 18:16
    
    User since
    2006-03-29
    1520 articles
    BenutzerIn
    
    2009-09-19T06:27:38 kristian
    JSON als Datenformat wurde ja schon gennant, es gibt dazu ein Modul auf CPAN JSON.
    
    *hust* wurde auch schon genannt. ;)
    Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - bianca
    
    2009-09-20 08:56
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Danke hab's schon. Der Anlaß ist zu trivial, als dass ich mir dafür ein Modul installiere. Syntax hab ich schon und dann noch beachtet, dass man immer UTF-8 sendet, dafür gibts ja den Iconv und fertig.
    
    Läuft alles super.
    
    Nochmal danke.
    10 print "Hallo"
    20 goto 10

View all threads created 2009-09-18 17:20.