[Mojolicious] Angular JSON via POST (solved) (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]20219[/thread]

[Mojolicious] Angular JSON via POST [solved]

Tags: perl5 mojo Similar Threads

Readers: 8

Articles: hide open all | hide show old branches

+13 replies
guest TheFirstPerl

2017-01-20 11:49
Hallo, ich bin neu in perl und versuche gerade eine App mit Mojo zu schreiben welche ein JSON-Objekt aus einer Angular-App via POST erhält.

Mein AngularCode ist
Code: (dl )

1 2 3 4 5 6 7 8 9

var datainput = JSON.stringify({"test":"orcl"}); $http.post('http://localhost/perltest/perltest.pl/post', datainput) .success(function(data, status, headers, config) { console.log("post geschickt"); console.log(headers()); console.log(data); console.log("data back: " + JSON.stringify(data)); alert(JSON.stringify(data)); })
Das Mojo-Sub sieht so aus:
Code: (dl )

1 2 3 4 5 6 7 8

post '/post' => sub { my $self = shift; my $json = $self->req->json; print header(-type => "text/html"); print Dumper($json->{test}); }; app->start;
Das Ergebnis welches ich erhalte ist:
$VAR1 = undef; Content-Length: 0 Status: 404 Not Found Date: Fri, 20 Jan 2017 09:49:57 GMT

