CSV Datei übertragen mithilfe von REST (solved) (Perl/CGI)

[thread]17703[/thread]

CSV Datei übertragen mithilfe von REST [solved]

Tags: perl5 CGI REST Similar Threads

Readers: 20

Articles: hide open all | hide show old branches

+7 replies
miwieg

2012-08-27 17:14
User since
2006-07-16
59 articles
BenutzerIn
Hallo,

Ich habe gehört, dass REST eine (zu SOAP) vergleichsweise einfache Möglichkeit bietet, Webservices aufzusetzen.
Ich würde gerne einen solchen Service in Perl/CGI schreiben und im Wesentlichen auf bestimmte Anfragen bestimmte CSV-Dateien generieren und dem Client übermitteln.

Leider finde ich im Netz kaum irgendwelche einfachen Beispiele in PERL.

Meine konkrete Frage wäre:
Wie würde in einem solchen Service die CSV-Datei übermittelt?
Gehen wir einmal davon aus, ich hätte
Code: (dl )

my $q = CGI->new
und bereits den Request des Clients verarbeitet sowie den Inhalt der CSV-Datei in der Variable @lines parat (jedes Element der Liste ist eine Zeile im CSV-Format).
Ich vermute, das ist irgend ein "print"-Befehl. Wie könnte er aussehen?

Vielen Dank im Voraus.

P.S. Wenn irgendjemand Beispiel-Code zu REST in Perl im Netz kennt, wäre ich für URLs dankbar.
- +6 replies
- rosti
  
  2012-08-27 18:13
  
  User since
  2011-03-19
  3462 articles
  BenutzerIn
  
  Quote
  Wie würde in einem solchen Service die CSV-Datei übermittelt?
  
  REST nutzt die Nethoden des HTTP (GET, POST...).
  
  Der Client wird einen GET-Request auf einen URL machen und die Datei bekommen. Das ist im Prinizip schon alles und dazu brauchts nicht einmal Perl, die Datei kann auch der Webserver ausliefern.
  
  Mit Perl könntest Du jedoch ein bischen mehr machen, z.B. die URLs verwalten und so verschiedene CSV-Dateien auf Abruf bereitstellen und auch weitere Methoden, wie z.B. POST ermöglichen.
  
  Wie üblich, wird das CGI-Script einen Header "Content-Type: text/plain; charset=UTF-8\n\n" zum Webserver schicken, gefolgt von der Datei selbst, und das geht alles mit print auf STDOUT.
  
  Mehr dazu:
  http://www.oio.de/public/xml/rest-webservices.htm
  - +5 replies
  - miwieg
    
    2012-08-28 11:57
    User since
    2006-07-16
    59 articles
    BenutzerIn
    
    OK. Wenn ich das recht verstehe, würde dann also folgendes Fragment ausreichen, d.h. alles direkt auf STDOUT drucken?
    
    Code: (dl )
    
    1 2 3 4
    
    print "Content-Type: text/plain; charset=UTF-8\n\n"; foreach my $line(@lines){ print "$line\n"; }
    - +4 replies
    - Linuxer
      
      2012-08-28 12:03
      
      User since
      2006-01-27
      3890 articles
      HausmeisterIn
      
      Wenn Deine Daten in @lines als UTF-8 vorliegen, wäre das eine Möglichkeit.
      
      edit:
      Wenn Du eh schon ein CGI-Objekt $q hast, kannst Du es auch so machen:
      
      Code: (dl )
      
      1 2 3 4
      
      print $q->header( -type => 'text/plain', -charset => 'UTF-8', );
      
      Last edited: 2012-08-28 12:57:14 +0200 (CEST)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +3 replies
      - miwieg
        
        2012-08-28 12:21
        
        User since
        2006-07-16
        59 articles
        BenutzerIn
        
        Dann hätte ich noch eine Anschlussfrage:
        Wie bekäme ich die Datei auf Client-Seite eingelesen (gesetzt den Fall, der Client würde auch in PERL geschrieben, was ja nicht zwingend ist)?
        
        Code: (dl )
        
        1 2 3 4 5
        
        my $ua = LWP::UserAgent->new; my $response = $ua->request(GET $url); if($response->is_success){ ... }
        
        Ich nehme an, dass $url die URL zum Webservice ist, der eine CSV-Datei zurückgibt.
        Meine konkrete Frage: wie kann ich nun auf den Inhalt, d.h. die einzelnen Zeilen zugreifen?
        
        Vielen Dank im Voraus.
        
        +2 replies
        
        Linuxer
        
        2012-08-28 12:49
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        Mit den Methoden content() oder decoded_content() des Response-Objektes (siehe HTTP::Response) kannst Du empfangenen Daten wiedergeben.
        
        Die kannst Du in einen Skalar ablegen und entsprechend weiterverarbeiten; z.B. an einem \n splitten und die Liste dann an ein Array übergeben...
        
        Ist schwer zu raten, ohne die Datenbasis zu kennen (wenn z.B. "\n" auch in den Datenfeldern auftauchen dürfen)...
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        miwieg
        
        2012-08-28 13:02
        
        User since
        2006-07-16
        59 articles
        BenutzerIn
        
        Wenn ich das richtig verstehe, ist die Ausgabe von content() ein normaler String, den ich weiterverarbeiten kann?

View all threads created 2012-08-27 17:14.