JSON und Perl (Perl/CGI) - Perl-Community.de

[thread]19838[/thread]

JSON und Perl

Tags: perl5 CGI JSON Similar Threads

Readers: 17

Articles: hide open all | hide show old branches

+6 replies
sleep

2015-10-06 09:04

User since
2015-10-06
3 articles
BenutzerIn

Ich brauche Hilfe zum einbinden in mein Skript das an localhost Adresse was gesendet wird und man es im JSON Format als Antwort erst eine ID bekommt und mit der ID muss man dann nach dem Link suchen den ich benötige...
Localhost Adresse ist ein Webcontrol für ein externes Programm was ich mit meinem perlskript nutzen möchte und dafür muss ich einen Link auslesen können was im JSON Format Antwort
Last edited: 2015-10-06 09:07:20 +0200 (CEST)
- +3 replies
- Muffi
  
  2015-10-06 10:56
  
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  
  Wie frage ich
  
  Und im Deutschen ist es üblich Satzzeichen zu benutzen. Sowas kann man sogar versuchen, wenn deutsch nicht die Muttersprache sein sollte.
  Bei deinem Posting bin ich mir da nicht wirklich sicher.
  1 + 1 = 10
  - +2 replies
  - sleep
    
    2015-10-06 11:34
    
    User since
    2015-10-06
    3 articles
    BenutzerIn
    
    Ja es tut mir leid :(
    
    Also gehe ich jetzt auch mal davon aus das es niemand verstehen wird ? :-(
    
    Oder hast du es verstanden um was es geht oder gehen könnte ?
    - Muffi
      
      2015-10-06 12:41
      
      User since
      2012-07-18
      1465 articles
      BenutzerIn
      
      Nö, ich hab keine Ahnung um was es geht.
      1 + 1 = 10
- +2 replies
- GwenDragon
  
  2015-10-06 14:24
  User since
  2005-01-17
  14741 articles
  Admin1
  So ganz verstehe ich nicht was von wo abgeholt wird.
  Aber ich zeige dir mal wie du Daten abholen kannst und von JSON dekodierts.
  
  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
  
  use LWP::UserAgent; use JSON; my $start_url = "http://localhost/abfrage1/42/JSON"; my $next_url; use LWP::UserAgent; use JSON; my $json = JSON->new; my $ua = LWP::UserAgent->new; my $response = $ua->get($start_url); if (not $response->is_success) { die $response->status_line; } my $hash = $json->decode($response->content); my $id = $hash{'id'}; $next_url = "http://localhost/abfrage2/$id"; $response = $ua->get( $next_url ); if (not $response->is_success) { die $response->status_line; } $hash = $json->decode($response->content);
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - sleep
    
    2015-10-06 14:42
    
    User since
    2015-10-06
    3 articles
    BenutzerIn
    
    Es soll ein downloadlink dann ausgelesen werden der vorher gesendet wurde an diese localhost Adresse
    http://localhost:8080/?action=add&host=HOST&file=FILENAME
    BEI HOST muss dann zum Beispiel directupload.de rein das das externe Programm weiß welcher Host benutzt werden muss und bei FILENAME der Pfad zu der rar Datei
    Nachdem eine rar Datei gesendet wurde bekommt man eine Antwort mit der ID
    Mit dieser ID kann man dann den Status abfragen ob der Upload beendet ist ... Dann erscheint da eine ID
    Das sieht dann so aus
    {"action":"add","files":[{"status":"OK","filename":"C:\\Beispielmovie\/61586d30d74e41aa277a8145d09f60a6.part001.rar","id":"27"}]} Und mit der ID 27 muss man dann den Status abfragen und nach fertig Stellung sieht es dann so aus wenn man abfragt {"action":"status","data":{"status":"Done","filename":"beispiellinks/61586d30d74e41aa277a8145d09f60a6.part001.rar","progress":"100%","speed":"60306,4 KB\/s","link":"http:\/\/www.directupload.de\/v\/eda5GRpJ\/file.html"}}
    Und diesen "link" brauche ich dann ausgelesen
    
    Es werden als antworten in JSON zurück gegeben
    
    Es soll quasi ein eigenständiges Plugin sein worauf das hauptskript was vorher andere Aufgaben erledigt wie entpacken und verpacken übernimmt und es nur ein Hoster Plugin ist worauf zugegriffen wird.
    In diesem Falle directupload.de ein Bildhoster
    
    Ich hoffe ihr versteht was ich suche
    Last edited: 2015-10-06 15:04:58 +0200 (CEST)

View all threads created 2015-10-06 09:04.