Was ist falsch? Ich habe schon etliche Sachen probiert. Vielleicht sehe ich den Wald vor lauter Bäumen nicht mehr.
Wieso ist $json = $self->req->json leer?
Last edited: 2017-01-20 11:55:28 +0100 (CET)
- +7 replies
- GwenDragon
  
  2017-01-20 12:58
  User since
  2005-01-17
  14837 articles
  Admin1
  Code: (dl )
  
  post '/post' => sub {
  
  Ich denk, die von dir gewählte Route trifft dann aber nur auf die URL http://localhost/post zu, oder?
  Schau dir mal das an: http://mojolicious.org/perldoc/Mojolicious/Guides/...
  
  Code: (dl )
  
  $http.post('http://localhost/perltest/perltest.pl/post', datainput)
  
  Was ist denn das für ein seltsames URL-Konstrukt? Warum das?
  Last edited: 2017-01-20 13:01:01 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - deleted 2017-01-20 13:07
  - +5 replies
  - guest TheFirstPerl
    
    2017-01-20 13:20
    Vielleicht kurz noch zur Erweiterung meiner Erläuterung:
    
    Das ganze liegt auf einem XAMPP, deswegen das URL-Konstrukt. Das erste "perltest" ist der Ordner in htdocs.
    
    das /post muss ich ja machen um die Sub "/post" mit Mojo anzusprechen oder?
    
    Wenn ich am Ende z.B. folgendes Eingebe
    
    Code: (dl )
    
    #$self->render(json => {Anwort => "Sie haben Post"});
    
    Erhalte ich das JSON zurück.
    Aus irgendeinem Grund bekomme
    Last edited: 2017-01-20 13:39:07 +0100 (CET)
    - +4 replies
    - GwenDragon
      
      2017-01-20 13:45
      
      User since
      2005-01-17
      14837 articles
      Admin1
      
      Code (perl): (dl )
      
      1 2
      
      print header(-type => "text/html"); print Dumper($json->{test});
      
      liefert auch kein JSON zurück sondern eine HTML-Datei, die unformatiert Text enthält.
      Das ist niemals richtig für JSON+AJAX.
      
      Lies mal bitte http://stackoverflow.com/questions/477816/what-is-...
      Last edited: 2017-01-20 13:49:16 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +3 replies
      - guest TheFirstPerl
        
        2017-01-20 13:53
        
        Ok, sorry ich korrigier mich nun, da habe ich einieg Fehler gemacht.
        
        Mein Mojo-Sub sieht nun so aus:
        
        Code: (dl )
        
        1 2 3
        
        my $self = shift; my $json = $self->req->json; $self->render( text => $json->{test} );
        
        Ich erhalte nichts zurück.
        
        Gebe ich nun z.B. folgendes ein:
        
        Code: (dl )
        
        #$self->render(json => {Anwort => "Sie haben Post"});
        
        Erhalte ich das entsprechende JSON zurück.
        Aus irgendeinem Grund scheint das JSON per Post nicht anzukommen?!
        Last edited: 2017-01-20 13:55:29 +0100 (CET)
        
        +2 replies
        
        GwenDragon
        
        2017-01-20 13:58
        
        User since
        2005-01-17
        14837 articles
        Admin1
        
        Ich vermute, das
        
        Code: (dl )
        
        $self->render( text => $json->{test} );
        
        liefert ja auch kein JSON sondern Text an deine JS-App zurück.
        http://www.mojolicious.org/perldoc/Mojolicious/Gui...
        
        Lies doch bitte mal auch das Manual von Mojo.
        Last edited: 2017-01-20 13:59:04 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        guest TheFirstPerl
        
        2017-01-20 14:13
        
        Ok gut, wenn ich nun
        
        Code: (dl )
        
        $self->render( text => $json->{test} );
        
        änder in
        
        Code: (dl )
        
        $self->render( [b]json [/b]=> $json->{test} );
        
        Erhalte ich zurück: "null"
        
        P.S. Ich nutze neben meiner JS-App auch das Programm "Postman", dort sende ich direkt ein JSON-Objekt an die URL. Auch hier erhalte ich "null" zurück.
- GwenDragon
  
  2017-01-20 17:19
  
  User since
  2005-01-17
  14837 articles
  Admin1
  
  Hast du auch die letzte version 7.20?
  
  //EDIT:
  Ich kann nichts testen, weil Mojolicous bei meinem Windows-PC gerade nicht korrekt JSON erkennt, auf meinem Linx-Server in der VM schon.
  [Mojolicious::Lite] Senden von JSON klappt nicht (Strawberry 5.20, Win32)
  Last edited: 2017-01-21 10:00:41 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2017-01-20 18:34
  
  User since
  2005-01-17
  14837 articles
  Admin1
  
  Crosspost: http://stackoverflow.com/questions/41760648/mojoli...
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- GwenDragon
  
  2017-01-20 20:36
  User since
  2005-01-17
  14837 articles
  Admin1
  Für Mojo ist das nicht so richtig:
  
  Code (perl): (dl )
  
  1 2
  
  print header(-type => "text/html"); print Dumper($json->{test});
  
  Auch wenn es nun gar nix mit deinem Problem zu tun hat, bei Mojolicious kann man meines Wissens nicht einfach so per Print was rausdrücken.
  HTTP-Header kannst du mit in deinem Beispiel mit $self->res->headers->header ('content-type' => 'text/html') ausgeben.
  Den Inhalt des Dumps mit:
  
  Code: (dl )
  
  $self->render( text => Dumper( Dumper($json->{test}) ) );
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - guest TheFirstPerl
    
    2017-01-23 08:18
    Vielen Dank für Deine Hilfe. Perl ist mir wohl noch etwas zu neu, aber durch Deine Anmerkungen habe ich glaube ich einige Dinge etwas mehr verstanden.
    
    Zu dem Problem selber:
    Ich konnte es mittlerweile lösen. Es lag (wie so oft) an mir.
    Ich hatte ganz oben im Script aus einem Test ohne Mojo noch
    
    Code: (dl )
    
    my $json = JSON->new();
    
    stehen.
    Da scheint es wohl dann Probleme mit der $json-Variablen gegeben zu haben die ich für Mojo genutzt habe.
    Was lerne ich daraus? Augen auf oder neue Datei erstellen beim Testen einer neuen Idee :)
    Last edited: 2017-01-23 08:51:25 +0100 (CET)
    - rosti
      
      2017-01-23 09:10
      
      User since
      2011-03-19
      3570 articles
      BenutzerIn
      
      Augen auf was den Geltungsbereich von Variablen betrifft. Warnungen einschalten und Strict vorgehen ;)
      
      Weiterhin viel Spaß mit Perl.
      http://blog.rolfrost.de/
      
      The art of steam.

View all threads created 2017-01-20 11:49.